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

expanding internal defines in lambdas

Browse source
This commit is contained in:
Alex Shinn 2009-12-12 16:02:38 +09:00
parent a1622ad408
commit e5163d7e3b
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lib/chibi/macroexpand.scm
View file

@ -62,7 +62,10 @@
(cond (cond
((lambda? x) ((lambda? x)
`(lambda ,(map (lambda (id) (get-rename id x renames)) (lambda-params x)) `(lambda ,(map (lambda (id) (get-rename id x renames)) (lambda-params x))
,(a2s (lambda-body x)))) ,@(map (lambda (d) `(define ,(identifier->symbol (cadr d)) #f)) (lambda-defs x))
,@(if (seq? (lambda-body x))
(map a2s (seq-ls (lambda-body x)))
(list (a2s (lambda-body x))))))
((cnd? x) `(if ,(a2s (cnd-test x)) ,(a2s (cnd-pass x)) ,(a2s (cnd-fail x)))) ((cnd? x) `(if ,(a2s (cnd-test x)) ,(a2s (cnd-pass x)) ,(a2s (cnd-fail x))))
((set? x) `(set! ,(a2s (set-var x)) ,(a2s (set-value x)))) ((set? x) `(set! ,(a2s (set-var x)) ,(a2s (set-value x))))
((ref? x) (get-rename (ref-name x) (cdr (ref-cell x)) renames)) ((ref? x) (get-rename (ref-name x) (cdr (ref-cell x)) renames))
@ -70,7 +73,7 @@
((lit? x) ((lit? x)
(let ((v (lit-value x))) (let ((v (lit-value x)))
(if (or (pair? v) (null? v) (symbol? v)) `',v v))) (if (or (pair? v) (null? v) (symbol? v)) `',v v)))
((pair? x) (map a2s x)) ((pair? x) (cons (a2s (car x)) (a2s (cdr x))))
((opcode? x) (or (opcode-name x) x)) ((opcode? x) (or (opcode-name x) x))
(else x))))) (else x)))))