diff options
author | Thomas White <taw@bitwiz.me.uk> | 2020-03-26 22:49:53 +0100 |
---|---|---|
committer | Thomas White <taw@bitwiz.me.uk> | 2020-03-26 22:49:53 +0100 |
commit | ef2182fe1b8791f2bf4458ed2f1a8f4feead513e (patch) | |
tree | 3a2d2df4a7d2c49c05553177dfc0e30bd6ef2497 | |
parent | 8c8f06702306eb5079d823577e240629384408d1 (diff) |
Add att function
-rw-r--r-- | src/init.scm | 8 |
1 files changed, 8 insertions, 0 deletions
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)))) |