Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-08 13:37: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 "")))) (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 (let* ((precompiled-sym
(if (equal? inline? '(#t)) (if (equal? cps? '(#f))
'precompiled-inline-lambda 'precompiled-inline-lambda
'precompiled-lambda)) 'precompiled-lambda))
(lambda-data (lambda-data
@ -900,7 +900,7 @@
append-preamble append-preamble
cont cont
trace trace
#t)))) ;; Inline this one #f)))) ;; Inline this one; CPS will not be used
;; Add this define-c ;; Add this define-c
(add-global (add-global
(define->var exp) (define->var exp)