diff options
Diffstat (limited to 'csc/loop.csc')
| -rw-r--r-- | csc/loop.csc | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/csc/loop.csc b/csc/loop.csc index 4756e23..a323495 100644 --- a/csc/loop.csc +++ b/csc/loop.csc @@ -292,9 +292,10 @@ (loop-aux continuation ... (compound ... (loop for elem in x for p = (list elem) - if last do (set-cdr! last p) - else do (set! l p) - do (set! last p))) + do (if last + (set-cdr! last p) + (set! l p)) + (set! last p))) clause* ...))) ((loop-aux "accumulation" continuation compound append x clause* ...) (loop-aux "accumulation" continuation compound append x into l finally (return l) clause* ...)) |