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

Additional safety check for empty env

Browse source
This commit is contained in:
Justin Ethier 2018-01-19 11:56:10 -05:00
parent 338c195e81
commit 183b3c5eb2
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
scheme/eval.sld
View file

@ -747,7 +747,8 @@
(define (macro:macro? exp defined-macros) (assoc (car exp) defined-macros)) (define (macro:macro? exp defined-macros) (assoc (car exp) defined-macros))
(define (macro:get-local-renames macro current-rename-lis) (define (macro:get-local-renames macro current-rename-lis)
(if (eq? 3 (length macro)) (if (and (eq? 3 (length macro))
(not (null? (caddr macro))))
(caddr macro) (caddr macro)
current-rename-lis)) current-rename-lis))
@ -759,7 +760,7 @@
(result #f)) (result #f))
;(newline) ;(newline)
;(display "/* ") ;(display "/* ")
;(display (list 'macro:expand exp macro compiled-macro?)) ;(display (list 'macro:expand exp macro compiled-macro? local-renamed))
;(display "*/ ") ;(display "*/ ")
;; Invoke ER macro ;; Invoke ER macro