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

WIP

Browse source
This commit is contained in:
Justin Ethier 2017-04-04 19:00:50 -04:00
parent 0e092da703
commit acef00a5b6
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
scheme/cyclone/primitives.sld
View file

@ -907,6 +907,11 @@
(cons 'Cyc-fast-gte (cdr prim-call))) (cons 'Cyc-fast-gte (cdr prim-call)))
((and (equal? (car prim-call) '<=) (= (length prim-call) 3)) ((and (equal? (car prim-call) '<=) (= (length prim-call) 3))
(cons 'Cyc-fast-lte (cdr prim-call))) (cons 'Cyc-fast-lte (cdr prim-call)))
;; TODO: exploring this idea, although we only get here for prim-calls, implying that
;; either the inlinable function's CPS version must be marked as a prim, or this
;; conversion logic must be put somewhere else
;;((assoc (car prim-call) *udf-cps->inline*)
;; (cons (cdr (assoc (car prim-call) *udf-cps->inline*)) (cdr prim-call)))
(else (else
prim-call))) prim-call)))
)) ))