From ef2182fe1b8791f2bf4458ed2f1a8f4feead513e Mon Sep 17 00:00:00 2001
From: Thomas White <taw@bitwiz.me.uk>
Date: Thu, 26 Mar 2020 22:49:53 +0100
Subject: Add att function

---
 src/init.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/init.scm b/src/init.scm
index a7eafc1..710204e 100644
--- a/src/init.scm
+++ b/src/init.scm
@@ -69,3 +69,11 @@
     (list)))
 
 (show-state home)
+
+(define att
+  (lambda (fix lvl)
+    (let ([st
+	    (lambda ()
+	      (list
+		(at fix lvl)))])
+      (show-state st))))
-- 
cgit v1.2.3