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

check for list before calling (length)

Browse source
This commit is contained in:
Justin Ethier 2018-11-27 18:59:28 -05:00
parent 27ca613d0a
commit 984ddc76dc
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/cps-optimizations.sld
View file

@ -1856,6 +1856,7 @@
((ast:lambda? (car exp))) ((ast:lambda? (car exp)))
((pair? (cdr exp))) ((pair? (cdr exp)))
((not (cadr exp))) ((not (cadr exp)))
((list? (ast:lambda-args (car exp))))
(= 1 (length (ast:lambda-args (car exp)))) (= 1 (length (ast:lambda-args (car exp))))
;; Get information for continuation ;; Get information for continuation
(loop-sym (car (ast:lambda-args (car exp)))) (loop-sym (car (ast:lambda-args (car exp))))