Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-16 01:07:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Issue #13 - Better support for lexical scoping

Browse source
This commit is contained in:
Justin Ethier 2016-12-04 06:20:23 +00:00
parent f160b8913d
commit a3cb0b1ab8
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
scheme/cyclone/transforms.sld
View file

@ -1031,15 +1031,18 @@
(renamed (renamed
(cdr renamed)) (cdr renamed))
(else ast)))) (else ast))))
((define? ast) ((and (define? ast)
(not (assoc 'define renamed)))
;; Only internal defines at this point, of form: (define ident value) ;; Only internal defines at this point, of form: (define ident value)
`(set! ,@(map (lambda (a) (convert a renamed)) (cdr ast)))) `(set! ,@(map (lambda (a) (convert a renamed)) (cdr ast))))
((set!? ast) ((and (set!? ast)
(not (assoc 'set! renamed)))
;; Without define, we have no way of knowing if this was a ;; Without define, we have no way of knowing if this was a
;; define or a set prior to this phase. But no big deal, since ;; define or a set prior to this phase. But no big deal, since
;; the set will still work in either case, so no need to check ;; the set will still work in either case, so no need to check
`(set! ,@(map (lambda (a) (convert a renamed)) (cdr ast)))) `(set! ,@(map (lambda (a) (convert a renamed)) (cdr ast))))
((if? ast) ((and (if? ast)
(not (assoc 'if renamed)))
;; Add a failsafe here in case macro expansion added more ;; Add a failsafe here in case macro expansion added more
;; incomplete if expressions. ;; incomplete if expressions.
;; FUTURE: append the empty (unprinted) value instead of #f ;; FUTURE: append the empty (unprinted) value instead of #f
@ -1072,7 +1075,8 @@
;converted))) ;; No, see if we can fast-convert it ;converted))) ;; No, see if we can fast-convert it
(else (else
(prim:inline-convert-prim-call converted))))) ;; No, see if we can fast-convert it (prim:inline-convert-prim-call converted))))) ;; No, see if we can fast-convert it
((lambda? ast) ((and (lambda? ast)
(not (assoc 'lambda renamed)))
(let* ((args (lambda-formals->list ast)) (let* ((args (lambda-formals->list ast))
(ltype (lambda-formals-type ast)) (ltype (lambda-formals-type ast))
(a-lookup (map (lambda (a) (cons a (gensym a))) args)) (a-lookup (map (lambda (a) (cons a (gensym a))) args))