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 #83 - Do not allow application of a const

Browse source
This commit is contained in:
Justin Ethier 2016-07-09 02:45:34 -04:00
parent d78750ac09
commit 544be96f65
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/cyclone/transforms.sld
View file

@ -1364,6 +1364,10 @@
; (cps-seq (ast-subx ast) cont-ast))
((app? ast)
;; Syntax check the function
(if (const? (car ast))
(error "Call of non-procedure: " ast))
;; Do conversion
(let ((fn (app->fun ast)))
(cond
((lambda? fn)