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

Commented-out legacy code (for now, will delete later)

Browse source
This commit is contained in:
Justin Ethier 2016-06-10 23:47:21 -04:00
parent 2c73f20e99
commit ad3f716a0b
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
scheme/cyclone/transforms.sld
View file

@ -1234,11 +1234,12 @@
(cond
((> (length unknown-vars) 0)
(let ((unbound-to-return (list)))
(if (member 'eval unknown-vars)
(set! unbound-to-return (cons 'eval unbound-to-return)))
(if (or (member 'read unknown-vars)
(member 'read-all unknown-vars))
(set! unbound-to-return (cons 'read unbound-to-return)))
;; Legacy? Should not be any reason to return early at this point
;(if (member 'eval unknown-vars)
; (set! unbound-to-return (cons 'eval unbound-to-return)))
;(if (or (member 'read unknown-vars)
; (member 'read-all unknown-vars))
; (set! unbound-to-return (cons 'read unbound-to-return)))
(if (and (> (length unbound-to-return) 0)
(= (length unknown-vars) (length unbound-to-return)))
(return-unbound unbound-to-return)