diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-01-25 09:24:50 -0800 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-01-25 09:24:50 -0800 |
| commit | 1dd8b1f6eaf611cf5525065aa18f20baa1ada5f3 (patch) | |
| tree | e94a9b48033258559e4118ce62a8c0a6a23e5c9f /csc | |
| parent | Use an exception for loop return. (diff) | |
| download | chromatopelma-1dd8b1f6eaf611cf5525065aa18f20baa1ada5f3.tar.zst | |
Nitpick on loop style.
Diffstat (limited to '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* ...)) |