Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 04:25:06 +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 ;; 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 ;; 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 (prim:func->prim func-sym num-args)
(define mappings (define mappings
'( '(
@ -948,6 +950,8 @@
(char<? 2 Cyc-fast-char-lt ) (char<? 2 Cyc-fast-char-lt )
(char>=? 2 Cyc-fast-char-gte) (char>=? 2 Cyc-fast-char-gte)
(char<=? 2 Cyc-fast-char-lte) (char<=? 2 Cyc-fast-char-lte)
(read-char 1 Cyc-read-char)
(peek-char 1 Cyc-peek-char)
)) ))
(let ((m (assoc func-sym mappings)) (let ((m (assoc func-sym mappings))
(udf (assoc func-sym *udf-cps->inline*)) (udf (assoc func-sym *udf-cps->inline*))