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

Do not attempt to memoize functions that take 0 args

Browse source
This commit is contained in:
Justin Ethier 2019-02-15 12:36:54 -05:00
parent 7021855eca
commit fa01202df8
2 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
cyclone.scm
View file

@ -450,7 +450,7 @@
(set! globals (append globals '(Cyc-memoize))) (set! globals (append globals '(Cyc-memoize)))
(set! imported-vars (cons (lib:list->import-set '(Cyc-memoize srfi 69)) imported-vars)) (set! imported-vars (cons (lib:list->import-set '(Cyc-memoize srfi 69)) imported-vars))
) )
TODO: this blows up compiling the tail-call-opt example program...
(inject-import '(scheme cyclone common)) (inject-import '(scheme cyclone common))
(inject-import '(scheme base)) (inject-import '(scheme base))
(inject-import '(scheme char)) (inject-import '(scheme char))

1
scheme/cyclone/cps-opt-memoize-pure-fncs.scm
View file

@ -107,6 +107,7 @@
(ref? var) (ref? var)
(ast:lambda? body) (ast:lambda? body)
(eq? (ast:lambda-formals-type body) 'args:fixed) (eq? (ast:lambda-formals-type body) 'args:fixed)
(> (length (ast:lambda-args body)) 1) ;; Need some args other than the cont
(< (length (ast:lambda-args body)) 4) ;; Too many combinations w/more args (< (length (ast:lambda-args body)) 4) ;; Too many combinations w/more args
(adb:get/default var #f) (adb:get/default var #f)
(adbv:self-rec-call? (adb:get/default var #f)) (adbv:self-rec-call? (adb:get/default var #f))