Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

bring memoize-to-file up-to-date with string-cursor api

Browse source
This commit is contained in:
Alex Shinn 2017-05-30 15:35:57 +09:00
parent 79a5952ee1
commit 4e14c53ddb
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/memoize.scm
View file

@ -163,7 +163,7 @@
(string-append "%0" hex) (string-append "%0" hex)
(string-append "%" hex)))) (string-append "%" hex))))
(define (collect str from to res) (define (collect str from to res)
(if (>= from to) (if (string-cursor>=? from to)
res res
(cons (substring-cursor str from to) res))) (cons (substring-cursor str from to) res)))
(let ((start (string-cursor-start str)) (let ((start (string-cursor-start str))
@ -212,7 +212,7 @@
(read read: read/ss) (read read: read/ss)
(write write: write/ss)) (write write: write/ss))
(lambda args (lambda args
(let ((file (make-path memo-dir (apply args-encoder args)))) (let ((file (make-path memo-dir (args-encoder args))))
(define (compute) (define (compute)
(let ((res (apply proc args))) (let ((res (apply proc args)))
(create-directory* (path-directory file)) (create-directory* (path-directory file))