conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

make a small optimization

This commit is contained in:
Yuichi Nishiwaki 2016-06-03 02:42:48 +09:00
parent 365ccc7a51
commit f1b6109b2f
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
contrib/20.r7rs/scheme/lazy.scm
View File

@ -30,7 +30,11 @@
(let ((v (promise-value p))) (let ((v (promise-value p)))
(case (promise-state p) (case (promise-state p)
((cached) v) ((cached) v)
((chained) (force v)) ((chained) (let ()
(when (eq? 'cached (promise-state v))
(set-promise-state! p 'cached)
(set-promise-value! p (promise-value v)))
(force v)))
((pending) (let ((q (v))) ((pending) (let ((q (v)))
(when (eq? 'pending (promise-state p)) (when (eq? 'pending (promise-state p))
(set-promise-state! p 'chained) (set-promise-state! p 'chained)