@ -101,8 +101,7 @@
;=============== concat ======================
(define (concat left right)
((reduce-right right (lambda (current accumulator) (cons current accumulator)))
left))
((reduce-right right cons) left))
(assert-eq "concat test 1 failed"
'(1 2 3 4 5)