Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-04 03:36:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

re-enable fixed tests

Browse source
This commit is contained in:
Alex Shinn 2018-01-07 14:53:03 +09:00
parent f29a404324
commit a328b3fb4a
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/show-test.sld
View file

@ -503,7 +503,7 @@ equivalent to REVERSE.
(lp (cdr ls) (lp (cdr ls)
(kons (car ls) acc))))))))) (kons (car ls) acc)))))))))
'(test (test
"(define (fold kons knil ls) ; The fundamental list iterator. "(define (fold kons knil ls) ; The fundamental list iterator.
(let lp ((ls ls) (acc knil)) ; Applies KONS to each element of (let lp ((ls ls) (acc knil)) ; Applies KONS to each element of
(if (null? ls) ; LS and the result of the previous (if (null? ls) ; LS and the result of the previous
@ -527,7 +527,7 @@ equivalent to REVERSE.
(with ((width 36)) (with ((width 36))
(wrapped "The fundamental list iterator. Applies KONS to each element of LS and the result of the previous application, beginning with KNIL. With KONS as CONS and KNIL as '(), equivalent to REVERSE.")))))) (wrapped "The fundamental list iterator. Applies KONS to each element of LS and the result of the previous application, beginning with KNIL. With KONS as CONS and KNIL as '(), equivalent to REVERSE."))))))
'(test (test
"(define (fold kons knil ls) ; The fundamental list iterator. "(define (fold kons knil ls) ; The fundamental list iterator.
(let lp ((ls ls) (acc knil)) ; Applies KONS to each element of (let lp ((ls ls) (acc knil)) ; Applies KONS to each element of
(if (null? ls) ; LS and the result of the previous (if (null? ls) ; LS and the result of the previous