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)))) |