Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added define-c

Browse source
This commit is contained in:
Justin Ethier 2016-01-07 22:45:16 -05:00
parent 69e8450c1b
commit 6d4c85766e
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
cyclone.scm
View file

@ -212,12 +212,16 @@
(set! input-program (set! input-program
(map (map
(lambda (expr) (lambda (expr)
(if (define? expr) (cond
((define? expr)
;; Global ;; Global
`(define ,(define->var expr) `(define ,(define->var expr)
,@(caddr (closure-convert (define->exp expr) globals))) ,@(caddr (closure-convert (define->exp expr) globals))))
((define-c? expr)
expr)
(else
(caddr ;; Strip off superfluous lambda (caddr ;; Strip off superfluous lambda
(closure-convert expr globals)))) (closure-convert expr globals)))))
input-program)) input-program))
; (caddr ;; Strip off superfluous lambda ; (caddr ;; Strip off superfluous lambda
; (closure-convert input-program))) ; (closure-convert input-program)))