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

Issue #217 - Use primitives directly if possible

Browse source
This commit is contained in:
Justin Ethier 2017-09-05 17:44:25 -04:00
parent db011aa1af
commit 94df8603c6
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/cyclone/primitives.sld
View file

@ -939,7 +939,9 @@
;;
;; Note the only reason to do this is to change from a CPS-style
;; function to one that can be inlined with no CPS, which yields
;; a significant speed improvement.
;; a significant speed improvement. Or, alternatively there can
;; also be a speed improvement if the prim can avoid having to
;; load C varargs.
(define (prim:func->prim func-sym num-args)
(define mappings
'(
@ -948,6 +950,8 @@
(char<? 2 Cyc-fast-char-lt )
(char>=? 2 Cyc-fast-char-gte)
(char<=? 2 Cyc-fast-char-lte)
(read-char 1 Cyc-read-char)
(peek-char 1 Cyc-peek-char)
))
(let ((m (assoc func-sym mappings))
(udf (assoc func-sym *udf-cps->inline*))