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

Add check for CPS prims

Browse source
This commit is contained in:
Justin Ethier 2018-11-22 23:15:12 -05:00
parent 07683bf273
commit 729c0d4025
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/cyclone/cps-opt-local-var-redux.scm
View file

@ -107,6 +107,12 @@
(scan (if->else exp) fail?)) (scan (if->else exp) fail?))
((app? exp) ((app? exp)
(cond (cond
;;; TODO: may need to check for prim:cont? and abort accordingly
;; check out code generated for scheme/cyclone/util.sld WRT symbol->string
;; cannot proceed with this since by definition these functions require CPS
((and (prim? (car exp))
(prim:cont? (car exp)))
(return #f))
((and (equal? (car exp) sym) ((and (equal? (car exp) sym)
(not fail?)) (not fail?))
(map (lambda (e) (scan e fail?)) (cdr exp))) ;; Sym is OK, skip (map (lambda (e) (scan e fail?)) (cdr exp))) ;; Sym is OK, skip