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

Use explicit if's instead of memv for case

Browse source 
Theory is the generated code can make better use of the processor cached when using explicit if statements than aggregating over a list via memv, since pairs in the list can be located anywhere across memory.
This commit is contained in:
Justin Ethier 2019-03-20 17:39:55 -04:00
parent 483cdd2758
commit 12d6cbce5a
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
scheme/base.sld
View file

@ -446,6 +446,12 @@
`(,(cadr exprs) ,(rename 'tmp))) `(,(cadr exprs) ,(rename 'tmp)))
(else (else
`(,(rename 'begin) ,@exprs)))) `(,(rename 'begin) ,@exprs))))
(define (agg-cond tmp-sym lis)
(if (null? lis)
#f
`(if (eq? ,tmp-sym (,(rename 'quote) ,(car lis)))
#t
,(agg-cond tmp-sym (cdr lis)))))
(define (clause ls) (define (clause ls)
(cond (cond
((null? ls) #f) ((null? ls) #f)
@ -457,8 +463,10 @@
,(body (cdar ls)) ,(body (cdar ls))
,(clause (cdr ls)))) ,(clause (cdr ls))))
(else (else
`(,(rename 'if) (,(rename 'memv) ,(rename 'tmp) `(,(rename 'if)
(,(rename 'quote) ,(caar ls))) ,(agg-cond (rename 'tmp) (caar ls))
;(,(rename 'memv) ,(rename 'tmp)
; (,(rename 'quote) ,(caar ls)))
,(body (cdar ls)) ,(body (cdar ls))
,(clause (cdr ls)))))) ,(clause (cdr ls))))))
`(let ((,(rename 'tmp) ,(cadr expr))) `(let ((,(rename 'tmp) ,(cadr expr)))