>>> Unpacking source... >>> Unpacking scm5e4.zip to /var/tmp/portage/dev-scheme/scm-5.5.4/work >>> Source unpacked. >>> Compiling source in /var/tmp/portage/dev-scheme/scm-5.5.4/work/scm ... * Making scmlit Makefile:89: srcdir.mk: Aucun fichier ou répertoire de ce type echo "CPROTO=`type cproto | sed 's%.* %%'`" > srcdir.mk /bin/sh: line 0: type: cproto: not found echo "srcdir=`pwd`/" >> srcdir.mk echo "#ifndef IMPLINIT" > newflags.h echo "#define IMPLINIT \"/var/tmp/portage/dev-scheme/scm-5.5.4/work/scm/Init5e4.scm\"" >> newflags.h echo "#endif" >> newflags.h echo "#define CHEAP_CONTINUATIONS" >> newflags.h echo "#define CAUTIOUS" >> newflags.h if (cmp -s newflags.h scmflags.h) then rm newflags.h; \ else mv newflags.h scmflags.h; fi cc -c -O2 -march=pentium-m -pipe -fomit-frame-pointer scm.c -o scm.o cc -c -O2 -march=pentium-m -pipe -fomit-frame-pointer time.c -o time.o cc -c -O2 -march=pentium-m -pipe -fomit-frame-pointer repl.c -o repl.o repl.c: In function ‘everr’: repl.c:2156: attention : assignment discards qualifiers from pointer target type repl.c:2157: attention : assignment discards qualifiers from pointer target type cc -c -O2 -march=pentium-m -pipe -fomit-frame-pointer scl.c -o scl.o cc -c -O2 -march=pentium-m -pipe -fomit-frame-pointer sys.c -o sys.o cc -c -O2 -march=pentium-m -pipe -fomit-frame-pointer eval.c -o eval.o cc -c -O2 -march=pentium-m -pipe -fomit-frame-pointer subr.c -o subr.o cc -c -O2 -march=pentium-m -pipe -fomit-frame-pointer unif.c -o unif.o cc -c -O2 -march=pentium-m -pipe -fomit-frame-pointer rope.c -o rope.o cc -c -O2 -march=pentium-m -pipe -fomit-frame-pointer continue.c -o continue.o cc -c -O2 -march=pentium-m -pipe -fomit-frame-pointer findexec.c -o findexec.o cc -c -O2 -march=pentium-m -pipe -fomit-frame-pointer script.c -o script.o script.c: In function ‘find_impl_file’: script.c:173: attention : initialization discards qualifiers from pointer target type script.c:189: attention : assignment discards qualifiers from pointer target type script.c: In function ‘script_process_argv’: script.c:386: attention : assignment discards qualifiers from pointer target type script.c:401: attention : assignment discards qualifiers from pointer target type script.c:404: attention : assignment discards qualifiers from pointer target type cc -c -O2 -march=pentium-m -pipe -fomit-frame-pointer debug.c -o debug.o cc -c -O2 -march=pentium-m -pipe -fomit-frame-pointer scmmain.c -o scmmain.o scmmain.c: In function ‘main’: scmmain.c:133: attention : assignment discards qualifiers from pointer target type scmmain.c:143: attention : assignment discards qualifiers from pointer target type scmmain.c:144: attention : passing argument 1 of ‘script_count_argv’ from incompatible pointer type scmmain.c:146: attention : assignment from incompatible pointer type scmmain.c:148: attention : passing argument 2 of ‘scm_find_execpath’ from incompatible pointer type scmmain.c:155: attention : passing argument 2 of ‘scm_init_from_argv’ from incompatible pointer type cp -p requires.scm require.scm cc -o scmlit scm.o time.o repl.o scl.o sys.o eval.o subr.o unif.o rope.o continue.o findexec.o script.o debug.o scmmain.o sys.o: In function `ltmpnam': sys.c:(.text+0x569a): warning: the use of `tmpnam' is dangerous, better use `mkstemp' make checklit make[1]: entrant dans le répertoire « /var/tmp/portage/dev-scheme/scm-5.5.4/work/scm » ./scmlit -fr4rstest.scm -e'(test-sc4)(test-delay)(gc)' \ -e '(or (null? errs) (quit 1))' SECTION(2 1) SECTION(3 4) # # # # # # # # # (#t #f #f #f #f #f #f #f #f)#t (#t #f #f #f #f #f #f #f #f)#f (#f #t #f #f #f #f #f #f #f)#\a (#f #f #t #f #f #f #f #f #f)() (#f #f #f #t #f #f #f #f #f)9739 (#f #f #f #f #t #f #f #f #f)(test) (#f #f #f #f #f #t #f #f #f)# (#f #f #f #f #f #f #t #f #f)"test" (#f #f #f #f #f #f #t #f #f)"" (#f #f #f #f #f #f #f #t #f)test (#f #f #f #f #f #f #f #f #t)#() (#f #f #f #f #f #f #f #f #t)#(a b c) SECTION(4 1 2) (quote (quote a)) ==> (quote a) (quote (quote a)) ==> (quote a) SECTION(4 1 3) (# 3 4) ==> 12 SECTION(4 1 4) (# "r4rstest.scm": (x) (+ x x)> 4) ==> 8 (# 7 10) ==> 3 (# "r4rstest.scm": (y) (+ x y)> 6) ==> 10 (# "r4rstest.scm": x x> 3 4 5 6) ==> (3 4 5 6) (# "r4rstest.scm": (x y . z) z> 3 4 5 6) ==> (5 6) SECTION(4 1 5) (if yes) ==> yes (if no) ==> no (if 1) ==> 1 SECTION(4 1 6) (define 3) ==> 3 (set! 5) ==> 5 SECTION(4 2 1) (cond greater) ==> greater (cond equal) ==> equal (cond 2) ==> 2 (case composite) ==> composite (case consonant) ==> consonant (and #t) ==> #t (and #f) ==> #f (and (f g)) ==> (f g) (and #t) ==> #t (or #t) ==> #t (or #t) ==> #t (or #f) ==> #f (or #f) ==> #f (or (b c)) ==> (b c) SECTION(4 2 2) (let 6) ==> 6 (let 35) ==> 35 (let* 70) ==> 70 (letrec #t) ==> #t (let 5) ==> 5 (let 34) ==> 34 (let 6) ==> 6 (let 34) ==> 34 (let 34) ==> 34 (let* 7) ==> 7 (let* 34) ==> 34 (let* 8) ==> 8 (let* 34) ==> 34 (letrec 9) ==> 9 (letrec 34) ==> 34 (letrec 10) ==> 10 (letrec 34) ==> 34 SECTION(4 2 3) (begin 6) ==> 6 SECTION(4 2 4) (do #(0 1 2 3 4)) ==> #(0 1 2 3 4) (do 25) ==> 25 (let 1) ==> 1 (let ((6 1 3) (-5 -2))) ==> ((6 1 3) (-5 -2)) (let -1) ==> -1 SECTION(4 2 6) (quasiquote (list 3 4)) ==> (list 3 4) (quasiquote (list a (quote a))) ==> (list a (quote a)) (quasiquote (a 3 4 5 6 b)) ==> (a 3 4 5 6 b) (quasiquote ((foo 7) . cons)) ==> ((foo 7) . cons) (quasiquote #(10 5 2 4 3 8)) ==> #(10 5 2 4 3 8) (quasiquote 5) ==> 5 (quasiquote (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f)) ==> (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f) (quasiquote (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e)) ==> (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e) (quasiquote (list 3 4)) ==> (list 3 4) (quasiquote (quasiquote (list (unquote (+ 1 2)) 4))) ==> (quasiquote (list (unquote (+ 1 2)) 4)) SECTION(5 2 1) (tprint #t) ==> #t (define 6) ==> 6 (define 1) ==> 1 (define 9) ==> 9 (define 9) ==> 9 (define 10) ==> 10 (# 6) ==> (3 6) (# 6) ==> 9 SECTION(5 2 2) (define 45) ==> 45 (#) ==> 5 (define 34) ==> 34 (#) ==> 5 (define 34) ==> 34 (# 88) ==> 88 (# 4) ==> 4 (define 34) ==> 34 (internal-define 99) ==> 99 (internal-define 77) ==> 77 SECTION(6 1) (# #t) ==> #f (# 3) ==> #f (# (3)) ==> #f (# #f) ==> #t (# ()) ==> #f (# ()) ==> #f (# nil) ==> #f SECTION(6 2) (# a a) ==> #t (# a b) ==> #f (# 2 2) ==> #t (# () ()) ==> #t (# 10000 10000) ==> #t (# (1 . 2) (1 . 2)) ==> #f (# # "r4rstest.scm": () 1> # "r4rstest.scm": () 2>) ==> #f (# #f nil) ==> #f (# # #) ==> #t (# # "r4rstest.scm": () (set! n (+ n 1)) n> # "r4rstest.scm": () (set! n (+ n 1)) n>) ==> #t (# # "r4rstest.scm": () (set! n (+ n 1)) n> # "r4rstest.scm": () (set! n (+ n 1)) n>) ==> #f (# # #) ==> #f (# a a) ==> #t (# (a) (a)) ==> #f (# () ()) ==> #t (# # #) ==> #t (# (a) (a)) ==> #t (# #() #()) ==> #t (# # #) ==> #t (# a a) ==> #t (# (a) (a)) ==> #t (# (a (b) c) (a (b) c)) ==> #t (# "abc" "abc") ==> #t (# 2 2) ==> #t (# #(a a a a a) #(a a a a a)) ==> #t SECTION(6 3) (dot (a b c d e)) ==> (a b c d e) (# (a b c)) ==> #t (set-cdr! (a . 4)) ==> (a . 4) (# (a . 4) (a . 4)) ==> #t (dot (a b c . d)) ==> (a b c . d) (# (a . 4)) ==> #f (list? #f) ==> #f (# a ()) ==> (a) (# (a) (b c d)) ==> ((a) b c d) (# "a" (b c)) ==> ("a" b c) (# a 3) ==> (a . 3) (# (a b) c) ==> ((a b) . c) (# (a b c)) ==> a (# ((a) b c d)) ==> (a) (# (1 . 2)) ==> 1 (# ((a) b c d)) ==> (b c d) (# (1 . 2)) ==> 2 (# a 7 c) ==> (a 7 c) (#) ==> () (# (a b c)) ==> 3 (# (a (b) (c d e))) ==> 3 (# ()) ==> 0 (# (x) (y)) ==> (x y) (# (a) (b c d)) ==> (a b c d) (# (a (b)) ((c))) ==> (a (b) (c)) (#) ==> () (# (a b) (c . d)) ==> (a b c . d) (# () a) ==> a (# (a b c)) ==> (c b a) (# (a (b c) d (e (f)))) ==> ((e (f)) d (b c) a) (# (a b c d) 2) ==> c (# a (a b c)) ==> (a b c) (# b (a b c)) ==> (b c) (# a (b c d)) ==> #f (# (a) (b (a) c)) ==> #f (# (a) (b (a) c)) ==> ((a) c) (# 101 (100 101 102)) ==> (101 102) (# a ((a 1) (b 2) (c 3))) ==> (a 1) (# b ((a 1) (b 2) (c 3))) ==> (b 2) (# d ((a 1) (b 2) (c 3))) ==> #f (# (a) (((a)) ((b)) ((c)))) ==> #f (# (a) (((a)) ((b)) ((c)))) ==> ((a)) (# 5 ((2 3) (5 7) (11 13))) ==> (5 7) SECTION(6 4) (# a) ==> #t (standard-case #t) ==> #t (standard-case #t) ==> #t (#string> flying-fish) ==> "flying-fish" (#string> martin) ==> "martin" (#string> \Malvina) ==> "Malvina" (standard-case #t) ==> #t (string-set! "cb") ==> "cb" (#string> ab) ==> "ab" (#symbol> "ab") ==> ab (# mississippi mississippi) ==> #t (string->symbol #f) ==> #f (#symbol> "jollywog") ==> jollywog SECTION(6 5 5) (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #f (# 0 0) ==> 1 (# 0 1) ==> 0 (# 0 256) ==> 0 (# -1 256) ==> 1 (# -1 255) ==> -1 (# -1 -256) ==> 1 (# -1 -255) ==> -1 (# 256 0) ==> 1 (# -256 0) ==> 1 (# 256 1) ==> 256 (# -256 1) ==> -256 (# 2 3) ==> 8 (# -2 3) ==> -8 (# 3 2) ==> 9 (# -3 2) ==> 9 (# 22 22 22) ==> #t (# 22 22) ==> #t (# 34 34 35) ==> #f (# 34 35) ==> #f (#> 3 -6246) ==> #t (#> 9 9 -2424) ==> #f (#=> 3 -4 -6246) ==> #t (#=> 9 9) ==> #t (#=> 8 9) ==> #f (# -1 2 3 4 5 6 7 8) ==> #t (# -1 2 3 4 4 5 6 7) ==> #f (# -1 2 3 4 5 6 7 8) ==> #t (# -1 2 3 4 4 5 6 7) ==> #t (# 1 3 2) ==> #f (#=> 1 3 2) ==> #f (# 0) ==> #t (# 1) ==> #f (# -1) ==> #f (# -100) ==> #f (# 4) ==> #t (# -4) ==> #f (# 0) ==> #f (# 4) ==> #f (# -4) ==> #t (# 0) ==> #f (# 3) ==> #t (# 2) ==> #f (# -4) ==> #f (# -1) ==> #t (# 3) ==> #f (# 2) ==> #t (# -4) ==> #t (# -1) ==> #f (# 34 5 7 38 6) ==> 38 (# 3 5 5 330 4 -24) ==> -24 (# 3 4) ==> 7 (# 3) ==> 3 (#) ==> 0 (# 4) ==> 4 (#) ==> 1 (# 3 4) ==> -1 (# 3) ==> -3 (# -7) ==> 7 (# 7) ==> 7 (# 0) ==> 0 (# 35 7) ==> 5 (# -35 7) ==> -5 (# 35 -7) ==> -5 (# -35 -7) ==> 5 (# 13 4) ==> 1 (# 13 4) ==> 1 (# -13 4) ==> 3 (# -13 4) ==> -1 (# 13 -4) ==> -3 (# 13 -4) ==> 1 (# -13 -4) ==> -1 (# -13 -4) ==> -1 (# 0 86400) ==> 0 (# 0 -86400) ==> 0 (# 238 9) ==> #t (# -238 9) ==> #t (# 238 -9) ==> #t (# -238 -9) ==> #t (# 0 4) ==> 4 (# -4 0) ==> 4 (# 32 -36) ==> 4 (#) ==> 0 (# 32 -36) ==> 288 (#) ==> 1 SECTION(6 5 5) (#number "r4rstest.scm": (str) (#@define ((ans (string->number str))) (cond ((not ans) #t) ((number? ans) #t) (else ans)))> "+#.#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-#.#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#.#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "+1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0-0/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0-1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0+1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#e") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#i0/0") ==> #t SECTION(6 5 9) (#string> 0) ==> "0" (#string> 100) ==> "100" (#string> 256 16) ==> "100" (#number> "100") ==> 100 (#number> "100" 16) ==> 256 (#number> "") ==> #f (#number> ".") ==> #f (#number> "d") ==> #f (#number> "D") ==> #f (#number> "i") ==> #f (#number> "I") ==> #f (#number> "3i") ==> #f (#number> "3I") ==> #f (#number> "33i") ==> #f (#number> "33I") ==> #f (#number> "3.3i") ==> #f (#number> "3.3I") ==> #f (#number> "-") ==> #f (#number> "+") ==> #f (string->number #t) ==> #t (string->number #t) ==> #t SECTION(6 6) (# #\space #\space) ==> #t (# #\space #\space) ==> #t (# #\a) ==> #t (# #\() ==> #t (# #\space) ==> #t (# #\nl) ==> #t (# #\A #\B) ==> #f (# #\a #\b) ==> #f (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (# #\A #\B) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #f (#?> #\A #\B) ==> #f (#?> #\a #\b) ==> #f (#?> #\9 #\0) ==> #t (#?> #\A #\A) ==> #f (# #\A #\B) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (#=?> #\A #\B) ==> #f (#=?> #\a #\b) ==> #f (#=?> #\9 #\0) ==> #t (#=?> #\A #\A) ==> #t (# #\A #\B) ==> #f (# #\a #\B) ==> #f (# #\A #\b) ==> #f (# #\a #\b) ==> #f (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (# #\A #\a) ==> #t (# #\A #\B) ==> #t (# #\a #\B) ==> #t (# #\A #\b) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #f (# #\A #\a) ==> #f (#?> #\A #\B) ==> #f (#?> #\a #\B) ==> #f (#?> #\A #\b) ==> #f (#?> #\a #\b) ==> #f (#?> #\9 #\0) ==> #t (#?> #\A #\A) ==> #f (#?> #\A #\a) ==> #f (# #\A #\B) ==> #t (# #\a #\B) ==> #t (# #\A #\b) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (# #\A #\a) ==> #t (#=?> #\A #\B) ==> #f (#=?> #\a #\B) ==> #f (#=?> #\A #\b) ==> #f (#=?> #\a #\b) ==> #f (#=?> #\9 #\0) ==> #t (#=?> #\A #\A) ==> #t (#=?> #\A #\a) ==> #t (# #\a) ==> #t (# #\A) ==> #t (# #\z) ==> #t (# #\Z) ==> #t (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #f (# #\;) ==> #f (# #\a) ==> #f (# #\A) ==> #f (# #\z) ==> #f (# #\Z) ==> #f (# #\0) ==> #t (# #\9) ==> #t (# #\space) ==> #f (# #\;) ==> #f (# #\a) ==> #f (# #\A) ==> #f (# #\z) ==> #f (# #\Z) ==> #f (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #t (# #\;) ==> #f (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #f (# #\;) ==> #f (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #f (# #\;) ==> #f (#char> 46) ==> #\. (#char> 65) ==> #\A (#char> 97) ==> #\a (# #\A) ==> #\A (# #\a) ==> #\A (# #\A) ==> #\a (# #\a) ==> #\a SECTION(6 7) (# "The word \"recursion\\\" has many meanings.") ==> #t (string-set! "?**") ==> "?**" (# #\a #\b #\c) ==> "abc" (#) ==> "" (# "abc") ==> 3 (# "abc" 0) ==> #\a (# "abc" 2) ==> #\c (# "") ==> 0 (# "ab" 0 0) ==> "" (# "ab" 1 1) ==> "" (# "ab" 2 2) ==> "" (# "ab" 0 1) ==> "a" (# "ab" 1 2) ==> "b" (# "ab" 0 2) ==> "ab" (# "foo" "bar") ==> "foobar" (# "foo") ==> "foo" (# "foo" "") ==> "foo" (# "" "foo") ==> "foo" (#) ==> "" (# 0) ==> "" (# "" "") ==> #t (# "" "") ==> #f (#?> "" "") ==> #f (# "" "") ==> #t (#=?> "" "") ==> #t (# "" "") ==> #t (# "" "") ==> #f (#?> "" "") ==> #f (# "" "") ==> #t (#=?> "" "") ==> #t (# "A" "B") ==> #f (# "a" "b") ==> #f (# "9" "0") ==> #f (# "A" "A") ==> #t (# "A" "B") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #f (#?> "A" "B") ==> #f (#?> "a" "b") ==> #f (#?> "9" "0") ==> #t (#?> "A" "A") ==> #f (# "A" "B") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #t (#=?> "A" "B") ==> #f (#=?> "a" "b") ==> #f (#=?> "9" "0") ==> #t (#=?> "A" "A") ==> #t (# "A" "B") ==> #f (# "a" "B") ==> #f (# "A" "b") ==> #f (# "a" "b") ==> #f (# "9" "0") ==> #f (# "A" "A") ==> #t (# "A" "a") ==> #t (# "A" "B") ==> #t (# "a" "B") ==> #t (# "A" "b") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #f (# "A" "a") ==> #f (#?> "A" "B") ==> #f (#?> "a" "B") ==> #f (#?> "A" "b") ==> #f (#?> "a" "b") ==> #f (#?> "9" "0") ==> #t (#?> "A" "A") ==> #f (#?> "A" "a") ==> #f (# "A" "B") ==> #t (# "a" "B") ==> #t (# "A" "b") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #t (# "A" "a") ==> #t (#=?> "A" "B") ==> #f (#=?> "a" "B") ==> #f (#=?> "A" "b") ==> #f (#=?> "a" "b") ==> #f (#=?> "9" "0") ==> #t (#=?> "A" "A") ==> #t (#=?> "A" "a") ==> #t SECTION(6 8) (# #(0 (2 2 2 2) "Anna")) ==> #t (# a b c) ==> #(a b c) (#) ==> #() (# #(0 (2 2 2 2) "Anna")) ==> 3 (# #()) ==> 0 (# #(1 1 2 3 5 8 13 21) 5) ==> 8 (vector-set #(0 ("Sue" "Sue") "Anna")) ==> #(0 ("Sue" "Sue") "Anna") (# 2 hi) ==> #(hi hi) (# 0) ==> #() (# 0 a) ==> #() SECTION(6 9) (# #) ==> #t (# # "r4rstest.scm": (x) (* x x)>) ==> #t (# (lambda (x) (* x x))) ==> #f (# #) ==> #t (# # (3 4)) ==> 7 (# # "r4rstest.scm": (a b) (+ a b)> (3 4)) ==> 7 (# # 10 (3 4)) ==> 17 (# # ()) ==> () (# "r4rstest.scm": args (f (apply g args))> 12 75) ==> 30 (# # ((a b) (d e) (g h))) ==> (b e h) (# # (1 2 3) (4 5 6)) ==> (5 7 9) (# # (1 2 3)) ==> (1 2 3) (# # (1 2 3)) ==> (1 2 3) (# # (1 2 3)) ==> (-1 -2 -3) (for-each #(0 1 4 9 16)) ==> #(0 1 4 9 16) (# # "r4rstest.scm": (exit) (for-each (lambda (x) (if (negative? x) (exit x))) (quote (54 0 37 -3 245 19))) #t>) ==> -3 (# (1 2 3 4)) ==> 4 (# (a b . c)) ==> #f (# # ()) ==> () SECTION(6 10 1) (# #) ==> #t (# #) ==> #t (# "r4rstest.scm" #) ==> #t (# #) ==> #t SECTION(6 10 2) (# #) ==> #\; (# #) ==> #\; (# #) ==> (define cur-section (quote ())) (# #) ==> #\( (# #) ==> (define errs (quote ())) SECTION(6 10 3) (# "tmp1" # "r4rstest.scm": (test-file) (write-char #\; test-file) (display #\; test-file) (display ";" test-file) (write write-test-obj test-file) (newline test-file) (write load-test-obj test-file) (output-port? test-file)>) ==> #t (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (# #) ==> #t (# #) ==> #t (input-port? #t) ==> #t (# #) ==> #\; (# #) ==> #\; (# #) ==> #\; (# #) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (# #) ==> #t (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (# #) ==> #t (# #) ==> #t (input-port? #t) ==> #t (# #) ==> #\; (# #) ==> #\; (# #) ==> #\; (# #) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) Passed all tests To fully test continuations, Scheme 4, and DELAY/FORCE do: (test-cont) (test-sc4) (test-delay) ;testing scheme 4 functions; SECTION(6 7) (#list> "P l") ==> (#\P #\space #\l) (#list> "") ==> () (#string> (#\1 #\\ #\")) ==> "1\\\"" (#string> ()) ==> "" SECTION(6 8) (#list> #(dah dah didah)) ==> (dah dah didah) (#list> #()) ==> () (#vector> (dididit dah)) ==> #(dididit dah) (#vector> ()) ==> #() SECTION(6 10 4) (load (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) Passed all tests ;testing DELAY and FORCE; SECTION(6 9) (delay 3) ==> 3 (delay (3 3)) ==> (3 3) (delay 2) ==> 2 (# # count x) count (force p)))>>) ==> 6 (# #) ==> 6 (force 3) ==> 3 Passed all tests make[1]: quittant le répertoire « /var/tmp/portage/dev-scheme/scm-5.5.4/work/scm » * Creating script to build scm * Building scm scmmain.c: In function ‘main’: scmmain.c:133: attention : assignment discards qualifiers from pointer target type scmmain.c:143: attention : assignment discards qualifiers from pointer target type scmmain.c:144: attention : passing argument 1 of ‘script_count_argv’ from incompatible pointer type scmmain.c:146: attention : assignment from incompatible pointer type scmmain.c:148: attention : passing argument 2 of ‘scm_find_execpath’ from incompatible pointer type scmmain.c:155: attention : passing argument 2 of ‘scm_init_from_argv’ from incompatible pointer type script.c: In function ‘find_impl_file’: script.c:173: attention : initialization discards qualifiers from pointer target type script.c:189: attention : assignment discards qualifiers from pointer target type script.c: In function ‘script_process_argv’: script.c:386: attention : assignment discards qualifiers from pointer target type script.c:401: attention : assignment discards qualifiers from pointer target type script.c:404: attention : assignment discards qualifiers from pointer target type repl.c: In function ‘everr’: repl.c:2156: attention : assignment discards qualifiers from pointer target type repl.c:2157: attention : assignment discards qualifiers from pointer target type sys.o: In function `ltmpnam': sys.c:(.text+0x591a): warning: the use of `tmpnam' is dangerous, better use `mkstemp' >>> Source compiled. >>> Test phase [check]: dev-scheme/scm-5.5.4 ./scm -fr4rstest.scm -e'(test-sc4)(test-cont)(test-delay)(gc)' \ -e '(or (null? errs) (quit 1))' SECTION(2 1) SECTION(3 4) # # # # # # # # # (#t #f #f #f #f #f #f #f #f)#t (#t #f #f #f #f #f #f #f #f)#f (#f #t #f #f #f #f #f #f #f)#\a (#f #f #t #f #f #f #f #f #f)() (#f #f #f #t #f #f #f #f #f)9739 (#f #f #f #f #t #f #f #f #f)(test) (#f #f #f #f #f #t #f #f #f)# (#f #f #f #f #f #f #t #f #f)"test" (#f #f #f #f #f #f #t #f #f)"" (#f #f #f #f #f #f #f #t #f)test (#f #f #f #f #f #f #f #f #t)#() (#f #f #f #f #f #f #f #f #t)#(a b c) SECTION(4 1 2) (quote (quote a)) ==> (quote a) (quote (quote a)) ==> (quote a) SECTION(4 1 3) (# 3 4) ==> 12 SECTION(4 1 4) (# 4) ==> 8 (# 7 10) ==> 3 (# 6) ==> 10 (# 3 4 5 6) ==> (3 4 5 6) (# 3 4 5 6) ==> (5 6) SECTION(4 1 5) (if yes) ==> yes (if no) ==> no (if 1) ==> 1 SECTION(4 1 6) (define 3) ==> 3 (set! 5) ==> 5 SECTION(4 2 1) (cond greater) ==> greater (cond equal) ==> equal (cond 2) ==> 2 (case composite) ==> composite (case consonant) ==> consonant (and #t) ==> #t (and #f) ==> #f (and (f g)) ==> (f g) (and #t) ==> #t (or #t) ==> #t (or #t) ==> #t (or #f) ==> #f (or #f) ==> #f (or (b c)) ==> (b c) SECTION(4 2 2) (let 6) ==> 6 (let 35) ==> 35 (let* 70) ==> 70 (letrec #t) ==> #t (let 5) ==> 5 (let 34) ==> 34 (let 6) ==> 6 (let 34) ==> 34 (let 34) ==> 34 (let* 7) ==> 7 (let* 34) ==> 34 (let* 8) ==> 8 (let* 34) ==> 34 (letrec 9) ==> 9 (letrec 34) ==> 34 (letrec 10) ==> 10 (letrec 34) ==> 34 SECTION(4 2 3) (begin 6) ==> 6 SECTION(4 2 4) (do #(0 1 2 3 4)) ==> #(0 1 2 3 4) (do 25) ==> 25 (let 1) ==> 1 (let ((6 1 3) (-5 -2))) ==> ((6 1 3) (-5 -2)) (let -1) ==> -1 SECTION(4 2 6) (quasiquote (list 3 4)) ==> (list 3 4) (quasiquote (list a (quote a))) ==> (list a (quote a)) (quasiquote (a 3 4 5 6 b)) ==> (a 3 4 5 6 b) (quasiquote ((foo 7) . cons)) ==> ((foo 7) . cons) (quasiquote #(10 5 2 4 3 8)) ==> #(10 5 2 4 3 8) (quasiquote 5) ==> 5 (quasiquote (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f)) ==> (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f) (quasiquote (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e)) ==> (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e) (quasiquote (list 3 4)) ==> (list 3 4) (quasiquote (quasiquote (list (unquote (+ 1 2)) 4))) ==> (quasiquote (list (unquote (+ 1 2)) 4)) SECTION(5 2 1) (tprint #t) ==> #t (define 6) ==> 6 (define 1) ==> 1 (define 9) ==> 9 (define 9) ==> 9 (define 10) ==> 10 (# 6) ==> (3 6) (# 6) ==> 9 SECTION(5 2 2) (define 45) ==> 45 (#) ==> 5 (define 34) ==> 34 (#) ==> 5 (define 34) ==> 34 (# 88) ==> 88 (# 4) ==> 4 (define 34) ==> 34 (internal-define 99) ==> 99 (internal-define 77) ==> 77 SECTION(6 1) (# #t) ==> #f (# 3) ==> #f (# (3)) ==> #f (# #f) ==> #t (# ()) ==> #f (# ()) ==> #f (# nil) ==> #f SECTION(6 2) (# a a) ==> #t (# a b) ==> #f (# 2 2) ==> #t (# () ()) ==> #t (# 10000 10000) ==> #t (# (1 . 2) (1 . 2)) ==> #f (# # #) ==> #f (# #f nil) ==> #f (# # #) ==> #t (# # #) ==> #t (# # #) ==> #f (# # #) ==> #f (# a a) ==> #t (# (a) (a)) ==> #f (# () ()) ==> #t (# # #) ==> #t (# (a) (a)) ==> #t (# #() #()) ==> #t (# # #) ==> #t (# a a) ==> #t (# (a) (a)) ==> #t (# (a (b) c) (a (b) c)) ==> #t (# "abc" "abc") ==> #t (# 2 2) ==> #t (# #(a a a a a) #(a a a a a)) ==> #t SECTION(6 3) (dot (a b c d e)) ==> (a b c d e) (# (a b c)) ==> #t (set-cdr! (a . 4)) ==> (a . 4) (# (a . 4) (a . 4)) ==> #t (dot (a b c . d)) ==> (a b c . d) (# (a . 4)) ==> #f (list? #f) ==> #f (# a ()) ==> (a) (# (a) (b c d)) ==> ((a) b c d) (# "a" (b c)) ==> ("a" b c) (# a 3) ==> (a . 3) (# (a b) c) ==> ((a b) . c) (# (a b c)) ==> a (# ((a) b c d)) ==> (a) (# (1 . 2)) ==> 1 (# ((a) b c d)) ==> (b c d) (# (1 . 2)) ==> 2 (# a 7 c) ==> (a 7 c) (#) ==> () (# (a b c)) ==> 3 (# (a (b) (c d e))) ==> 3 (# ()) ==> 0 (# (x) (y)) ==> (x y) (# (a) (b c d)) ==> (a b c d) (# (a (b)) ((c))) ==> (a (b) (c)) (#) ==> () (# (a b) (c . d)) ==> (a b c . d) (# () a) ==> a (# (a b c)) ==> (c b a) (# (a (b c) d (e (f)))) ==> ((e (f)) d (b c) a) (# (a b c d) 2) ==> c (# a (a b c)) ==> (a b c) (# b (a b c)) ==> (b c) (# a (b c d)) ==> #f (# (a) (b (a) c)) ==> #f (# (a) (b (a) c)) ==> ((a) c) (# 101 (100 101 102)) ==> (101 102) (# a ((a 1) (b 2) (c 3))) ==> (a 1) (# b ((a 1) (b 2) (c 3))) ==> (b 2) (# d ((a 1) (b 2) (c 3))) ==> #f (# (a) (((a)) ((b)) ((c)))) ==> #f (# (a) (((a)) ((b)) ((c)))) ==> ((a)) (# 5 ((2 3) (5 7) (11 13))) ==> (5 7) SECTION(6 4) (# a) ==> #t (standard-case #t) ==> #t (standard-case #t) ==> #t (#string> flying-fish) ==> "flying-fish" (#string> martin) ==> "martin" (#string> \Malvina) ==> "Malvina" (standard-case #t) ==> #t (string-set! "cb") ==> "cb" (#string> ab) ==> "ab" (#symbol> "ab") ==> ab (# mississippi mississippi) ==> #t (string->symbol #f) ==> #f (#symbol> "jollywog") ==> jollywog SECTION(6 5 5) (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #f (# 0 0) ==> 1 (# 0 1) ==> 0 (# 0 256) ==> 0 (# -1 256) ==> 1 (# -1 255) ==> -1 (# -1 -256) ==> 1 (# -1 -255) ==> -1 (# 256 0) ==> 1 (# -256 0) ==> 1 (# 256 1) ==> 256 (# -256 1) ==> -256 (# 2 3) ==> 8 (# -2 3) ==> -8 (# 3 2) ==> 9 (# -3 2) ==> 9 (# 22 22 22) ==> #t (# 22 22) ==> #t (# 34 34 35) ==> #f (# 34 35) ==> #f (#> 3 -6246) ==> #t (#> 9 9 -2424) ==> #f (#=> 3 -4 -6246) ==> #t (#=> 9 9) ==> #t (#=> 8 9) ==> #f (# -1 2 3 4 5 6 7 8) ==> #t (# -1 2 3 4 4 5 6 7) ==> #f (# -1 2 3 4 5 6 7 8) ==> #t (# -1 2 3 4 4 5 6 7) ==> #t (# 1 3 2) ==> #f (#=> 1 3 2) ==> #f (# 0) ==> #t (# 1) ==> #f (# -1) ==> #f (# -100) ==> #f (# 4) ==> #t (# -4) ==> #f (# 0) ==> #f (# 4) ==> #f (# -4) ==> #t (# 0) ==> #f (# 3) ==> #t (# 2) ==> #f (# -4) ==> #f (# -1) ==> #t (# 3) ==> #f (# 2) ==> #t (# -4) ==> #t (# -1) ==> #f (# 34 5 7 38 6) ==> 38 (# 3 5 5 330 4 -24) ==> -24 (# 3 4) ==> 7 (# 3) ==> 3 (#) ==> 0 (# 4) ==> 4 (#) ==> 1 (# 3 4) ==> -1 (# 3) ==> -3 (# -7) ==> 7 (# 7) ==> 7 (# 0) ==> 0 (# 35 7) ==> 5 (# -35 7) ==> -5 (# 35 -7) ==> -5 (# -35 -7) ==> 5 (# 13 4) ==> 1 (# 13 4) ==> 1 (# -13 4) ==> 3 (# -13 4) ==> -1 (# 13 -4) ==> -3 (# 13 -4) ==> 1 (# -13 -4) ==> -1 (# -13 -4) ==> -1 (# 0 86400) ==> 0 (# 0 -86400) ==> 0 (# 238 9) ==> #t (# -238 9) ==> #t (# 238 -9) ==> #t (# -238 -9) ==> #t (# 0 4) ==> 4 (# -4 0) ==> 4 (# 32 -36) ==> 4 (#) ==> 0 (# 32 -36) ==> 288 (#) ==> 1 SECTION(6 5 5) (#number str))) (cond ((not ans) #t) ((number? ans) #t) (else ans)))> "+#.#") ==> #t (#number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-#.#") ==> #t (#number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#.#") ==> #t (#number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0") ==> #t (#number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "-1/0") ==> #t (#number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "0/0") ==> #t (#number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "+1/0i") ==> #t (#number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "-1/0i") ==> #t (#number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "0/0i") ==> #t (#number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "0/0-0/0i") ==> #t (#number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "1/0-1/0i") ==> #t (#number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "-1/0+1/0i") ==> #t (#number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#i") ==> #t (#number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#e") ==> #t (#number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#") ==> #t (#number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#i0/0") ==> #t (# 0.0-1.0i) ==> #t (# 0.0+1.0i) ==> #t (# 2.0+1.0i) ==> #t SECTION(6 5 9) (#string> 0) ==> "0" (#string> 100) ==> "100" (#string> 256 16) ==> "100" (#number> "100") ==> 100 (#number> "100" 16) ==> 256 (#number> "") ==> #f (#number> ".") ==> #f (#number> "d") ==> #f (#number> "D") ==> #f (#number> "i") ==> #f (#number> "I") ==> #f (#number> "3i") ==> #f (#number> "3I") ==> #f (#number> "33i") ==> #f (#number> "33I") ==> #f (#number> "3.3i") ==> #f (#number> "3.3I") ==> #f (#number> "-") ==> #f (#number> "+") ==> #f (string->number #t) ==> #t (string->number #t) ==> #t SECTION(6 6) (# #\space #\space) ==> #t (# #\space #\space) ==> #t (# #\a) ==> #t (# #\() ==> #t (# #\space) ==> #t (# #\nl) ==> #t (# #\A #\B) ==> #f (# #\a #\b) ==> #f (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (# #\A #\B) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #f (#?> #\A #\B) ==> #f (#?> #\a #\b) ==> #f (#?> #\9 #\0) ==> #t (#?> #\A #\A) ==> #f (# #\A #\B) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (#=?> #\A #\B) ==> #f (#=?> #\a #\b) ==> #f (#=?> #\9 #\0) ==> #t (#=?> #\A #\A) ==> #t (# #\A #\B) ==> #f (# #\a #\B) ==> #f (# #\A #\b) ==> #f (# #\a #\b) ==> #f (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (# #\A #\a) ==> #t (# #\A #\B) ==> #t (# #\a #\B) ==> #t (# #\A #\b) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #f (# #\A #\a) ==> #f (#?> #\A #\B) ==> #f (#?> #\a #\B) ==> #f (#?> #\A #\b) ==> #f (#?> #\a #\b) ==> #f (#?> #\9 #\0) ==> #t (#?> #\A #\A) ==> #f (#?> #\A #\a) ==> #f (# #\A #\B) ==> #t (# #\a #\B) ==> #t (# #\A #\b) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (# #\A #\a) ==> #t (#=?> #\A #\B) ==> #f (#=?> #\a #\B) ==> #f (#=?> #\A #\b) ==> #f (#=?> #\a #\b) ==> #f (#=?> #\9 #\0) ==> #t (#=?> #\A #\A) ==> #t (#=?> #\A #\a) ==> #t (# #\a) ==> #t (# #\A) ==> #t (# #\z) ==> #t (# #\Z) ==> #t (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #f (# #\;) ==> #f (# #\a) ==> #f (# #\A) ==> #f (# #\z) ==> #f (# #\Z) ==> #f (# #\0) ==> #t (# #\9) ==> #t (# #\space) ==> #f (# #\;) ==> #f (# #\a) ==> #f (# #\A) ==> #f (# #\z) ==> #f (# #\Z) ==> #f (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #t (# #\;) ==> #f (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #f (# #\;) ==> #f (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #f (# #\;) ==> #f (#char> 46) ==> #\. (#char> 65) ==> #\A (#char> 97) ==> #\a (# #\A) ==> #\A (# #\a) ==> #\A (# #\A) ==> #\a (# #\a) ==> #\a SECTION(6 7) (# "The word \"recursion\\\" has many meanings.") ==> #t (string-set! "?**") ==> "?**" (# #\a #\b #\c) ==> "abc" (#) ==> "" (# "abc") ==> 3 (# "abc" 0) ==> #\a (# "abc" 2) ==> #\c (# "") ==> 0 (# "ab" 0 0) ==> "" (# "ab" 1 1) ==> "" (# "ab" 2 2) ==> "" (# "ab" 0 1) ==> "a" (# "ab" 1 2) ==> "b" (# "ab" 0 2) ==> "ab" (# "foo" "bar") ==> "foobar" (# "foo") ==> "foo" (# "foo" "") ==> "foo" (# "" "foo") ==> "foo" (#) ==> "" (# 0) ==> "" (# "" "") ==> #t (# "" "") ==> #f (#?> "" "") ==> #f (# "" "") ==> #t (#=?> "" "") ==> #t (# "" "") ==> #t (# "" "") ==> #f (#?> "" "") ==> #f (# "" "") ==> #t (#=?> "" "") ==> #t (# "A" "B") ==> #f (# "a" "b") ==> #f (# "9" "0") ==> #f (# "A" "A") ==> #t (# "A" "B") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #f (#?> "A" "B") ==> #f (#?> "a" "b") ==> #f (#?> "9" "0") ==> #t (#?> "A" "A") ==> #f (# "A" "B") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #t (#=?> "A" "B") ==> #f (#=?> "a" "b") ==> #f (#=?> "9" "0") ==> #t (#=?> "A" "A") ==> #t (# "A" "B") ==> #f (# "a" "B") ==> #f (# "A" "b") ==> #f (# "a" "b") ==> #f (# "9" "0") ==> #f (# "A" "A") ==> #t (# "A" "a") ==> #t (# "A" "B") ==> #t (# "a" "B") ==> #t (# "A" "b") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #f (# "A" "a") ==> #f (#?> "A" "B") ==> #f (#?> "a" "B") ==> #f (#?> "A" "b") ==> #f (#?> "a" "b") ==> #f (#?> "9" "0") ==> #t (#?> "A" "A") ==> #f (#?> "A" "a") ==> #f (# "A" "B") ==> #t (# "a" "B") ==> #t (# "A" "b") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #t (# "A" "a") ==> #t (#=?> "A" "B") ==> #f (#=?> "a" "B") ==> #f (#=?> "A" "b") ==> #f (#=?> "a" "b") ==> #f (#=?> "9" "0") ==> #t (#=?> "A" "A") ==> #t (#=?> "A" "a") ==> #t SECTION(6 8) (# #(0 (2 2 2 2) "Anna")) ==> #t (# a b c) ==> #(a b c) (#) ==> #() (# #(0 (2 2 2 2) "Anna")) ==> 3 (# #()) ==> 0 (# #(1 1 2 3 5 8 13 21) 5) ==> 8 (vector-set #(0 ("Sue" "Sue") "Anna")) ==> #(0 ("Sue" "Sue") "Anna") (# 2 hi) ==> #(hi hi) (# 0) ==> #() (# 0 a) ==> #() SECTION(6 9) (# #) ==> #t (# #) ==> #t (# (lambda (x) (* x x))) ==> #f (# #) ==> #t (# # (3 4)) ==> 7 (# # (3 4)) ==> 7 (# # 10 (3 4)) ==> 17 (# # ()) ==> () (# 12 75) ==> 30 (# # ((a b) (d e) (g h))) ==> (b e h) (# # (1 2 3) (4 5 6)) ==> (5 7 9) (# # (1 2 3)) ==> (1 2 3) (# # (1 2 3)) ==> (1 2 3) (# # (1 2 3)) ==> (-1 -2 -3) (for-each #(0 1 4 9 16)) ==> #(0 1 4 9 16) (# #) ==> -3 (# (1 2 3 4)) ==> 4 (# (a b . c)) ==> #f (# # ()) ==> () SECTION(6 10 1) (# #) ==> #t (# #) ==> #t (# "r4rstest.scm" #) ==> #t (# #) ==> #t SECTION(6 10 2) (# #) ==> #\; (# #) ==> #\; (# #) ==> (define cur-section (quote ())) (# #) ==> #\( (# #) ==> (define errs (quote ())) SECTION(6 10 3) (# "tmp1" #) ==> #t (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (# #) ==> #t (# #) ==> #t (input-port? #t) ==> #t (# #) ==> #\; (# #) ==> #\; (# #) ==> #\; (# #) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (# #) ==> #t (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (# #) ==> #t (# #) ==> #t (input-port? #t) ==> #t (# #) ==> #\; (# #) ==> #\; (# #) ==> #\; (# #) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) Passed all tests ;testing inexact numbers; SECTION(6 2) (# 1 1.0) ==> #f (# 0 0.0) ==> #f (# 0.0 0.0) ==> #t (# 0.0 0.0) ==> #t (# 0.0 0.0) ==> #t (# 0.0 0.0) ==> #t (# 0.0 0.0) ==> #t SECTION(6 5 5) (magnitude 1.0) ==> 1.0 (# 1.0e300+1.0e300i 4.0e300+4.0e300i) ==> 0.25 (magnitude 1.0) ==> 1.0 (# 1.0e-300+1.0e-300i 4.0e-300+4.0e-300i) ==> 0.25 (# 0.0 0.0) ==> #t (# 0.0 0.0) ==> #t (# 0.0 0.0) ==> #t (# 3.9) ==> #t (max #t) ==> #t (# 3.9 4) ==> 4.0 (#inexact> 4) ==> 4.0 (#inexact> 4.0) ==> 4.0 (#exact> 4) ==> 4 (#exact> 4.0) ==> 4 (# -4.5) ==> -4.0 (# -3.5) ==> -4.0 (# -3.9) ==> -4.0 (# 0.0) ==> 0.0 (# 0.25) ==> 0.0 (# 0.8) ==> 1.0 (# 3.5) ==> 4.0 (# 4.5) ==> 4.0 (# 0.0 1.0) ==> 0.0 (# 0.0 1) ==> 0.0 (# 0 1.0) ==> 0.0 (# -25 0.0) ==> 1.0 (# -3.25 0.0) ==> 1.0 (# -3.25 0) ==> 1.0 (# 1 1) ==> 0.7853981633974483 (# "tmp3" #) ==> #t (# #) ==> (define foo (quote (0.25 -3.25))) (# #) ==> #t (# #) ==> #t (input-port? #t) ==> #t (# #) ==> #\; (# #) ==> #\; (# #) ==> #\; (# #) ==> (0.25 -3.25) (# #) ==> (define foo (quote (0.25 -3.25))) (pentium-fdiv-bug #t) ==> #t Passed all tests SECTION(6 5 6) (float-print-test #t) ==> #t Number readback failure for (+ 100.0 (* -97 1.4210854715202003e-14)) 99.99999999999861 Number readback failure for (+ 1.0e20 (* -97 16384.0)) 9.999999999999842e19 Number readback failure for (+ 1.0e50 (* -95 2.076918743413931e34)) 9.999999999999802e49 Number readback failure for (+ 1.0e100 (* -93 1.942668892225729e84)) 9.999999999999818e99 Number readback failure for (+ 0.1 (* -77 1.3877787807814456e-17)) 0.09999999999999893 Number readback failure for (+ 0.01 (* -83 1.734723475976807e-18)) 0.009999999999999855 Number readback failure for (+ 0.001 (* -93 2.168404344971009e-19)) 9.9999999999998e-4 Number readback failure for (+ 1.0e-20 (* -96 1.504632769052528e-36)) 9.999999999999854e-21 Number readback failure for (+ 1.0e-50 (* -98 1.1869459682199748e-66)) 9.999999999999883e-51 Number readback failure for (+ 1.0e-100 (* -91 1.2689709186578246e-116)) 9.999999999999884e-101 (mult-float-print-test #f) ==> #f BUT EXPECTED #t Number readback failure for (+ 30.0 (* -97 3.552713678800501e-15)) 29.999999999999653 Number readback failure for (+ 300.0 (* -59 5.684341886080801e-14)) 299.9999999999966 Number readback failure for (+ 3.0e20 (* -100 65536.0)) 2.999999999999934e20 Number readback failure for (+ 3.0000000000000004e50 (* -95 4.153837486827862e34)) 2.999999999999961e50 Number readback failure for (+ 3.0000000000000004e100 (* -95 3.885337784451458e84)) 2.999999999999963e100 Number readback failure for (+ 0.03 (* -100 3.469446951953614e-18)) 0.02999999999999965 Number readback failure for (+ 0.003 (* -96 4.336808689942018e-19)) 0.0029999999999999582 Number readback failure for (+ 3.0e-20 (* -98 6.018531076210112e-36)) 2.9999999999999404e-20 Number readback failure for (+ 3.0e-50 (* -100 4.747783872879899e-66)) 2.999999999999952e-50 Number readback failure for (+ 3.0e-100 (* -95 5.075883674631299e-116)) 2.9999999999999515e-100 (mult-float-print-test #f) ==> #f BUT EXPECTED #t Number readback failure for (+ 70.0 (* -98 1.4210854715202003e-14)) 69.9999999999986 Number readback failure for (+ 700.0 (* -59 1.1368683772161602e-13)) 699.9999999999932 Number readback failure for (+ 7.0e20 (* -100 131072.0)) 6.999999999999868e20 Number readback failure for (+ 7.000000000000001e50 (* -99 8.307674973655723e34)) 6.999999999999918e50 Number readback failure for (+ 6.999999999999999e100 (* -100 1.5541351137805832e85)) 6.999999999999843e100 Number readback failure for (+ 0.07000000000000001 (* -95 1.3877787807814456e-17)) 0.06999999999999868 Number readback failure for (+ 0.007000000000000001 (* -95 8.673617379884035e-19)) 0.0069999999999999173 Number readback failure for (+ 7.0e-20 (* -95 1.2037062152420223e-35)) 6.999999999999885e-20 Number readback failure for (+ 7.0e-50 (* -97 9.495567745759798e-66)) 6.999999999999907e-50 Number readback failure for (+ 7.000000000000001e-100 (* -93 1.0151767349262597e-115)) 6.999999999999905e-100 (mult-float-print-test #f) ==> #f BUT EXPECTED #t Number readback failure for (+ 31.41592653589793 (* -97 3.552713678800501e-15)) 31.415926535897584 Number readback failure for (+ 314.1592653589793 (* -96 5.684341886080801e-14)) 314.15926535897384 Number readback failure for (+ 3.1415926535897935e20 (* -99 65536.0)) 3.141592653589728e20 Number readback failure for (+ 3.141592653589793e50 (* -100 4.153837486827862e34)) 3.141592653589752e50 Number readback failure for (+ 3.141592653589793e100 (* -99 3.885337784451458e84)) 3.1415926535897544e100 Number readback failure for (+ 0.03141592653589793 (* -92 6.938893903907228e-18)) 0.0314159265358973 Number readback failure for (+ 0.003141592653589793 (* -96 4.336808689942018e-19)) 0.0031415926535897514 Number readback failure for (+ 3.141592653589793e-20 (* -99 6.018531076210112e-36)) 3.141592653589733e-20 Number readback failure for (+ 3.141592653589793e-50 (* -98 4.747783872879899e-66)) 3.1415926535897464e-50 Number readback failure for (+ 3.141592653589793e-100 (* -100 5.075883674631299e-116)) 3.141592653589742e-100 (mult-float-print-test #f) ==> #f BUT EXPECTED #t Number readback failure for (+ 27.18281828459045 (* -98 3.552713678800501e-15)) 27.1828182845901 Number readback failure for (+ 271.8281828459045 (* -94 5.684341886080801e-14)) 271.8281828458992 Number readback failure for (+ 2.718281828459045e20 (* -100 32768.0)) 2.7182818284590122e20 Number readback failure for (+ 2.7182818284590455e50 (* -100 4.153837486827862e34)) 2.7182818284590037e50 Number readback failure for (+ 2.718281828459045e100 (* -92 3.885337784451458e84)) 2.718281828459009e100 Number readback failure for (+ 0.027182818284590454 (* -100 3.469446951953614e-18)) 0.027182818284590104 Number readback failure for (+ 0.0027182818284590454 (* -100 4.336808689942018e-19)) 0.0027182818284590015 Number readback failure for (+ 2.718281828459045e-20 (* -94 6.018531076210112e-36)) 2.718281828458988e-20 Number readback failure for (+ 2.7182818284590454e-50 (* -98 4.747783872879899e-66)) 2.718281828458999e-50 Number readback failure for (+ 2.7182818284590454e-100 (* -100 5.075883674631299e-116)) 2.7182818284589943e-100 (mult-float-print-test #f) ==> #f BUT EXPECTED #t To fully test continuations, Scheme 4, and DELAY/FORCE do: (test-cont) (test-sc4) (test-delay) ;testing scheme 4 functions; SECTION(6 7) (#list> "P l") ==> (#\P #\space #\l) (#list> "") ==> () (#string> (#\1 #\\ #\")) ==> "1\\\"" (#string> ()) ==> "" SECTION(6 8) (#list> #(dah dah didah)) ==> (dah dah didah) (#list> #()) ==> () (#vector> (dididit dah)) ==> #(dididit dah) (#vector> ()) ==> #() SECTION(6 10 4) (load (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) errors were: (SECTION (got expected (call))) ((6 5 6) (#f #t (mult-float-print-test #f))) ((6 5 6) (#f #t (mult-float-print-test #f))) ((6 5 6) (#f #t (mult-float-print-test #f))) ((6 5 6) (#f #t (mult-float-print-test #f))) ((6 5 6) (#f #t (mult-float-print-test #f))) ;testing continuations; SECTION(6 9) (# (a (b (c))) ((a) b c)) ==> #t (# (a (b (c))) ((a) b c d)) ==> #f errors were: (SECTION (got expected (call))) ((6 5 6) (#f #t (mult-float-print-test #f))) ((6 5 6) (#f #t (mult-float-print-test #f))) ((6 5 6) (#f #t (mult-float-print-test #f))) ((6 5 6) (#f #t (mult-float-print-test #f))) ((6 5 6) (#f #t (mult-float-print-test #f))) ;testing DELAY and FORCE; SECTION(6 9) (delay 3) ==> 3 (delay (3 3)) ==> (3 3) (delay 2) ==> 2 (# # count x) count (force p)))>>) ==> 6 (# #) ==> 6 (force 3) ==> 3 errors were: (SECTION (got expected (call))) ((6 5 6) (#f #t (mult-float-print-test #f))) ((6 5 6) (#f #t (mult-float-print-test #f))) ((6 5 6) (#f #t (mult-float-print-test #f))) ((6 5 6) (#f #t (mult-float-print-test #f))) ((6 5 6) (#f #t (mult-float-print-test #f))) ; program args: ("./scm" "-fr4rstest.scm" "-e(test-sc4)(test-cont)(test-delay)(gc)" "-e" "(or (null? errs) (quit 1))") make: *** [check] Erreur 1 * * ERROR: dev-scheme/scm-5.5.4 failed. * Call stack: * ebuild.sh, line 46: Called src_test * environment, line 2335: Called die * The specific snippet of code: * hasq test $FEATURES && diefunc "$FUNCNAME" "$LINENO" "$?" "Make check failed. See above for details."; * The die message: * Make check failed. See above for details. * * If you need support, post the topmost build error, and the call stack if relevant. * A complete build log is located at '/var/log/portage/dev-scheme:scm-5.5.4:20080129-165404.log'. * The ebuild environment file is located at '/var/tmp/portage/dev-scheme/scm-5.5.4/temp/environment'. *