removing tabs

This commit is contained in:
Alex Shinn 2017-08-26 23:29:02 +09:00
parent 17b7ee3f98
commit 1ac4473942
3 changed files with 46 additions and 49 deletions

View file

@ -20,7 +20,8 @@
keywords))
(old (map cdr cells))
(new (map (lambda (transformer)
(make-macro (eval (make-syntactic-closure use-env '() transformer))
(make-macro
(eval (make-syntactic-closure use-env '() transformer))
use-env))
transformers)))
(for-each set-cdr! cells new)

View file

@ -37,7 +37,6 @@
(foo))))
(list (foo) new)))
(test 10
(let ((i 0))
(forever
@ -46,7 +45,4 @@
(abort)))
i))
(test-end))))