Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-06 12:46:35 +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 21:03:38 -05:00
parent 95391a6cab
commit c5ea165cb5
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/cyclone/transforms.sld
View file

@ -86,6 +86,7 @@
define->lambda
define->var
define->exp
define-c
set!?
set!->var
set!->exp
@ -658,6 +659,9 @@
(define (define->exp exp)
(cddr exp))
(define (define-c? exp)
(tagged-list? 'define-c exp))
; set! : exp -> boolean
(define (set!? exp)
(tagged-list? 'set! exp))
@ -803,7 +807,7 @@
;; (alpha, cps, closure, etc). otherwise code has to be interpreted during expansion
;;
`(define ,name ,(expand body env))))
((define-c? exp) exp)
((symbol? (car exp))
(let ((val (env:lookup (car exp) env #f)))
(if (tagged-list? 'macro val)