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

Issue #287 - Check for list before calling (length)

Browse source
This commit is contained in:
Justin Ethier 2018-12-20 13:25:52 -05:00
parent f617f8b102
commit a53af18f89
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-opt-local-var-redux.scm
View file

@ -52,6 +52,7 @@
(ast:lambda? (car exp))
(equal? (length exp) 2)
(ast:lambda? (cadr exp))
(list? (ast:lambda-args (cadr exp)))
(equal? 1 (length (ast:lambda-args (cadr exp))))
(lvr:local-tail-call-only?
(ast:lambda-body (car exp))