Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

removing tabs

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/srfi/139.scm
View file

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

4
lib/srfi/139/test.sld
View file

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