Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-04 19:56:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add a type check

Browse source
This commit is contained in:
Justin Ethier 2018-09-21 13:06:37 -04:00
parent ade50748b6
commit 40a2131fef
1 changed files with 31 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
scheme/cyclone/cgen.sld
View file

@ -1623,10 +1623,11 @@
(for-each (for-each
(lambda (l) (lambda (l)
(let ((ast (caddr l))) (let ((ast (caddr l)))
(when (ast:lambda? ast)
(with-fnc (ast:lambda-id ast) (lambda (fnc) (with-fnc (ast:lambda-id ast) (lambda (fnc)
(when (and (adbf:well-known fnc) (when (and (adbf:well-known fnc)
(equal? (adbf:closure-size fnc) 1)) (equal? (adbf:closure-size fnc) 1))
(trace:error `(JAE ,l ,fnc)) (trace:error `(JAE ,l ,fnc))
(let* ((params-str (cdadr l)) (let* ((params-str (cdadr l))
(args-str (args-str
(string-join (string-join
@ -1652,7 +1653,7 @@
(if (> (string-length args-str) 0) (if (> (string-length args-str) 0)
(string-append "," args-str)) (string-append "," args-str))
");" ");"
"}"))))))) "}"))))))))
lambdas) lambdas)
; Print the definitions: ; Print the definitions: