From 1dd8b1f6eaf611cf5525065aa18f20baa1ada5f3 Mon Sep 17 00:00:00 2001 From: Rose Hogenson Date: Tue, 25 Jan 2022 09:24:50 -0800 Subject: Nitpick on loop style. --- csc/loop.csc | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'csc') 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* ...)) -- cgit v1.3.1