Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-12 07:17:37 +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 ,(caddr exp) ;; Args
,(cadddr exp) ;; Body ,(cadddr exp) ;; Body
)) ))
(lid 999) ;; TODO: (allocate-lambda lambda-data)) (lid (allocate-lambda lambda-data))
;(lid 999) ;; TODO: (allocate-lambda lambda-data))
) )
(add-global (add-global
(define->var exp) (define->var exp)
@ -1011,7 +1012,7 @@
(c-code/vars (c-code/vars
(string-append "&" cv-name) (string-append "&" cv-name)
(list (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 lid) ");" cv-name ".num_args = "
(number->string 2) ;; TODO: figure out number of args (number->string 2) ;; TODO: figure out number of args
";"))) ";")))
@ -1320,11 +1321,11 @@
(for-each (for-each
(lambda (l) (lambda (l)
(cond (cond
((equal? 'precompiled-lambda (cadr l)) ((equal? 'precompiled-lambda (caadr l))
(emit* (emit*
"static void __lambda_" "static void __lambda_"
(number->string (car l)) (number->string (car l))
(caddr l) (cadadr l)
" ;")) " ;"))
(else (else
(emit* (emit*
@ -1340,13 +1341,13 @@
(for-each (for-each
(lambda (l) (lambda (l)
(cond (cond
((equal? 'precompiled-lambda (cadr l)) ((equal? 'precompiled-lambda (caadr l))
(emit* (emit*
"static void __lambda_" "static void __lambda_"
(number->string (car l)) (number->string (car l))
(caddr l) (cadadr l)
" {" " {"
(cadddr l) (car (cddadr l))
" }" " }"
)) ))
(else (else