Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-03 11:16:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

fixing whitespace

Browse source
This commit is contained in:
Alex Shinn 2020-06-16 11:43:47 +09:00
parent 23f93cceb4
commit 5b7729fbfc
1 changed files with 25 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

50
lib/srfi/139.scm
View file

@ -5,28 +5,28 @@
(car (cdr expr))))) (car (cdr expr)))))
(%define-syntax syntax-parameterize (%define-syntax syntax-parameterize
(lambda (expr use-env mac-env) (lambda (expr use-env mac-env)
(let* ((_let (make-syntactic-closure mac-env '() 'let)) (let* ((_let (make-syntactic-closure mac-env '() 'let))
(_set! (make-syntactic-closure mac-env '() 'set!)) (_set! (make-syntactic-closure mac-env '() 'set!))
(_out (make-syntactic-closure mac-env '() 'out)) (_out (make-syntactic-closure mac-env '() 'out))
(_tmp (make-syntactic-closure mac-env '() 'tmp)) (_tmp (make-syntactic-closure mac-env '() 'tmp))
(bindings (cadr expr)) (bindings (cadr expr))
(body (cddr expr)) (body (cddr expr))
(keywords (map car bindings)) (keywords (map car bindings))
(transformers (map cadr bindings)) (transformers (map cadr bindings))
(cells (cells
(map (lambda (keyword) (map (lambda (keyword)
(env-cell use-env keyword)) (env-cell use-env keyword))
keywords)) keywords))
(old (map cdr cells)) (old (map cdr cells))
(new (map (lambda (transformer) (new (map (lambda (transformer)
(make-macro (make-macro
(make-transformer (make-transformer
(eval (eval
(make-syntactic-closure use-env '() transformer))) (make-syntactic-closure use-env '() transformer)))
use-env)) use-env))
transformers))) transformers)))
(for-each set-cdr! cells new) (for-each set-cdr! cells new)
`(,_let ((,_tmp #f)) `(,_let ((,_tmp #f))
(,_set! ,_tmp (,_let () ,@body)) (,_set! ,_tmp (,_let () ,@body))
(,_out ,_tmp ,cells ,old))))) (,_out ,_tmp ,cells ,old)))))