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

Merge pull request #717 from bjoli/patch-1

Browse source 
Fix bug in accumulating in (chibi loop)
This commit is contained in:
Alex Shinn 2020-11-04 21:12:42 +09:00 • committed by GitHub
commit 841a8a3167
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
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/loop/loop.scm
View file

@ -368,14 +368,14 @@
(accumulating (kons final i) ((var cursor) x) n . rest)) (accumulating (kons final i) ((var cursor) x) n . rest))
((accumulating (kons final init) ((var cursor) (expr (if check))) n . rest) ((accumulating (kons final init) ((var cursor) (expr (if check))) n . rest)
(n ((tmp-kons kons)) (n ((tmp-kons kons))
((cursor '() (if check (tmp-kons expr cursor) cursor))) ((cursor init (if check (tmp-kons expr cursor) cursor)))
() ()
() ()
((var (final cursor))) ((var (final cursor)))
. rest)) . rest))
((accumulating (kons final init) ((var cursor) (expr)) n . rest) ((accumulating (kons final init) ((var cursor) (expr)) n . rest)
(n ((tmp-kons kons)) (n ((tmp-kons kons))
((cursor '() (tmp-kons expr cursor))) ((cursor init (tmp-kons expr cursor)))
() ()
() ()
((var (final cursor))) ((var (final cursor)))