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

WIP

Browse source
This commit is contained in:
Justin Ethier 2017-04-18 10:53:30 +00:00
parent d27b55d27b
commit 68b8e1fc38
1 changed files with 14 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
scheme/cyclone/cgen.sld
View file

@ -833,6 +833,17 @@
(c-compile-exp (c-compile-exp
body append-preamble cont body append-preamble cont
(st:add-function! trace var))) (st:add-function! trace var)))
;; Add inline global definition also, if applicable
; (if (and (lambda? body)
; (prim:udf? exp)
; (add-global
; (define-c->inline-var exp)
; (lambda? body)
; (c-compile-exp
; body append-preamble cont
; (st:add-function! trace var)))
(c-code/vars "" (list "")))) (c-code/vars "" (list ""))))
(define (c-compile-raw-global-lambda exp append-preamble cont trace . inline?) (define (c-compile-raw-global-lambda exp append-preamble cont trace . inline?)
@ -903,7 +914,7 @@
;; once given a C name, produce a C function ;; once given a C name, produce a C function
;; definition with that name. ;; definition with that name.
;; These procedures are stored up an eventually ;; These procedures are stored up and eventually
;; emitted. ;; emitted.
; type lambda-id = natural ; type lambda-id = natural
@ -922,8 +933,8 @@
id)) id))
; get-lambda : lambda-id -> (symbol -> string) ; get-lambda : lambda-id -> (symbol -> string)
(define (get-lambda id) ;(define (get-lambda id)
(cdr (assv id lambdas))) ; (cdr (assv id lambdas)))
(define (lambda->env exp) (define (lambda->env exp)
(let ((formals (lambda-formals->list exp))) (let ((formals (lambda-formals->list exp)))