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

Bug fixes

Browse source
This commit is contained in:
Justin Ethier 2016-01-09 22:52:15 -05:00
parent 3a98b3b8d8
commit 4f3d7055d4
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
scheme/cyclone/cgen.sld
View file

@ -1002,7 +1002,8 @@
,(caddr exp) ;; Args
,(cadddr exp) ;; Body
))
(lid 999) ;; TODO: (allocate-lambda lambda-data))
(lid (allocate-lambda lambda-data))
;(lid 999) ;; TODO: (allocate-lambda lambda-data))
)
(add-global
(define->var exp)
@ -1011,7 +1012,7 @@
(c-code/vars
(string-append "&" cv-name)
(list
(string-append "mclosure0(" cv-name ", (function_type)__lambda"
(string-append "mclosure0(" cv-name ", (function_type)__lambda_"
(number->string lid) ");" cv-name ".num_args = "
(number->string 2) ;; TODO: figure out number of args
";")))
@ -1320,11 +1321,11 @@
(for-each
(lambda (l)
(cond
((equal? 'precompiled-lambda (cadr l))
((equal? 'precompiled-lambda (caadr l))
(emit*
"static void __lambda_"
(number->string (car l))
(caddr l)
(cadadr l)
" ;"))
(else
(emit*
@ -1340,13 +1341,13 @@
(for-each
(lambda (l)
(cond
((equal? 'precompiled-lambda (cadr l))
((equal? 'precompiled-lambda (caadr l))
(emit*
"static void __lambda_"
(number->string (car l))
(caddr l)
(cadadr l)
" {"
(cadddr l)
(car (cddadr l))
" }"
))
(else