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

Issue #411 - Treat null/improper lists as consts

Browse source
This commit is contained in:
Justin Ethier 2020-09-22 23:04:28 -04:00
parent 05fc6fb8ed
commit 05d65b15b0
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
scheme/eval.sld
View file

@ -997,6 +997,11 @@
;(newline) ;(newline)
(cond (cond
((const? exp) exp) ((const? exp) exp)
;; Null and Improper lists are just consts, no need to expand
((null? exp) exp)
((and (pair? exp)
(not (list? exp)))
exp)
((and (prim? exp) ;; Allow lambda vars to shadown primitives ((and (prim? exp) ;; Allow lambda vars to shadown primitives
(not (assoc exp local-renamed))) (not (assoc exp local-renamed)))
exp) exp)