mirror of
https://github.com/justinethier/cyclone.git
synced 2025-07-11 23:07:36 +02:00
Bug fixes
This commit is contained in:
parent
3a98b3b8d8
commit
4f3d7055d4
1 changed files with 8 additions and 7 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue