Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Updating compose example to force exact result.

Browse source
This commit is contained in:
Alex Shinn 2013-09-02 20:46:43 +09:00
parent c381c2cf41
commit d1efacb9c4
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
tests/r7rs-tests.scm
View file

@ -1320,7 +1320,9 @@
(lambda (f g) (lambda (f g)
(lambda args (lambda args
(f (apply g args))))) (f (apply g args)))))
(test 30 ((compose sqrt *) 12 75)) (test '(30 0)
(call-with-values (lambda () ((compose exact-integer-sqrt *) 12 75))
list))
(test '(b e h) (map cadr '((a b) (d e) (g h)))) (test '(b e h) (map cadr '((a b) (d e) (g h))))