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

Added safety check

Browse source
This commit is contained in:
justin 2016-04-06 14:59:37 -04:00
parent 0fc29a1ee6
commit 6aeedbce0e
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
scheme/cyclone/transforms.sld
View file

@ -1507,6 +1507,7 @@
;(lambda->formals (car body))
(lambda->formals exp)
)
(> (length (lambda->formals exp)) 0)
;; TODO: don't do it if args are used in the body
;; this won't work if we have any num other than 1 arg
(not (member