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

Rename param to "cps?"

Browse source
This commit is contained in:
Justin Ethier 2017-04-18 13:21:19 +00:00
parent 9f26868ef0
commit 2da2317a91
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/cyclone/cgen.sld
View file

@ -864,9 +864,9 @@
(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 . cps?)
(let* ((precompiled-sym
(if (equal? inline? '(#t))
(if (equal? cps? '(#f))
'precompiled-inline-lambda
'precompiled-lambda))
(lambda-data
@ -900,7 +900,7 @@
append-preamble
cont
trace
#t)))) ;; Inline this one
#f)))) ;; Inline this one; CPS will not be used
;; Add this define-c
(add-global
(define->var exp)