* CPV:  dev-scheme/scm-5.5.6
 * REPO: gentoo
 * USE:  elibc_glibc kernel_linux ncurses readline test userland_GNU x86
>>> Unpacking source...
>>> Unpacking scm-5e6.zip to /var/tmp/portage/dev-scheme/scm-5.5.6/work
>>> Source unpacked in /var/tmp/portage/dev-scheme/scm-5.5.6/work
>>> Preparing source in /var/tmp/portage/dev-scheme/scm-5.5.6/work/scm ...
 * Applying scm-5.5.6-multiplefixes.patch ...
  [ ok ]
>>> Source prepared.
>>> Configuring source in /var/tmp/portage/dev-scheme/scm-5.5.6/work/scm ...
>>> Source configured.
>>> Compiling source in /var/tmp/portage/dev-scheme/scm-5.5.6/work/scm ...
 * using SLIB /usr/share/slib/
 * Making scmlit
make -j14 -j1 scmlit clean 
Makefile:65: srcdir.mk: No such file or directory
echo "CPROTO=`type cproto | sed 's%.* %%'`" > srcdir.mk
echo "srcdir=`pwd`/" >> srcdir.mk
echo "#ifndef IMPLINIT" > newflags.h
echo "#define IMPLINIT \"/var/tmp/portage/dev-scheme/scm-5.5.6/work/scm/Init5e6.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 -pipe scm.c -o scm.o
cc -c -O2 -pipe time.c -o time.o
cc -c -O2 -pipe repl.c -o repl.o
repl.c: In function ‘everr’:
repl.c:2132:11: warning: assignment discards qualifiers from pointer target type
repl.c:2133:14: warning: assignment discards qualifiers from pointer target type
cc -c -O2 -pipe scl.c -o scl.o
cc -c -O2 -pipe sys.c -o sys.o
sys.c: In function ‘ltmpnam’:
sys.c:266:3: warning: ignoring return value of ‘tmpnam’, declared with attribute warn_unused_result
cc -c -O2 -pipe eval.c -o eval.o
cc -c -O2 -pipe subr.c -o subr.o
cc -c -O2 -pipe unif.c -o unif.o
cc -c -O2 -pipe rope.c -o rope.o
cc -c -O2 -pipe continue.c -o continue.o
cc -c -O2 -pipe findexec.c -o findexec.o
findexec.c: In function ‘dld_find_executable’:
findexec.c:163:11: warning: ignoring return value of ‘getcwd’, declared with attribute warn_unused_result
findexec.c:194:13: warning: ignoring return value of ‘getcwd’, declared with attribute warn_unused_result
cc -c -O2 -pipe script.c -o script.o
script.c: In function ‘find_impl_file’:
script.c:149:18: warning: initialization discards qualifiers from pointer target type
script.c:165:10: warning: assignment discards qualifiers from pointer target type
script.c: In function ‘script_process_argv’:
script.c:362:12: warning: assignment discards qualifiers from pointer target type
script.c:377:22: warning: assignment discards qualifiers from pointer target type
script.c:380:39: warning: assignment discards qualifiers from pointer target type
cc -c -O2 -pipe debug.c -o debug.o
cc -c -O2 -pipe scmmain.c -o scmmain.o
scmmain.c: In function ‘main’:
scmmain.c:109:32: warning: assignment discards qualifiers from pointer target type
scmmain.c:119:16: warning: assignment discards qualifiers from pointer target type
scmmain.c:120:5: warning: passing argument 1 of ‘script_count_argv’ from incompatible pointer type
scm.h:1074:17: note: expected ‘const char **’ but argument is of type ‘char **’
scmmain.c:122:15: warning: assignment from incompatible pointer type
scmmain.c:124:3: warning: passing argument 2 of ‘scm_find_execpath’ from incompatible pointer type
scm.h:775:18: note: expected ‘const char * const*’ but argument is of type ‘char **’
scmmain.c:131:5: warning: passing argument 2 of ‘scm_init_from_argv’ from incompatible pointer type
scm.h:768:17: note: expected ‘const char * const*’ but argument is of type ‘char **’
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+0xe62): warning: the use of `tmpnam' is dangerous, better use `mkstemp'
make checklit
make[1]: Entering directory `/var/tmp/portage/dev-scheme/scm-5.5.6/work/scm'
./scmlit -fr4rstest.scm -e'(test-sc4)(test-delay)(gc)' \
-e '(or (null? errs) (quit 1))'
SECTION(2 1)
SECTION(3 4)
 #<primitive-procedure boolean?>
    #<primitive-procedure char?>
       #<primitive-procedure null?>
          #<primitive-procedure number?>
             #<primitive-procedure pair?>
                #<primitive-procedure procedure?>
                   #<primitive-procedure string?>
                      #<primitive-procedure symbol?>
                         #<primitive-procedure vector?>
(#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)#<CLOSURE record-error "r4rstest.scm": (e) (set! errs (cons (list cur-section e) errs))>
(#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)
(#<primitive-procedure *> 3 4)  ==> 12
SECTION(4 1 4)
(#<CLOSURE <anon> "r4rstest.scm": (x) (+ x x)> 4)  ==> 8
(#<CLOSURE reverse-subtract "r4rstest.scm": (x y) (- y x)> 7 10)  ==> 3
(#<CLOSURE <anon> "r4rstest.scm": (y) (+ x y)> 6)  ==> 10
(#<CLOSURE <anon> "r4rstest.scm": x x> 3 4 5 6)  ==> (3 4 5 6)
(#<CLOSURE <anon> "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
(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
(#<CLOSURE add3 "r4rstest.scm": (x) (#@+ #@x 3)> 6)  ==> (3 6)
(#<CLOSURE add3 "r4rstest.scm": (x) (#@+ #@x 3)> 6)  ==> 9
SECTION(5 2 2)
(define 45)  ==> 45
(#<CLOSURE foo "r4rstest.scm": () (#@define ((x 5))  x)>)  ==> 5
(define 34)  ==> 34
(#<CLOSURE foo "r4rstest.scm": () (#@define ((x 5))  x)>)  ==> 5
(define 34)  ==> 34
(#<CLOSURE foo "r4rstest.scm": (x) ((lambda () (define x 5) x)) x> 88)  ==> 88
(#<CLOSURE foo "r4rstest.scm": (x) (#@let ()  (#@define ((x 5))  #@x)) #@x> 4)  ==> 4
(define 34)  ==> 34
(internal-define 99)  ==> 99
(internal-define 77)  ==> 77
SECTION(6 1)
(#<primitive-procedure not> #t)  ==> #f
(#<primitive-procedure not> 3)  ==> #f
(#<primitive-procedure not> (3))  ==> #f
(#<primitive-procedure not> #f)  ==> #t
(#<primitive-procedure not> ())  ==> #f
(#<primitive-procedure not> ())  ==> #f
(#<primitive-procedure not> nil)  ==> #f
SECTION(6 2)
(#<primitive-procedure eqv?> a a)  ==> #t
(#<primitive-procedure eqv?> a b)  ==> #f
(#<primitive-procedure eqv?> 2 2)  ==> #t
(#<primitive-procedure eqv?> () ())  ==> #t
(#<primitive-procedure eqv?> 10000 10000)  ==> #t
(#<primitive-procedure eqv?> (1 . 2) (1 . 2))  ==> #f
(#<primitive-procedure eqv?> #<CLOSURE <anon> "r4rstest.scm": () 1> #<CLOSURE <anon> "r4rstest.scm": () 2>)  ==> #f
(#<primitive-procedure eqv?> #f nil)  ==> #f
(#<primitive-procedure eqv?> #<CLOSURE p "r4rstest.scm": (x) x> #<CLOSURE p "r4rstest.scm": (x) x>)  ==> #t
(#<primitive-procedure eqv?> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n>)  ==> #t
(#<primitive-procedure eqv?> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n>)  ==> #f
(#<primitive-procedure eqv?> #<CLOSURE f "r4rstest.scm": () (if (eqv? f g) (quote f) (quote both))> #<CLOSURE g "r4rstest.scm": () (if (eqv? f g) (quote g) (quote both))>)  ==> #f
(#<primitive-procedure eq?> a a)  ==> #t
(#<primitive-procedure eq?> (a) (a))  ==> #f
(#<primitive-procedure eq?> () ())  ==> #t
(#<primitive-procedure eq?> #<primitive-procedure car> #<primitive-procedure car>)  ==> #t
(#<primitive-procedure eq?> (a) (a))  ==> #t
(#<primitive-procedure eq?> #() #())  ==> #t
(#<primitive-procedure eq?> #<CLOSURE x "r4rstest.scm": (x) x> #<CLOSURE x "r4rstest.scm": (x) x>)  ==> #t
(#<primitive-procedure equal?> a a)  ==> #t
(#<primitive-procedure equal?> (a) (a))  ==> #t
(#<primitive-procedure equal?> (a (b) c) (a (b) c))  ==> #t
(#<primitive-procedure equal?> "abc" "abc")  ==> #t
(#<primitive-procedure equal?> 2 2)  ==> #t
(#<primitive-procedure equal?> #(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)
(#<primitive-procedure list?> (a b c))  ==> #t
(set-cdr! (a . 4))  ==> (a . 4)
(#<primitive-procedure eqv?> (a . 4) (a . 4))  ==> #t
(dot (a b c . d))  ==> (a b c . d)
(#<primitive-procedure list?> (a . 4))  ==> #f
(list? #f)  ==> #f
(#<primitive-procedure cons> a ())  ==> (a)
(#<primitive-procedure cons> (a) (b c d))  ==> ((a) b c d)
(#<primitive-procedure cons> "a" (b c))  ==> ("a" b c)
(#<primitive-procedure cons> a 3)  ==> (a . 3)
(#<primitive-procedure cons> (a b) c)  ==> ((a b) . c)
(#<primitive-procedure car> (a b c))  ==> a
(#<primitive-procedure car> ((a) b c d))  ==> (a)
(#<primitive-procedure car> (1 . 2))  ==> 1
(#<primitive-procedure cdr> ((a) b c d))  ==> (b c d)
(#<primitive-procedure cdr> (1 . 2))  ==> 2
(#<primitive-procedure list> a 7 c)  ==> (a 7 c)
(#<primitive-procedure list>)  ==> ()
(#<primitive-procedure length> (a b c))  ==> 3
(#<primitive-procedure length> (a (b) (c d e)))  ==> 3
(#<primitive-procedure length> ())  ==> 0
(#<primitive-procedure append> (x) (y))  ==> (x y)
(#<primitive-procedure append> (a) (b c d))  ==> (a b c d)
(#<primitive-procedure append> (a (b)) ((c)))  ==> (a (b) (c))
(#<primitive-procedure append>)  ==> ()
(#<primitive-procedure append> (a b) (c . d))  ==> (a b c . d)
(#<primitive-procedure append> () a)  ==> a
(#<primitive-procedure reverse> (a b c))  ==> (c b a)
(#<primitive-procedure reverse> (a (b c) d (e (f))))  ==> ((e (f)) d (b c) a)
(#<primitive-procedure list-ref> (a b c d) 2)  ==> c
(#<primitive-procedure memq> a (a b c))  ==> (a b c)
(#<primitive-procedure memq> b (a b c))  ==> (b c)
(#<primitive-procedure memq> a (b c d))  ==> #f
(#<primitive-procedure memq> (a) (b (a) c))  ==> #f
(#<primitive-procedure member> (a) (b (a) c))  ==> ((a) c)
(#<primitive-procedure memv> 101 (100 101 102))  ==> (101 102)
(#<primitive-procedure assq> a ((a 1) (b 2) (c 3)))  ==> (a 1)
(#<primitive-procedure assq> b ((a 1) (b 2) (c 3)))  ==> (b 2)
(#<primitive-procedure assq> d ((a 1) (b 2) (c 3)))  ==> #f
(#<primitive-procedure assq> (a) (((a)) ((b)) ((c))))  ==> #f
(#<primitive-procedure assoc> (a) (((a)) ((b)) ((c))))  ==> ((a))
(#<primitive-procedure assv> 5 ((2 3) (5 7) (11 13)))  ==> (5 7)
SECTION(6 4)
(#<primitive-procedure symbol?> a)  ==> #t
(standard-case #t)  ==> #t
(standard-case #t)  ==> #t
(#<primitive-procedure symbol->string> flying-fish)  ==> "flying-fish"
(#<primitive-procedure symbol->string> martin)  ==> "martin"
(#<primitive-procedure symbol->string> \Malvina)  ==> "Malvina"
(standard-case #t)  ==> #t
(string-set! "cb")  ==> "cb"
(#<primitive-procedure symbol->string> ab)  ==> "ab"
(#<primitive-procedure string->symbol> "ab")  ==> ab
(#<primitive-procedure eq?> mississippi mississippi)  ==> #t
(string->symbol #f)  ==> #f
(#<primitive-procedure string->symbol> "jollywog")  ==> jollywog
SECTION(6 5 5)
(#<primitive-procedure number?> 3)  ==> #t
(#<primitive-procedure complex?> 3)  ==> #t
(#<primitive-procedure real?> 3)  ==> #t
(#<primitive-procedure rational?> 3)  ==> #t
(#<primitive-procedure integer?> 3)  ==> #t
(#<primitive-procedure exact?> 3)  ==> #t
(#<primitive-procedure inexact?> 3)  ==> #f
(#<primitive-procedure integer-expt> 0 0)  ==> 1
(#<primitive-procedure integer-expt> 0 1)  ==> 0
(#<primitive-procedure integer-expt> 0 256)  ==> 0
(#<primitive-procedure integer-expt> -1 256)  ==> 1
(#<primitive-procedure integer-expt> -1 255)  ==> -1
(#<primitive-procedure integer-expt> -1 -256)  ==> 1
(#<primitive-procedure integer-expt> -1 -255)  ==> -1
(#<primitive-procedure integer-expt> 256 0)  ==> 1
(#<primitive-procedure integer-expt> -256 0)  ==> 1
(#<primitive-procedure integer-expt> 256 1)  ==> 256
(#<primitive-procedure integer-expt> -256 1)  ==> -256
(#<primitive-procedure integer-expt> 2 3)  ==> 8
(#<primitive-procedure integer-expt> -2 3)  ==> -8
(#<primitive-procedure integer-expt> 3 2)  ==> 9
(#<primitive-procedure integer-expt> -3 2)  ==> 9
(#<primitive-procedure => 22 22 22)  ==> #t
(#<primitive-procedure => 22 22)  ==> #t
(#<primitive-procedure => 34 34 35)  ==> #f
(#<primitive-procedure => 34 35)  ==> #f
(#<primitive-procedure >> 3 -6246)  ==> #t
(#<primitive-procedure >> 9 9 -2424)  ==> #f
(#<primitive-procedure >=> 3 -4 -6246)  ==> #t
(#<primitive-procedure >=> 9 9)  ==> #t
(#<primitive-procedure >=> 8 9)  ==> #f
(#<primitive-procedure <> -1 2 3 4 5 6 7 8)  ==> #t
(#<primitive-procedure <> -1 2 3 4 4 5 6 7)  ==> #f
(#<primitive-procedure <=> -1 2 3 4 5 6 7 8)  ==> #t
(#<primitive-procedure <=> -1 2 3 4 4 5 6 7)  ==> #t
(#<primitive-procedure <> 1 3 2)  ==> #f
(#<primitive-procedure >=> 1 3 2)  ==> #f
(#<primitive-procedure zero?> 0)  ==> #t
(#<primitive-procedure zero?> 1)  ==> #f
(#<primitive-procedure zero?> -1)  ==> #f
(#<primitive-procedure zero?> -100)  ==> #f
(#<primitive-procedure positive?> 4)  ==> #t
(#<primitive-procedure positive?> -4)  ==> #f
(#<primitive-procedure positive?> 0)  ==> #f
(#<primitive-procedure negative?> 4)  ==> #f
(#<primitive-procedure negative?> -4)  ==> #t
(#<primitive-procedure negative?> 0)  ==> #f
(#<primitive-procedure odd?> 3)  ==> #t
(#<primitive-procedure odd?> 2)  ==> #f
(#<primitive-procedure odd?> -4)  ==> #f
(#<primitive-procedure odd?> -1)  ==> #t
(#<primitive-procedure even?> 3)  ==> #f
(#<primitive-procedure even?> 2)  ==> #t
(#<primitive-procedure even?> -4)  ==> #t
(#<primitive-procedure even?> -1)  ==> #f
(#<primitive-procedure max> 34 5 7 38 6)  ==> 38
(#<primitive-procedure min> 3 5 5 330 4 -24)  ==> -24
(#<primitive-procedure +> 3 4)  ==> 7
(#<primitive-procedure +> 3)  ==> 3
(#<primitive-procedure +>)  ==> 0
(#<primitive-procedure *> 4)  ==> 4
(#<primitive-procedure *>)  ==> 1
(#<primitive-procedure /> 1)  ==> 1
(#<primitive-procedure /> -1)  ==> -1
(#<primitive-procedure /> 6 3)  ==> 2
(#<primitive-procedure /> 6 -2)  ==> -3
(#<primitive-procedure /> -6 2)  ==> -3
(#<primitive-procedure /> -6 -2)  ==> 3
(#<primitive-procedure -> 3 4)  ==> -1
(#<primitive-procedure -> 3)  ==> -3
(#<primitive-procedure abs> -7)  ==> 7
(#<primitive-procedure abs> 7)  ==> 7
(#<primitive-procedure abs> 0)  ==> 0
(#<primitive-procedure quotient> 35 7)  ==> 5
(#<primitive-procedure quotient> -35 7)  ==> -5
(#<primitive-procedure quotient> 35 -7)  ==> -5
(#<primitive-procedure quotient> -35 -7)  ==> 5
(#<primitive-procedure modulo> 13 4)  ==> 1
(#<primitive-procedure remainder> 13 4)  ==> 1
(#<primitive-procedure modulo> -13 4)  ==> 3
(#<primitive-procedure remainder> -13 4)  ==> -1
(#<primitive-procedure modulo> 13 -4)  ==> -3
(#<primitive-procedure remainder> 13 -4)  ==> 1
(#<primitive-procedure modulo> -13 -4)  ==> -1
(#<primitive-procedure remainder> -13 -4)  ==> -1
(#<primitive-procedure modulo> 0 86400)  ==> 0
(#<primitive-procedure modulo> 0 -86400)  ==> 0
(#<CLOSURE divtest "r4rstest.scm": (n1 n2) (= n1 (+ (* n2 (quotient n1 n2)) (remainder n1 n2)))> 238 9)  ==> #t
(#<CLOSURE divtest "r4rstest.scm": (n1 n2) (#@= #@n1 (#@+ (#@* #@n2 (#@quotient #@n1 #@n2)) (#@remainder #@n1 #@n2)))> -238 9)  ==> #t
(#<CLOSURE divtest "r4rstest.scm": (n1 n2) (#@= #@n1 (#@+ (#@* #@n2 (#@quotient #@n1 #@n2)) (#@remainder #@n1 #@n2)))> 238 -9)  ==> #t
(#<CLOSURE divtest "r4rstest.scm": (n1 n2) (#@= #@n1 (#@+ (#@* #@n2 (#@quotient #@n1 #@n2)) (#@remainder #@n1 #@n2)))> -238 -9)  ==> #t
(#<primitive-procedure gcd> 0 4)  ==> 4
(#<primitive-procedure gcd> -4 0)  ==> 4
(#<primitive-procedure gcd> 32 -36)  ==> 4
(#<primitive-procedure gcd>)  ==> 0
(#<primitive-procedure lcm> 32 -36)  ==> 288
(#<primitive-procedure lcm>)  ==> 1
SECTION(6 5 5)
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (string->number str)))  (cond ((not ans) #t) ((number? ans) #t) (else ans)))> "+#.#")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-#.#")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#.#")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "+1/0i")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0i")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0i")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0-0/0i")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0-1/0i")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0+1/0i")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#i")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#e")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#")  ==> #t
(#<CLOSURE test-string->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)
(#<primitive-procedure number->string> 0)  ==> "0"
(#<primitive-procedure number->string> 100)  ==> "100"
(#<primitive-procedure number->string> 256 16)  ==> "100"
(#<primitive-procedure string->number> "100")  ==> 100
(#<primitive-procedure string->number> "100" 16)  ==> 256
(#<primitive-procedure string->number> "")  ==> #f
(#<primitive-procedure string->number> ".")  ==> #f
(#<primitive-procedure string->number> "d")  ==> #f
(#<primitive-procedure string->number> "D")  ==> #f
(#<primitive-procedure string->number> "i")  ==> #f
(#<primitive-procedure string->number> "I")  ==> #f
(#<primitive-procedure string->number> "3i")  ==> #f
(#<primitive-procedure string->number> "3I")  ==> #f
(#<primitive-procedure string->number> "33i")  ==> #f
(#<primitive-procedure string->number> "33I")  ==> #f
(#<primitive-procedure string->number> "3.3i")  ==> #f
(#<primitive-procedure string->number> "3.3I")  ==> #f
(#<primitive-procedure string->number> "-")  ==> #f
(#<primitive-procedure string->number> "+")  ==> #f
(string->number #t)  ==> #t
(string->number #t)  ==> #t
SECTION(6 6)
(#<primitive-procedure eqv?> #\space #\space)  ==> #t
(#<primitive-procedure eqv?> #\space #\space)  ==> #t
(#<primitive-procedure char?> #\a)  ==> #t
(#<primitive-procedure char?> #\()  ==> #t
(#<primitive-procedure char?> #\space)  ==> #t
(#<primitive-procedure char?> #\nl)  ==> #t
(#<primitive-procedure char=?> #\A #\B)  ==> #f
(#<primitive-procedure char=?> #\a #\b)  ==> #f
(#<primitive-procedure char=?> #\9 #\0)  ==> #f
(#<primitive-procedure char=?> #\A #\A)  ==> #t
(#<primitive-procedure char<?> #\A #\B)  ==> #t
(#<primitive-procedure char<?> #\a #\b)  ==> #t
(#<primitive-procedure char<?> #\9 #\0)  ==> #f
(#<primitive-procedure char<?> #\A #\A)  ==> #f
(#<primitive-procedure char>?> #\A #\B)  ==> #f
(#<primitive-procedure char>?> #\a #\b)  ==> #f
(#<primitive-procedure char>?> #\9 #\0)  ==> #t
(#<primitive-procedure char>?> #\A #\A)  ==> #f
(#<primitive-procedure char<=?> #\A #\B)  ==> #t
(#<primitive-procedure char<=?> #\a #\b)  ==> #t
(#<primitive-procedure char<=?> #\9 #\0)  ==> #f
(#<primitive-procedure char<=?> #\A #\A)  ==> #t
(#<primitive-procedure char>=?> #\A #\B)  ==> #f
(#<primitive-procedure char>=?> #\a #\b)  ==> #f
(#<primitive-procedure char>=?> #\9 #\0)  ==> #t
(#<primitive-procedure char>=?> #\A #\A)  ==> #t
(#<primitive-procedure char-ci=?> #\A #\B)  ==> #f
(#<primitive-procedure char-ci=?> #\a #\B)  ==> #f
(#<primitive-procedure char-ci=?> #\A #\b)  ==> #f
(#<primitive-procedure char-ci=?> #\a #\b)  ==> #f
(#<primitive-procedure char-ci=?> #\9 #\0)  ==> #f
(#<primitive-procedure char-ci=?> #\A #\A)  ==> #t
(#<primitive-procedure char-ci=?> #\A #\a)  ==> #t
(#<primitive-procedure char-ci<?> #\A #\B)  ==> #t
(#<primitive-procedure char-ci<?> #\a #\B)  ==> #t
(#<primitive-procedure char-ci<?> #\A #\b)  ==> #t
(#<primitive-procedure char-ci<?> #\a #\b)  ==> #t
(#<primitive-procedure char-ci<?> #\9 #\0)  ==> #f
(#<primitive-procedure char-ci<?> #\A #\A)  ==> #f
(#<primitive-procedure char-ci<?> #\A #\a)  ==> #f
(#<primitive-procedure char-ci>?> #\A #\B)  ==> #f
(#<primitive-procedure char-ci>?> #\a #\B)  ==> #f
(#<primitive-procedure char-ci>?> #\A #\b)  ==> #f
(#<primitive-procedure char-ci>?> #\a #\b)  ==> #f
(#<primitive-procedure char-ci>?> #\9 #\0)  ==> #t
(#<primitive-procedure char-ci>?> #\A #\A)  ==> #f
(#<primitive-procedure char-ci>?> #\A #\a)  ==> #f
(#<primitive-procedure char-ci<=?> #\A #\B)  ==> #t
(#<primitive-procedure char-ci<=?> #\a #\B)  ==> #t
(#<primitive-procedure char-ci<=?> #\A #\b)  ==> #t
(#<primitive-procedure char-ci<=?> #\a #\b)  ==> #t
(#<primitive-procedure char-ci<=?> #\9 #\0)  ==> #f
(#<primitive-procedure char-ci<=?> #\A #\A)  ==> #t
(#<primitive-procedure char-ci<=?> #\A #\a)  ==> #t
(#<primitive-procedure char-ci>=?> #\A #\B)  ==> #f
(#<primitive-procedure char-ci>=?> #\a #\B)  ==> #f
(#<primitive-procedure char-ci>=?> #\A #\b)  ==> #f
(#<primitive-procedure char-ci>=?> #\a #\b)  ==> #f
(#<primitive-procedure char-ci>=?> #\9 #\0)  ==> #t
(#<primitive-procedure char-ci>=?> #\A #\A)  ==> #t
(#<primitive-procedure char-ci>=?> #\A #\a)  ==> #t
(#<primitive-procedure char-alphabetic?> #\a)  ==> #t
(#<primitive-procedure char-alphabetic?> #\A)  ==> #t
(#<primitive-procedure char-alphabetic?> #\z)  ==> #t
(#<primitive-procedure char-alphabetic?> #\Z)  ==> #t
(#<primitive-procedure char-alphabetic?> #\0)  ==> #f
(#<primitive-procedure char-alphabetic?> #\9)  ==> #f
(#<primitive-procedure char-alphabetic?> #\space)  ==> #f
(#<primitive-procedure char-alphabetic?> #\;)  ==> #f
(#<primitive-procedure char-numeric?> #\a)  ==> #f
(#<primitive-procedure char-numeric?> #\A)  ==> #f
(#<primitive-procedure char-numeric?> #\z)  ==> #f
(#<primitive-procedure char-numeric?> #\Z)  ==> #f
(#<primitive-procedure char-numeric?> #\0)  ==> #t
(#<primitive-procedure char-numeric?> #\9)  ==> #t
(#<primitive-procedure char-numeric?> #\space)  ==> #f
(#<primitive-procedure char-numeric?> #\;)  ==> #f
(#<primitive-procedure char-whitespace?> #\a)  ==> #f
(#<primitive-procedure char-whitespace?> #\A)  ==> #f
(#<primitive-procedure char-whitespace?> #\z)  ==> #f
(#<primitive-procedure char-whitespace?> #\Z)  ==> #f
(#<primitive-procedure char-whitespace?> #\0)  ==> #f
(#<primitive-procedure char-whitespace?> #\9)  ==> #f
(#<primitive-procedure char-whitespace?> #\space)  ==> #t
(#<primitive-procedure char-whitespace?> #\;)  ==> #f
(#<primitive-procedure char-upper-case?> #\0)  ==> #f
(#<primitive-procedure char-upper-case?> #\9)  ==> #f
(#<primitive-procedure char-upper-case?> #\space)  ==> #f
(#<primitive-procedure char-upper-case?> #\;)  ==> #f
(#<primitive-procedure char-lower-case?> #\0)  ==> #f
(#<primitive-procedure char-lower-case?> #\9)  ==> #f
(#<primitive-procedure char-lower-case?> #\space)  ==> #f
(#<primitive-procedure char-lower-case?> #\;)  ==> #f
(#<primitive-procedure integer->char> 46)  ==> #\.
(#<primitive-procedure integer->char> 65)  ==> #\A
(#<primitive-procedure integer->char> 97)  ==> #\a
(#<primitive-procedure char-upcase> #\A)  ==> #\A
(#<primitive-procedure char-upcase> #\a)  ==> #\A
(#<primitive-procedure char-downcase> #\A)  ==> #\a
(#<primitive-procedure char-downcase> #\a)  ==> #\a
SECTION(6 7)
(#<primitive-procedure string?> "The word \"recursion\\\" has many meanings.")  ==> #t
(string-set! "?**")  ==> "?**"
(#<primitive-procedure string> #\a #\b #\c)  ==> "abc"
(#<primitive-procedure string>)  ==> ""
(#<primitive-procedure string-length> "abc")  ==> 3
(#<primitive-procedure string-ref> "abc" 0)  ==> #\a
(#<primitive-procedure string-ref> "abc" 2)  ==> #\c
(#<primitive-procedure string-length> "")  ==> 0
(#<primitive-procedure substring> "ab" 0 0)  ==> ""
(#<primitive-procedure substring> "ab" 1 1)  ==> ""
(#<primitive-procedure substring> "ab" 2 2)  ==> ""
(#<primitive-procedure substring> "ab" 0 1)  ==> "a"
(#<primitive-procedure substring> "ab" 1 2)  ==> "b"
(#<primitive-procedure substring> "ab" 0 2)  ==> "ab"
(#<primitive-procedure string-append> "foo" "bar")  ==> "foobar"
(#<primitive-procedure string-append> "foo")  ==> "foo"
(#<primitive-procedure string-append> "foo" "")  ==> "foo"
(#<primitive-procedure string-append> "" "foo")  ==> "foo"
(#<primitive-procedure string-append>)  ==> ""
(#<primitive-procedure make-string> 0)  ==> ""
(#<primitive-procedure string=?> "" "")  ==> #t
(#<primitive-procedure string<?> "" "")  ==> #f
(#<primitive-procedure string>?> "" "")  ==> #f
(#<primitive-procedure string<=?> "" "")  ==> #t
(#<primitive-procedure string>=?> "" "")  ==> #t
(#<primitive-procedure string-ci=?> "" "")  ==> #t
(#<primitive-procedure string-ci<?> "" "")  ==> #f
(#<primitive-procedure string-ci>?> "" "")  ==> #f
(#<primitive-procedure string-ci<=?> "" "")  ==> #t
(#<primitive-procedure string-ci>=?> "" "")  ==> #t
(#<primitive-procedure string=?> "A" "B")  ==> #f
(#<primitive-procedure string=?> "a" "b")  ==> #f
(#<primitive-procedure string=?> "9" "0")  ==> #f
(#<primitive-procedure string=?> "A" "A")  ==> #t
(#<primitive-procedure string<?> "A" "B")  ==> #t
(#<primitive-procedure string<?> "a" "b")  ==> #t
(#<primitive-procedure string<?> "9" "0")  ==> #f
(#<primitive-procedure string<?> "A" "A")  ==> #f
(#<primitive-procedure string>?> "A" "B")  ==> #f
(#<primitive-procedure string>?> "a" "b")  ==> #f
(#<primitive-procedure string>?> "9" "0")  ==> #t
(#<primitive-procedure string>?> "A" "A")  ==> #f
(#<primitive-procedure string<=?> "A" "B")  ==> #t
(#<primitive-procedure string<=?> "a" "b")  ==> #t
(#<primitive-procedure string<=?> "9" "0")  ==> #f
(#<primitive-procedure string<=?> "A" "A")  ==> #t
(#<primitive-procedure string>=?> "A" "B")  ==> #f
(#<primitive-procedure string>=?> "a" "b")  ==> #f
(#<primitive-procedure string>=?> "9" "0")  ==> #t
(#<primitive-procedure string>=?> "A" "A")  ==> #t
(#<primitive-procedure string-ci=?> "A" "B")  ==> #f
(#<primitive-procedure string-ci=?> "a" "B")  ==> #f
(#<primitive-procedure string-ci=?> "A" "b")  ==> #f
(#<primitive-procedure string-ci=?> "a" "b")  ==> #f
(#<primitive-procedure string-ci=?> "9" "0")  ==> #f
(#<primitive-procedure string-ci=?> "A" "A")  ==> #t
(#<primitive-procedure string-ci=?> "A" "a")  ==> #t
(#<primitive-procedure string-ci<?> "A" "B")  ==> #t
(#<primitive-procedure string-ci<?> "a" "B")  ==> #t
(#<primitive-procedure string-ci<?> "A" "b")  ==> #t
(#<primitive-procedure string-ci<?> "a" "b")  ==> #t
(#<primitive-procedure string-ci<?> "9" "0")  ==> #f
(#<primitive-procedure string-ci<?> "A" "A")  ==> #f
(#<primitive-procedure string-ci<?> "A" "a")  ==> #f
(#<primitive-procedure string-ci>?> "A" "B")  ==> #f
(#<primitive-procedure string-ci>?> "a" "B")  ==> #f
(#<primitive-procedure string-ci>?> "A" "b")  ==> #f
(#<primitive-procedure string-ci>?> "a" "b")  ==> #f
(#<primitive-procedure string-ci>?> "9" "0")  ==> #t
(#<primitive-procedure string-ci>?> "A" "A")  ==> #f
(#<primitive-procedure string-ci>?> "A" "a")  ==> #f
(#<primitive-procedure string-ci<=?> "A" "B")  ==> #t
(#<primitive-procedure string-ci<=?> "a" "B")  ==> #t
(#<primitive-procedure string-ci<=?> "A" "b")  ==> #t
(#<primitive-procedure string-ci<=?> "a" "b")  ==> #t
(#<primitive-procedure string-ci<=?> "9" "0")  ==> #f
(#<primitive-procedure string-ci<=?> "A" "A")  ==> #t
(#<primitive-procedure string-ci<=?> "A" "a")  ==> #t
(#<primitive-procedure string-ci>=?> "A" "B")  ==> #f
(#<primitive-procedure string-ci>=?> "a" "B")  ==> #f
(#<primitive-procedure string-ci>=?> "A" "b")  ==> #f
(#<primitive-procedure string-ci>=?> "a" "b")  ==> #f
(#<primitive-procedure string-ci>=?> "9" "0")  ==> #t
(#<primitive-procedure string-ci>=?> "A" "A")  ==> #t
(#<primitive-procedure string-ci>=?> "A" "a")  ==> #t
SECTION(6 8)
(#<primitive-procedure vector?> #(0 (2 2 2 2) "Anna"))  ==> #t
(#<primitive-procedure vector> a b c)  ==> #(a b c)
(#<primitive-procedure vector>)  ==> #()
(#<primitive-procedure vector-length> #(0 (2 2 2 2) "Anna"))  ==> 3
(#<primitive-procedure vector-length> #())  ==> 0
(#<primitive-procedure vector-ref> #(1 1 2 3 5 8 13 21) 5)  ==> 8
(vector-set #(0 ("Sue" "Sue") "Anna"))  ==> #(0 ("Sue" "Sue") "Anna")
(#<primitive-procedure make-vector> 2 hi)  ==> #(hi hi)
(#<primitive-procedure make-vector> 0)  ==> #()
(#<primitive-procedure make-vector> 0 a)  ==> #()
SECTION(6 9)
(#<primitive-procedure procedure?> #<primitive-procedure car>)  ==> #t
(#<primitive-procedure procedure?> car)  ==> #f
(#<primitive-procedure procedure?> #<CLOSURE <anon> "r4rstest.scm": (x) (* x x)>)  ==> #t
(#<primitive-procedure procedure?> (lambda (x) (* x x)))  ==> #f
(#<primitive-procedure call-with-current-continuation> #<primitive-procedure procedure?>)  ==> #t
(#<primitive-procedure procedure?> #<primitive-procedure />)  ==> #t
(#<primitive-procedure apply> #<primitive-procedure +> (3 4))  ==> 7
(#<primitive-procedure apply> #<CLOSURE <anon> "r4rstest.scm": (a b) (+ a b)> (3 4))  ==> 7
(#<primitive-procedure apply> #<primitive-procedure +> 10 (3 4))  ==> 17
(#<primitive-procedure apply> #<primitive-procedure list> ())  ==> ()
(#<CLOSURE <anon> "r4rstest.scm": args (f (apply g args))> 12 75)  ==> 30
(#<primitive-procedure map> #<primitive-procedure cadr> ((a b) (d e) (g h)))  ==> (b e h)
(#<primitive-procedure map> #<primitive-procedure +> (1 2 3) (4 5 6))  ==> (5 7 9)
(#<primitive-procedure map> #<primitive-procedure +> (1 2 3))  ==> (1 2 3)
(#<primitive-procedure map> #<primitive-procedure *> (1 2 3))  ==> (1 2 3)
(#<primitive-procedure map> #<primitive-procedure -> (1 2 3))  ==> (-1 -2 -3)
(for-each #(0 1 4 9 16))  ==> #(0 1 4 9 16)
(#<primitive-procedure call-with-current-continuation> #<CLOSURE <anon> "r4rstest.scm": (exit) (for-each (lambda (x) (if (negative? x) (exit x))) (quote (54 0 37 -3 245 19))) #t>)  ==> -3
(#<CLOSURE list-length "r4rstest.scm": (obj) (call-with-current-continuation (lambda (return) (letrec ((r (lambda (obj) (cond ((null? obj) 0) ((pair? obj) (+ (r (cdr obj)) 1)) (else (return #f)))))) (r obj))))> (1 2 3 4))  ==> 4
(#<CLOSURE list-length "r4rstest.scm": (obj) (#@call-with-current-continuation (#@lambda (return) (#@letrec ((r (#@lambda (obj) (#@cond ((#@null? #@obj) 0) ((#@pair? #@obj) (#@+ (#@r (#@cdr #@obj)) 1)) (#t (return #f))))))  (#@r #@obj))))> (a b . c))  ==> #f
(#<primitive-procedure map> #<primitive-procedure cadr> ())  ==> ()
SECTION(6 10 1)
(#<primitive-procedure input-port?> #<input-port 0>)  ==> #t
(#<primitive-procedure output-port?> #<output-port /dev/pts/4>)  ==> #t
(#<CLOSURE call-with-input-file "/var/tmp/portage/dev-scheme/scm-5.5.6/work/scm/Init5e6.scm": (str proc) (#@call-with-open-ports (#@open-input-file #@str) #@proc)> "r4rstest.scm" #<primitive-procedure input-port?>)  ==> #t
(#<primitive-procedure input-port?> #<input-port "r4rstest.scm">)  ==> #t
SECTION(6 10 2)
(#<primitive-procedure peek-char> #<input-port "r4rstest.scm">)  ==> #\;
(#<primitive-procedure read-char> #<input-port "r4rstest.scm">)  ==> #\;
(#<primitive-procedure read> #<input-port "r4rstest.scm">)  ==> (define cur-section (quote ()))
(#<primitive-procedure peek-char> #<input-port "r4rstest.scm">)  ==> #\(
(#<primitive-procedure read> #<input-port "r4rstest.scm">)  ==> (define errs (quote ()))
SECTION(6 10 3)
(#<CLOSURE call-with-output-file "/var/tmp/portage/dev-scheme/scm-5.5.6/work/scm/Init5e6.scm": (str proc) (#@call-with-open-ports (#@open-output-file #@str) #@proc)> "tmp1" #<CLOSURE <anon> "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
(#<primitive-procedure read> #<input-port "tmp1">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
(#<primitive-procedure eof-object?> #<eof>)  ==> #t
(#<primitive-procedure eof-object?> #<eof>)  ==> #t
(input-port? #t)  ==> #t
(#<primitive-procedure read-char> #<input-port "tmp1">)  ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp1">)  ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp1">)  ==> #\;
(#<primitive-procedure read> #<input-port "tmp1">)  ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
(#<primitive-procedure read> #<input-port "tmp1">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
(#<primitive-procedure output-port?> #<output-port "tmp2">)  ==> #t
(#<primitive-procedure read> #<input-port "tmp2">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
(#<primitive-procedure eof-object?> #<eof>)  ==> #t
(#<primitive-procedure eof-object?> #<eof>)  ==> #t
(input-port? #t)  ==> #t
(#<primitive-procedure read-char> #<input-port "tmp2">)  ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp2">)  ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp2">)  ==> #\;
(#<primitive-procedure read> #<input-port "tmp2">)  ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
(#<primitive-procedure read> #<input-port "tmp2">)  ==> (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)
(#<primitive-procedure string->list> "P l")  ==> (#\P #\space #\l)
(#<primitive-procedure string->list> "")  ==> ()
(#<primitive-procedure list->string> (#\1 #\\ #\"))  ==> "1\\\""
(#<primitive-procedure list->string> ())  ==> ""
SECTION(6 8)
(#<primitive-procedure vector->list> #(dah dah didah))  ==> (dah dah didah)
(#<primitive-procedure vector->list> #())  ==> ()
(#<primitive-procedure list->vector> (dididit dah))  ==> #(dididit dah)
(#<primitive-procedure list->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
(#<primitive-procedure force> #<promise #<CLOSURE test-delay "r4rstest.scm": () (begin (set! count (+ count 1)) (if (> count x) count (force p)))>>)  ==> 6
(#<primitive-procedure force> #<promise 6>)  ==> 6
(force 3)  ==> 3

Passed all tests
make[1]: Leaving directory `/var/tmp/portage/dev-scheme/scm-5.5.6/work/scm'
rm -f core a.out ramap.o ramap.obj 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 lints
rm -rf *temp
 * Building scm
; Scheme (linux) script created by SLIB/batch 
; [-p linux]
; ================ Write file with C defines
(delete-file "scmflags.h")
(call-with-output-file
  "scmflags.h"
  (lambda (fp)
    (for-each
      (lambda (string) (write-line string fp))
      '("#define IMPLINIT \"/usr/lib/scmInit5e6.scm\""))))
; ================ Compile C source files
(system "gcc -c -DSUN_DL -O2 -pipe dynl.c continue.c scm.c scmmain.c findexec.c script.c time.c repl.c scl.c eval.c sys.c subr.c debug.c unif.c rope.c")
dynl.c: In function ‘l_dyn_main_call’:
dynl.c:447:3: warning: passing argument 2 of ‘func’ from incompatible pointer type
dynl.c:447:3: note: expected ‘const char **’ but argument is of type ‘char **’
scmmain.c: In function ‘main’:
scmmain.c:109:32: warning: assignment discards qualifiers from pointer target type
scmmain.c:119:16: warning: assignment discards qualifiers from pointer target type
scmmain.c:120:5: warning: passing argument 1 of ‘script_count_argv’ from incompatible pointer type
scm.h:1074:17: note: expected ‘const char **’ but argument is of type ‘char **’
scmmain.c:122:15: warning: assignment from incompatible pointer type
scmmain.c:124:3: warning: passing argument 2 of ‘scm_find_execpath’ from incompatible pointer type
scm.h:775:18: note: expected ‘const char * const*’ but argument is of type ‘char **’
scmmain.c:131:5: warning: passing argument 2 of ‘scm_init_from_argv’ from incompatible pointer type
scm.h:768:17: note: expected ‘const char * const*’ but argument is of type ‘char **’
findexec.c: In function ‘dld_find_executable’:
findexec.c:163:11: warning: ignoring return value of ‘getcwd’, declared with attribute warn_unused_result
findexec.c:194:13: warning: ignoring return value of ‘getcwd’, declared with attribute warn_unused_result
script.c: In function ‘find_impl_file’:
script.c:149:18: warning: initialization discards qualifiers from pointer target type
script.c:165:10: warning: assignment discards qualifiers from pointer target type
script.c: In function ‘script_process_argv’:
script.c:362:12: warning: assignment discards qualifiers from pointer target type
script.c:377:22: warning: assignment discards qualifiers from pointer target type
script.c:380:39: warning: assignment discards qualifiers from pointer target type
repl.c: In function ‘everr’:
repl.c:2132:11: warning: assignment discards qualifiers from pointer target type
repl.c:2133:14: warning: assignment discards qualifiers from pointer target type
sys.c: In function ‘ltmpnam’:
sys.c:266:3: warning: ignoring return value of ‘tmpnam’, declared with attribute warn_unused_result
; ================ Link C object files
(system "gcc -rdynamic -o scm dynl.o continue.o scm.o scmmain.o findexec.o script.o time.o repl.o scl.o eval.o sys.o subr.o debug.o unif.o rope.o -Wl,-O1 -Wl,--as-needed -Wl,--hash-style=gnu -L/lib -ldl -lc")
sys.o: In function `ltmpnam':
sys.c:(.text+0xe92): warning: the use of `tmpnam' is dangerous, better use `mkstemp'
 * Building DLLs
; Scheme (linux) script created by SLIB/batch 
; [-p linux]
; ================ Write file with C defines
(delete-file "scmflags.h")
(call-with-output-file
  "scmflags.h"
  (lambda (fp)
    (for-each
      (lambda (string) (write-line string fp))
      '("#define IMPLINIT \"Init5e6.scm\""
        "#define COMPILED_INITS init_edline();"
        "#define DLL"))))
; ================ Compile C source files
(system "gcc -fpic -c -O2 -pipe edline.c")
(system "gcc -shared -o edline.so edline.o -lreadline -lncurses -lc")
(delete-file "edline.o")
; ================ Link C object files
(delete-file "slibcat")
; Scheme (linux) script created by SLIB/batch 
; [-p linux]
; ================ Write file with C defines
(delete-file "scmflags.h")
(call-with-output-file
  "scmflags.h"
  (lambda (fp)
    (for-each
      (lambda (string) (write-line string fp))
      '("#define IMPLINIT \"Init5e6.scm\""
        "#define COMPILED_INITS init_crs();"
        "#define DLL"))))
; ================ Compile C source files
(system "gcc -fpic -c -O2 -pipe crs.c")
crs.c:72:3: warning: initialization from incompatible pointer type
crs.c:73:3: warning: initialization from incompatible pointer type
crs.c: In function ‘lunctrl’:
crs.c:241:17: warning: initialization discards qualifiers from pointer target type
crs.c: In function ‘init_crs’:
crs.c:389:3: warning: passing argument 1 of ‘add_final’ from incompatible pointer type
scm.h:997:17: note: expected ‘void (*)(void)’ but argument is of type ‘SCM (*)()’
(system "gcc -shared -o crs.so crs.o -lcurses -lc")
(delete-file "crs.o")
; ================ Link C object files
(delete-file "slibcat")
>>> Source compiled.
make -j14 check 
./scm -fr4rstest.scm -e'(test-sc4)(test-cont)(test-delay)(gc)' \
-e '(or (null? errs) (quit 1))'
SECTION(2 1)
SECTION(3 4)
 #<primitive-procedure boolean?>
    #<primitive-procedure char?>
       #<primitive-procedure null?>
          #<primitive-procedure number?>
             #<primitive-procedure pair?>
                #<primitive-procedure procedure?>
                   #<primitive-procedure string?>
                      #<primitive-procedure symbol?>
                         #<primitive-procedure vector?>
(#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)#<CLOSURE (e) (set! errs (cons (list cur-section e) errs))>
(#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)
(#<primitive-procedure *> 3 4)  ==> 12
SECTION(4 1 4)
(#<CLOSURE (x) (+ x x)> 4)  ==> 8
(#<CLOSURE (x y) (- y x)> 7 10)  ==> 3
(#<CLOSURE (y) (+ x y)> 6)  ==> 10
(#<CLOSURE x x> 3 4 5 6)  ==> (3 4 5 6)
(#<CLOSURE (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
(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
(#<CLOSURE (x) (#@+ #@x 3)> 6)  ==> (3 6)
(#<CLOSURE (x) (#@+ #@x 3)> 6)  ==> 9
SECTION(5 2 2)
(define 45)  ==> 45
(#<CLOSURE () (#@define ((x 5))  x)>)  ==> 5
(define 34)  ==> 34
(#<CLOSURE () (#@define ((x 5))  x)>)  ==> 5
(define 34)  ==> 34
(#<CLOSURE (x) ((lambda () (define x 5) x)) x> 88)  ==> 88
(#<CLOSURE (x) (#@let ()  (#@define ((x 5))  #@x)) #@x> 4)  ==> 4
(define 34)  ==> 34
(internal-define 99)  ==> 99
(internal-define 77)  ==> 77
SECTION(6 1)
(#<primitive-procedure not> #t)  ==> #f
(#<primitive-procedure not> 3)  ==> #f
(#<primitive-procedure not> (3))  ==> #f
(#<primitive-procedure not> #f)  ==> #t
(#<primitive-procedure not> ())  ==> #f
(#<primitive-procedure not> ())  ==> #f
(#<primitive-procedure not> nil)  ==> #f
SECTION(6 2)
(#<primitive-procedure eqv?> a a)  ==> #t
(#<primitive-procedure eqv?> a b)  ==> #f
(#<primitive-procedure eqv?> 2 2)  ==> #t
(#<primitive-procedure eqv?> () ())  ==> #t
(#<primitive-procedure eqv?> 10000 10000)  ==> #t
(#<primitive-procedure eqv?> (1 . 2) (1 . 2))  ==> #f
(#<primitive-procedure eqv?> #<CLOSURE () 1> #<CLOSURE () 2>)  ==> #f
(#<primitive-procedure eqv?> #f nil)  ==> #f
(#<primitive-procedure eqv?> #<CLOSURE (x) x> #<CLOSURE (x) x>)  ==> #t
(#<primitive-procedure eqv?> #<CLOSURE () (set! n (+ n 1)) n> #<CLOSURE () (set! n (+ n 1)) n>)  ==> #t
(#<primitive-procedure eqv?> #<CLOSURE () (set! n (+ n 1)) n> #<CLOSURE () (set! n (+ n 1)) n>)  ==> #f
(#<primitive-procedure eqv?> #<CLOSURE () (if (eqv? f g) (quote f) (quote both))> #<CLOSURE () (if (eqv? f g) (quote g) (quote both))>)  ==> #f
(#<primitive-procedure eq?> a a)  ==> #t
(#<primitive-procedure eq?> (a) (a))  ==> #f
(#<primitive-procedure eq?> () ())  ==> #t
(#<primitive-procedure eq?> #<primitive-procedure car> #<primitive-procedure car>)  ==> #t
(#<primitive-procedure eq?> (a) (a))  ==> #t
(#<primitive-procedure eq?> #() #())  ==> #t
(#<primitive-procedure eq?> #<CLOSURE (x) x> #<CLOSURE (x) x>)  ==> #t
(#<primitive-procedure equal?> a a)  ==> #t
(#<primitive-procedure equal?> (a) (a))  ==> #t
(#<primitive-procedure equal?> (a (b) c) (a (b) c))  ==> #t
(#<primitive-procedure equal?> "abc" "abc")  ==> #t
(#<primitive-procedure equal?> 2 2)  ==> #t
(#<primitive-procedure equal?> #(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)
(#<primitive-procedure list?> (a b c))  ==> #t
(set-cdr! (a . 4))  ==> (a . 4)
(#<primitive-procedure eqv?> (a . 4) (a . 4))  ==> #t
(dot (a b c . d))  ==> (a b c . d)
(#<primitive-procedure list?> (a . 4))  ==> #f
(list? #f)  ==> #f
(#<primitive-procedure cons> a ())  ==> (a)
(#<primitive-procedure cons> (a) (b c d))  ==> ((a) b c d)
(#<primitive-procedure cons> "a" (b c))  ==> ("a" b c)
(#<primitive-procedure cons> a 3)  ==> (a . 3)
(#<primitive-procedure cons> (a b) c)  ==> ((a b) . c)
(#<primitive-procedure car> (a b c))  ==> a
(#<primitive-procedure car> ((a) b c d))  ==> (a)
(#<primitive-procedure car> (1 . 2))  ==> 1
(#<primitive-procedure cdr> ((a) b c d))  ==> (b c d)
(#<primitive-procedure cdr> (1 . 2))  ==> 2
(#<primitive-procedure list> a 7 c)  ==> (a 7 c)
(#<primitive-procedure list>)  ==> ()
(#<primitive-procedure length> (a b c))  ==> 3
(#<primitive-procedure length> (a (b) (c d e)))  ==> 3
(#<primitive-procedure length> ())  ==> 0
(#<primitive-procedure append> (x) (y))  ==> (x y)
(#<primitive-procedure append> (a) (b c d))  ==> (a b c d)
(#<primitive-procedure append> (a (b)) ((c)))  ==> (a (b) (c))
(#<primitive-procedure append>)  ==> ()
(#<primitive-procedure append> (a b) (c . d))  ==> (a b c . d)
(#<primitive-procedure append> () a)  ==> a
(#<primitive-procedure reverse> (a b c))  ==> (c b a)
(#<primitive-procedure reverse> (a (b c) d (e (f))))  ==> ((e (f)) d (b c) a)
(#<primitive-procedure list-ref> (a b c d) 2)  ==> c
(#<primitive-procedure memq> a (a b c))  ==> (a b c)
(#<primitive-procedure memq> b (a b c))  ==> (b c)
(#<primitive-procedure memq> a (b c d))  ==> #f
(#<primitive-procedure memq> (a) (b (a) c))  ==> #f
(#<primitive-procedure member> (a) (b (a) c))  ==> ((a) c)
(#<primitive-procedure memv> 101 (100 101 102))  ==> (101 102)
(#<primitive-procedure assq> a ((a 1) (b 2) (c 3)))  ==> (a 1)
(#<primitive-procedure assq> b ((a 1) (b 2) (c 3)))  ==> (b 2)
(#<primitive-procedure assq> d ((a 1) (b 2) (c 3)))  ==> #f
(#<primitive-procedure assq> (a) (((a)) ((b)) ((c))))  ==> #f
(#<primitive-procedure assoc> (a) (((a)) ((b)) ((c))))  ==> ((a))
(#<primitive-procedure assv> 5 ((2 3) (5 7) (11 13)))  ==> (5 7)
SECTION(6 4)
(#<primitive-procedure symbol?> a)  ==> #t
(standard-case #t)  ==> #t
(standard-case #t)  ==> #t
(#<primitive-procedure symbol->string> flying-fish)  ==> "flying-fish"
(#<primitive-procedure symbol->string> martin)  ==> "martin"
(#<primitive-procedure symbol->string> \Malvina)  ==> "Malvina"
(standard-case #t)  ==> #t
(string-set! "cb")  ==> "cb"
(#<primitive-procedure symbol->string> ab)  ==> "ab"
(#<primitive-procedure string->symbol> "ab")  ==> ab
(#<primitive-procedure eq?> mississippi mississippi)  ==> #t
(string->symbol #f)  ==> #f
(#<primitive-procedure string->symbol> "jollywog")  ==> jollywog
SECTION(6 5 5)
(#<primitive-procedure number?> 3)  ==> #t
(#<primitive-procedure complex?> 3)  ==> #t
(#<primitive-procedure real?> 3)  ==> #t
(#<primitive-procedure rational?> 3)  ==> #t
(#<primitive-procedure integer?> 3)  ==> #t
(#<primitive-procedure exact?> 3)  ==> #t
(#<primitive-procedure inexact?> 3)  ==> #f
(#<primitive-procedure integer-expt> 0 0)  ==> 1
(#<primitive-procedure integer-expt> 0 1)  ==> 0
(#<primitive-procedure integer-expt> 0 256)  ==> 0
(#<primitive-procedure integer-expt> -1 256)  ==> 1
(#<primitive-procedure integer-expt> -1 255)  ==> -1
(#<primitive-procedure integer-expt> -1 -256)  ==> 1
(#<primitive-procedure integer-expt> -1 -255)  ==> -1
(#<primitive-procedure integer-expt> 256 0)  ==> 1
(#<primitive-procedure integer-expt> -256 0)  ==> 1
(#<primitive-procedure integer-expt> 256 1)  ==> 256
(#<primitive-procedure integer-expt> -256 1)  ==> -256
(#<primitive-procedure integer-expt> 2 3)  ==> 8
(#<primitive-procedure integer-expt> -2 3)  ==> -8
(#<primitive-procedure integer-expt> 3 2)  ==> 9
(#<primitive-procedure integer-expt> -3 2)  ==> 9
(#<primitive-procedure => 22 22 22)  ==> #t
(#<primitive-procedure => 22 22)  ==> #t
(#<primitive-procedure => 34 34 35)  ==> #f
(#<primitive-procedure => 34 35)  ==> #f
(#<primitive-procedure >> 3 -6246)  ==> #t
(#<primitive-procedure >> 9 9 -2424)  ==> #f
(#<primitive-procedure >=> 3 -4 -6246)  ==> #t
(#<primitive-procedure >=> 9 9)  ==> #t
(#<primitive-procedure >=> 8 9)  ==> #f
(#<primitive-procedure <> -1 2 3 4 5 6 7 8)  ==> #t
(#<primitive-procedure <> -1 2 3 4 4 5 6 7)  ==> #f
(#<primitive-procedure <=> -1 2 3 4 5 6 7 8)  ==> #t
(#<primitive-procedure <=> -1 2 3 4 4 5 6 7)  ==> #t
(#<primitive-procedure <> 1 3 2)  ==> #f
(#<primitive-procedure >=> 1 3 2)  ==> #f
(#<primitive-procedure zero?> 0)  ==> #t
(#<primitive-procedure zero?> 1)  ==> #f
(#<primitive-procedure zero?> -1)  ==> #f
(#<primitive-procedure zero?> -100)  ==> #f
(#<primitive-procedure positive?> 4)  ==> #t
(#<primitive-procedure positive?> -4)  ==> #f
(#<primitive-procedure positive?> 0)  ==> #f
(#<primitive-procedure negative?> 4)  ==> #f
(#<primitive-procedure negative?> -4)  ==> #t
(#<primitive-procedure negative?> 0)  ==> #f
(#<primitive-procedure odd?> 3)  ==> #t
(#<primitive-procedure odd?> 2)  ==> #f
(#<primitive-procedure odd?> -4)  ==> #f
(#<primitive-procedure odd?> -1)  ==> #t
(#<primitive-procedure even?> 3)  ==> #f
(#<primitive-procedure even?> 2)  ==> #t
(#<primitive-procedure even?> -4)  ==> #t
(#<primitive-procedure even?> -1)  ==> #f
(#<primitive-procedure max> 34 5 7 38 6)  ==> 38
(#<primitive-procedure min> 3 5 5 330 4 -24)  ==> -24
(#<primitive-procedure +> 3 4)  ==> 7
(#<primitive-procedure +> 3)  ==> 3
(#<primitive-procedure +>)  ==> 0
(#<primitive-procedure *> 4)  ==> 4
(#<primitive-procedure *>)  ==> 1
(#<primitive-procedure /> 1)  ==> 1
(#<primitive-procedure /> -1)  ==> -1
(#<primitive-procedure /> 6 3)  ==> 2
(#<primitive-procedure /> 6 -2)  ==> -3
(#<primitive-procedure /> -6 2)  ==> -3
(#<primitive-procedure /> -6 -2)  ==> 3
(#<primitive-procedure -> 3 4)  ==> -1
(#<primitive-procedure -> 3)  ==> -3
(#<primitive-procedure abs> -7)  ==> 7
(#<primitive-procedure abs> 7)  ==> 7
(#<primitive-procedure abs> 0)  ==> 0
(#<primitive-procedure quotient> 35 7)  ==> 5
(#<primitive-procedure quotient> -35 7)  ==> -5
(#<primitive-procedure quotient> 35 -7)  ==> -5
(#<primitive-procedure quotient> -35 -7)  ==> 5
(#<primitive-procedure modulo> 13 4)  ==> 1
(#<primitive-procedure remainder> 13 4)  ==> 1
(#<primitive-procedure modulo> -13 4)  ==> 3
(#<primitive-procedure remainder> -13 4)  ==> -1
(#<primitive-procedure modulo> 13 -4)  ==> -3
(#<primitive-procedure remainder> 13 -4)  ==> 1
(#<primitive-procedure modulo> -13 -4)  ==> -1
(#<primitive-procedure remainder> -13 -4)  ==> -1
(#<primitive-procedure modulo> 0 86400)  ==> 0
(#<primitive-procedure modulo> 0 -86400)  ==> 0
(#<CLOSURE (n1 n2) (= n1 (+ (* n2 (quotient n1 n2)) (remainder n1 n2)))> 238 9)  ==> #t
(#<CLOSURE (n1 n2) (#@= #@n1 (#@+ (#@* #@n2 (#@quotient #@n1 #@n2)) (#@remainder #@n1 #@n2)))> -238 9)  ==> #t
(#<CLOSURE (n1 n2) (#@= #@n1 (#@+ (#@* #@n2 (#@quotient #@n1 #@n2)) (#@remainder #@n1 #@n2)))> 238 -9)  ==> #t
(#<CLOSURE (n1 n2) (#@= #@n1 (#@+ (#@* #@n2 (#@quotient #@n1 #@n2)) (#@remainder #@n1 #@n2)))> -238 -9)  ==> #t
(#<primitive-procedure gcd> 0 4)  ==> 4
(#<primitive-procedure gcd> -4 0)  ==> 4
(#<primitive-procedure gcd> 32 -36)  ==> 4
(#<primitive-procedure gcd>)  ==> 0
(#<primitive-procedure lcm> 32 -36)  ==> 288
(#<primitive-procedure lcm>)  ==> 1
SECTION(6 5 5)
(#<CLOSURE (str) (#@define ((ans (string->number str)))  (cond ((not ans) #t) ((number? ans) #t) (else ans)))> "+#.#")  ==> #t
(#<CLOSURE (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-#.#")  ==> #t
(#<CLOSURE (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#.#")  ==> #t
(#<CLOSURE (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0")  ==> #t
(#<CLOSURE (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0")  ==> #t
(#<CLOSURE (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0")  ==> #t
(#<CLOSURE (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "+1/0i")  ==> #t
(#<CLOSURE (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0i")  ==> #t
(#<CLOSURE (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0i")  ==> #t
(#<CLOSURE (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0-0/0i")  ==> #t
(#<CLOSURE (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0-1/0i")  ==> #t
(#<CLOSURE (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0+1/0i")  ==> #t
(#<CLOSURE (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#i")  ==> #t
(#<CLOSURE (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#e")  ==> #t
(#<CLOSURE (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#")  ==> #t
(#<CLOSURE (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#i0/0")  ==> #t
SECTION(6 5 9)
(#<primitive-procedure number->string> 0)  ==> "0"
(#<primitive-procedure number->string> 100)  ==> "100"
(#<primitive-procedure number->string> 256 16)  ==> "100"
(#<primitive-procedure string->number> "100")  ==> 100
(#<primitive-procedure string->number> "100" 16)  ==> 256
(#<primitive-procedure string->number> "")  ==> #f
(#<primitive-procedure string->number> ".")  ==> #f
(#<primitive-procedure string->number> "d")  ==> #f
(#<primitive-procedure string->number> "D")  ==> #f
(#<primitive-procedure string->number> "i")  ==> #f
(#<primitive-procedure string->number> "I")  ==> #f
(#<primitive-procedure string->number> "3i")  ==> #f
(#<primitive-procedure string->number> "3I")  ==> #f
(#<primitive-procedure string->number> "33i")  ==> #f
(#<primitive-procedure string->number> "33I")  ==> #f
(#<primitive-procedure string->number> "3.3i")  ==> #f
(#<primitive-procedure string->number> "3.3I")  ==> #f
(#<primitive-procedure string->number> "-")  ==> #f
(#<primitive-procedure string->number> "+")  ==> #f
(string->number #t)  ==> #t
(string->number #t)  ==> #t
SECTION(6 6)
(#<primitive-procedure eqv?> #\space #\space)  ==> #t
(#<primitive-procedure eqv?> #\space #\space)  ==> #t
(#<primitive-procedure char?> #\a)  ==> #t
(#<primitive-procedure char?> #\()  ==> #t
(#<primitive-procedure char?> #\space)  ==> #t
(#<primitive-procedure char?> #\nl)  ==> #t
(#<primitive-procedure char=?> #\A #\B)  ==> #f
(#<primitive-procedure char=?> #\a #\b)  ==> #f
(#<primitive-procedure char=?> #\9 #\0)  ==> #f
(#<primitive-procedure char=?> #\A #\A)  ==> #t
(#<primitive-procedure char<?> #\A #\B)  ==> #t
(#<primitive-procedure char<?> #\a #\b)  ==> #t
(#<primitive-procedure char<?> #\9 #\0)  ==> #f
(#<primitive-procedure char<?> #\A #\A)  ==> #f
(#<primitive-procedure char>?> #\A #\B)  ==> #f
(#<primitive-procedure char>?> #\a #\b)  ==> #f
(#<primitive-procedure char>?> #\9 #\0)  ==> #t
(#<primitive-procedure char>?> #\A #\A)  ==> #f
(#<primitive-procedure char<=?> #\A #\B)  ==> #t
(#<primitive-procedure char<=?> #\a #\b)  ==> #t
(#<primitive-procedure char<=?> #\9 #\0)  ==> #f
(#<primitive-procedure char<=?> #\A #\A)  ==> #t
(#<primitive-procedure char>=?> #\A #\B)  ==> #f
(#<primitive-procedure char>=?> #\a #\b)  ==> #f
(#<primitive-procedure char>=?> #\9 #\0)  ==> #t
(#<primitive-procedure char>=?> #\A #\A)  ==> #t
(#<primitive-procedure char-ci=?> #\A #\B)  ==> #f
(#<primitive-procedure char-ci=?> #\a #\B)  ==> #f
(#<primitive-procedure char-ci=?> #\A #\b)  ==> #f
(#<primitive-procedure char-ci=?> #\a #\b)  ==> #f
(#<primitive-procedure char-ci=?> #\9 #\0)  ==> #f
(#<primitive-procedure char-ci=?> #\A #\A)  ==> #t
(#<primitive-procedure char-ci=?> #\A #\a)  ==> #t
(#<primitive-procedure char-ci<?> #\A #\B)  ==> #t
(#<primitive-procedure char-ci<?> #\a #\B)  ==> #t
(#<primitive-procedure char-ci<?> #\A #\b)  ==> #t
(#<primitive-procedure char-ci<?> #\a #\b)  ==> #t
(#<primitive-procedure char-ci<?> #\9 #\0)  ==> #f
(#<primitive-procedure char-ci<?> #\A #\A)  ==> #f
(#<primitive-procedure char-ci<?> #\A #\a)  ==> #f
(#<primitive-procedure char-ci>?> #\A #\B)  ==> #f
(#<primitive-procedure char-ci>?> #\a #\B)  ==> #f
(#<primitive-procedure char-ci>?> #\A #\b)  ==> #f
(#<primitive-procedure char-ci>?> #\a #\b)  ==> #f
(#<primitive-procedure char-ci>?> #\9 #\0)  ==> #t
(#<primitive-procedure char-ci>?> #\A #\A)  ==> #f
(#<primitive-procedure char-ci>?> #\A #\a)  ==> #f
(#<primitive-procedure char-ci<=?> #\A #\B)  ==> #t
(#<primitive-procedure char-ci<=?> #\a #\B)  ==> #t
(#<primitive-procedure char-ci<=?> #\A #\b)  ==> #t
(#<primitive-procedure char-ci<=?> #\a #\b)  ==> #t
(#<primitive-procedure char-ci<=?> #\9 #\0)  ==> #f
(#<primitive-procedure char-ci<=?> #\A #\A)  ==> #t
(#<primitive-procedure char-ci<=?> #\A #\a)  ==> #t
(#<primitive-procedure char-ci>=?> #\A #\B)  ==> #f
(#<primitive-procedure char-ci>=?> #\a #\B)  ==> #f
(#<primitive-procedure char-ci>=?> #\A #\b)  ==> #f
(#<primitive-procedure char-ci>=?> #\a #\b)  ==> #f
(#<primitive-procedure char-ci>=?> #\9 #\0)  ==> #t
(#<primitive-procedure char-ci>=?> #\A #\A)  ==> #t
(#<primitive-procedure char-ci>=?> #\A #\a)  ==> #t
(#<primitive-procedure char-alphabetic?> #\a)  ==> #t
(#<primitive-procedure char-alphabetic?> #\A)  ==> #t
(#<primitive-procedure char-alphabetic?> #\z)  ==> #t
(#<primitive-procedure char-alphabetic?> #\Z)  ==> #t
(#<primitive-procedure char-alphabetic?> #\0)  ==> #f
(#<primitive-procedure char-alphabetic?> #\9)  ==> #f
(#<primitive-procedure char-alphabetic?> #\space)  ==> #f
(#<primitive-procedure char-alphabetic?> #\;)  ==> #f
(#<primitive-procedure char-numeric?> #\a)  ==> #f
(#<primitive-procedure char-numeric?> #\A)  ==> #f
(#<primitive-procedure char-numeric?> #\z)  ==> #f
(#<primitive-procedure char-numeric?> #\Z)  ==> #f
(#<primitive-procedure char-numeric?> #\0)  ==> #t
(#<primitive-procedure char-numeric?> #\9)  ==> #t
(#<primitive-procedure char-numeric?> #\space)  ==> #f
(#<primitive-procedure char-numeric?> #\;)  ==> #f
(#<primitive-procedure char-whitespace?> #\a)  ==> #f
(#<primitive-procedure char-whitespace?> #\A)  ==> #f
(#<primitive-procedure char-whitespace?> #\z)  ==> #f
(#<primitive-procedure char-whitespace?> #\Z)  ==> #f
(#<primitive-procedure char-whitespace?> #\0)  ==> #f
(#<primitive-procedure char-whitespace?> #\9)  ==> #f
(#<primitive-procedure char-whitespace?> #\space)  ==> #t
(#<primitive-procedure char-whitespace?> #\;)  ==> #f
(#<primitive-procedure char-upper-case?> #\0)  ==> #f
(#<primitive-procedure char-upper-case?> #\9)  ==> #f
(#<primitive-procedure char-upper-case?> #\space)  ==> #f
(#<primitive-procedure char-upper-case?> #\;)  ==> #f
(#<primitive-procedure char-lower-case?> #\0)  ==> #f
(#<primitive-procedure char-lower-case?> #\9)  ==> #f
(#<primitive-procedure char-lower-case?> #\space)  ==> #f
(#<primitive-procedure char-lower-case?> #\;)  ==> #f
(#<primitive-procedure integer->char> 46)  ==> #\.
(#<primitive-procedure integer->char> 65)  ==> #\A
(#<primitive-procedure integer->char> 97)  ==> #\a
(#<primitive-procedure char-upcase> #\A)  ==> #\A
(#<primitive-procedure char-upcase> #\a)  ==> #\A
(#<primitive-procedure char-downcase> #\A)  ==> #\a
(#<primitive-procedure char-downcase> #\a)  ==> #\a
SECTION(6 7)
(#<primitive-procedure string?> "The word \"recursion\\\" has many meanings.")  ==> #t
(string-set! "?**")  ==> "?**"
(#<primitive-procedure string> #\a #\b #\c)  ==> "abc"
(#<primitive-procedure string>)  ==> ""
(#<primitive-procedure string-length> "abc")  ==> 3
(#<primitive-procedure string-ref> "abc" 0)  ==> #\a
(#<primitive-procedure string-ref> "abc" 2)  ==> #\c
(#<primitive-procedure string-length> "")  ==> 0
(#<primitive-procedure substring> "ab" 0 0)  ==> ""
(#<primitive-procedure substring> "ab" 1 1)  ==> ""
(#<primitive-procedure substring> "ab" 2 2)  ==> ""
(#<primitive-procedure substring> "ab" 0 1)  ==> "a"
(#<primitive-procedure substring> "ab" 1 2)  ==> "b"
(#<primitive-procedure substring> "ab" 0 2)  ==> "ab"
(#<primitive-procedure string-append> "foo" "bar")  ==> "foobar"
(#<primitive-procedure string-append> "foo")  ==> "foo"
(#<primitive-procedure string-append> "foo" "")  ==> "foo"
(#<primitive-procedure string-append> "" "foo")  ==> "foo"
(#<primitive-procedure string-append>)  ==> ""
(#<primitive-procedure make-string> 0)  ==> ""
(#<primitive-procedure string=?> "" "")  ==> #t
(#<primitive-procedure string<?> "" "")  ==> #f
(#<primitive-procedure string>?> "" "")  ==> #f
(#<primitive-procedure string<=?> "" "")  ==> #t
(#<primitive-procedure string>=?> "" "")  ==> #t
(#<primitive-procedure string-ci=?> "" "")  ==> #t
(#<primitive-procedure string-ci<?> "" "")  ==> #f
(#<primitive-procedure string-ci>?> "" "")  ==> #f
(#<primitive-procedure string-ci<=?> "" "")  ==> #t
(#<primitive-procedure string-ci>=?> "" "")  ==> #t
(#<primitive-procedure string=?> "A" "B")  ==> #f
(#<primitive-procedure string=?> "a" "b")  ==> #f
(#<primitive-procedure string=?> "9" "0")  ==> #f
(#<primitive-procedure string=?> "A" "A")  ==> #t
(#<primitive-procedure string<?> "A" "B")  ==> #t
(#<primitive-procedure string<?> "a" "b")  ==> #t
(#<primitive-procedure string<?> "9" "0")  ==> #f
(#<primitive-procedure string<?> "A" "A")  ==> #f
(#<primitive-procedure string>?> "A" "B")  ==> #f
(#<primitive-procedure string>?> "a" "b")  ==> #f
(#<primitive-procedure string>?> "9" "0")  ==> #t
(#<primitive-procedure string>?> "A" "A")  ==> #f
(#<primitive-procedure string<=?> "A" "B")  ==> #t
(#<primitive-procedure string<=?> "a" "b")  ==> #t
(#<primitive-procedure string<=?> "9" "0")  ==> #f
(#<primitive-procedure string<=?> "A" "A")  ==> #t
(#<primitive-procedure string>=?> "A" "B")  ==> #f
(#<primitive-procedure string>=?> "a" "b")  ==> #f
(#<primitive-procedure string>=?> "9" "0")  ==> #t
(#<primitive-procedure string>=?> "A" "A")  ==> #t
(#<primitive-procedure string-ci=?> "A" "B")  ==> #f
(#<primitive-procedure string-ci=?> "a" "B")  ==> #f
(#<primitive-procedure string-ci=?> "A" "b")  ==> #f
(#<primitive-procedure string-ci=?> "a" "b")  ==> #f
(#<primitive-procedure string-ci=?> "9" "0")  ==> #f
(#<primitive-procedure string-ci=?> "A" "A")  ==> #t
(#<primitive-procedure string-ci=?> "A" "a")  ==> #t
(#<primitive-procedure string-ci<?> "A" "B")  ==> #t
(#<primitive-procedure string-ci<?> "a" "B")  ==> #t
(#<primitive-procedure string-ci<?> "A" "b")  ==> #t
(#<primitive-procedure string-ci<?> "a" "b")  ==> #t
(#<primitive-procedure string-ci<?> "9" "0")  ==> #f
(#<primitive-procedure string-ci<?> "A" "A")  ==> #f
(#<primitive-procedure string-ci<?> "A" "a")  ==> #f
(#<primitive-procedure string-ci>?> "A" "B")  ==> #f
(#<primitive-procedure string-ci>?> "a" "B")  ==> #f
(#<primitive-procedure string-ci>?> "A" "b")  ==> #f
(#<primitive-procedure string-ci>?> "a" "b")  ==> #f
(#<primitive-procedure string-ci>?> "9" "0")  ==> #t
(#<primitive-procedure string-ci>?> "A" "A")  ==> #f
(#<primitive-procedure string-ci>?> "A" "a")  ==> #f
(#<primitive-procedure string-ci<=?> "A" "B")  ==> #t
(#<primitive-procedure string-ci<=?> "a" "B")  ==> #t
(#<primitive-procedure string-ci<=?> "A" "b")  ==> #t
(#<primitive-procedure string-ci<=?> "a" "b")  ==> #t
(#<primitive-procedure string-ci<=?> "9" "0")  ==> #f
(#<primitive-procedure string-ci<=?> "A" "A")  ==> #t
(#<primitive-procedure string-ci<=?> "A" "a")  ==> #t
(#<primitive-procedure string-ci>=?> "A" "B")  ==> #f
(#<primitive-procedure string-ci>=?> "a" "B")  ==> #f
(#<primitive-procedure string-ci>=?> "A" "b")  ==> #f
(#<primitive-procedure string-ci>=?> "a" "b")  ==> #f
(#<primitive-procedure string-ci>=?> "9" "0")  ==> #t
(#<primitive-procedure string-ci>=?> "A" "A")  ==> #t
(#<primitive-procedure string-ci>=?> "A" "a")  ==> #t
SECTION(6 8)
(#<primitive-procedure vector?> #(0 (2 2 2 2) "Anna"))  ==> #t
(#<primitive-procedure vector> a b c)  ==> #(a b c)
(#<primitive-procedure vector>)  ==> #()
(#<primitive-procedure vector-length> #(0 (2 2 2 2) "Anna"))  ==> 3
(#<primitive-procedure vector-length> #())  ==> 0
(#<primitive-procedure vector-ref> #(1 1 2 3 5 8 13 21) 5)  ==> 8
(vector-set #(0 ("Sue" "Sue") "Anna"))  ==> #(0 ("Sue" "Sue") "Anna")
(#<primitive-procedure make-vector> 2 hi)  ==> #(hi hi)
(#<primitive-procedure make-vector> 0)  ==> #()
(#<primitive-procedure make-vector> 0 a)  ==> #()
SECTION(6 9)
(#<primitive-procedure procedure?> #<primitive-procedure car>)  ==> #t
(#<primitive-procedure procedure?> car)  ==> #f
(#<primitive-procedure procedure?> #<CLOSURE (x) (* x x)>)  ==> #t
(#<primitive-procedure procedure?> (lambda (x) (* x x)))  ==> #f
(#<primitive-procedure call-with-current-continuation> #<primitive-procedure procedure?>)  ==> #t
(#<primitive-procedure procedure?> #<primitive-procedure />)  ==> #t
(#<primitive-procedure apply> #<primitive-procedure +> (3 4))  ==> 7
(#<primitive-procedure apply> #<CLOSURE (a b) (+ a b)> (3 4))  ==> 7
(#<primitive-procedure apply> #<primitive-procedure +> 10 (3 4))  ==> 17
(#<primitive-procedure apply> #<primitive-procedure list> ())  ==> ()
(#<CLOSURE args (f (apply g args))> 12 75)  ==> 30
(#<primitive-procedure map> #<primitive-procedure cadr> ((a b) (d e) (g h)))  ==> (b e h)
(#<primitive-procedure map> #<primitive-procedure +> (1 2 3) (4 5 6))  ==> (5 7 9)
(#<primitive-procedure map> #<primitive-procedure +> (1 2 3))  ==> (1 2 3)
(#<primitive-procedure map> #<primitive-procedure *> (1 2 3))  ==> (1 2 3)
(#<primitive-procedure map> #<primitive-procedure -> (1 2 3))  ==> (-1 -2 -3)
(for-each #(0 1 4 9 16))  ==> #(0 1 4 9 16)
(#<primitive-procedure call-with-current-continuation> #<CLOSURE (exit) (for-each (lambda (x) (if (negative? x) (exit x))) (quote (54 0 37 -3 245 19))) #t>)  ==> -3
(#<CLOSURE (obj) (call-with-current-continuation (lambda (return) (letrec ((r (lambda (obj) (cond ((null? obj) 0) ((pair? obj) (+ (r (cdr obj)) 1)) (else (return #f)))))) (r obj))))> (1 2 3 4))  ==> 4
(#<CLOSURE (obj) (#@call-with-current-continuation (#@lambda (return) (#@letrec ((r (#@lambda (obj) (#@cond ((#@null? #@obj) 0) ((#@pair? #@obj) (#@+ (#@r (#@cdr #@obj)) 1)) (#t (return #f))))))  (#@r #@obj))))> (a b . c))  ==> #f
(#<primitive-procedure map> #<primitive-procedure cadr> ())  ==> ()
SECTION(6 10 1)
(#<primitive-procedure input-port?> #<input-port 0>)  ==> #t
(#<primitive-procedure output-port?> #<output-port /dev/pts/4>)  ==> #t
(#<CLOSURE (str proc) (#@call-with-open-ports (#@open-input-file #@str) #@proc)> "r4rstest.scm" #<primitive-procedure input-port?>)  ==> #t
(#<primitive-procedure input-port?> #<input-port "r4rstest.scm">)  ==> #t
SECTION(6 10 2)
(#<primitive-procedure peek-char> #<input-port "r4rstest.scm">)  ==> #\;
(#<primitive-procedure read-char> #<input-port "r4rstest.scm">)  ==> #\;
(#<primitive-procedure read> #<input-port "r4rstest.scm">)  ==> (define cur-section (quote ()))
(#<primitive-procedure peek-char> #<input-port "r4rstest.scm">)  ==> #\(
(#<primitive-procedure read> #<input-port "r4rstest.scm">)  ==> (define errs (quote ()))
SECTION(6 10 3)
(#<CLOSURE (str proc) (#@call-with-open-ports (#@open-output-file #@str) #@proc)> "tmp1" #<CLOSURE (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
(#<primitive-procedure read> #<input-port "tmp1">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
(#<primitive-procedure eof-object?> #<eof>)  ==> #t
(#<primitive-procedure eof-object?> #<eof>)  ==> #t
(input-port? #t)  ==> #t
(#<primitive-procedure read-char> #<input-port "tmp1">)  ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp1">)  ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp1">)  ==> #\;
(#<primitive-procedure read> #<input-port "tmp1">)  ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
(#<primitive-procedure read> #<input-port "tmp1">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
(#<primitive-procedure output-port?> #<output-port "tmp2">)  ==> #t
(#<primitive-procedure read> #<input-port "tmp2">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
(#<primitive-procedure eof-object?> #<eof>)  ==> #t
(#<primitive-procedure eof-object?> #<eof>)  ==> #t
(input-port? #t)  ==> #t
(#<primitive-procedure read-char> #<input-port "tmp2">)  ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp2">)  ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp2">)  ==> #\;
(#<primitive-procedure read> #<input-port "tmp2">)  ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
(#<primitive-procedure read> #<input-port "tmp2">)  ==> (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)
(#<primitive-procedure string->list> "P l")  ==> (#\P #\space #\l)
(#<primitive-procedure string->list> "")  ==> ()
(#<primitive-procedure list->string> (#\1 #\\ #\"))  ==> "1\\\""
(#<primitive-procedure list->string> ())  ==> ""
SECTION(6 8)
(#<primitive-procedure vector->list> #(dah dah didah))  ==> (dah dah didah)
(#<primitive-procedure vector->list> #())  ==> ()
(#<primitive-procedure list->vector> (dididit dah))  ==> #(dididit dah)
(#<primitive-procedure list->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 continuations; 
SECTION(6 9)
(#<CLOSURE (x y) (let* ((eot (list (quote eot))) (xf (next-leaf-generator x eot)) (yf (next-leaf-generator y eot))) (letrec ((loop (lambda (x y) (cond ((not (eq? x y)) #f) ((eq? eot x) #t) (else (loop (xf) (yf))))))) (loop (xf) (yf))))> (a (b (c))) ((a) b c))  ==> #t
(#<CLOSURE (x y) (#@let* ((eot (#@list (#@quote eot))) (xf (#@next-leaf-generator #@x #@eot)) (yf (#@next-leaf-generator #@y #@eot)))  (#@letrec ((loop (#@lambda (x y) (#@cond ((#@not (#@eq? #@x #@y)) #f) ((#@eq? #@eot #@x) #t) (#t (#@loop (#@xf) (#@yf)))))))  (#@loop (#@xf) (#@yf))))> (a (b (c))) ((a) b c d))  ==> #f

Passed all tests

;testing DELAY and FORCE; 
SECTION(6 9)
(delay 3)  ==> 3
(delay (3 3))  ==> (3 3)
(delay 2)  ==> 2
(#<primitive-procedure force> #<promise #<CLOSURE () (begin (set! count (+ count 1)) (if (> count x) count (force p)))>>)  ==> 6
(#<primitive-procedure force> #<promise 6>)  ==> 6
(force 3)  ==> 3

Passed all tests

>>> Install scm-5.5.6 into /var/tmp/portage/dev-scheme/scm-5.5.6/image/ category dev-scheme
make -j14 DESTDIR=/var/tmp/portage/dev-scheme/scm-5.5.6/image/ install 
mkdir -p /var/tmp/portage/dev-scheme/scm-5.5.6/image//usr/bin/
mkdir -p /var/tmp/portage/dev-scheme/scm-5.5.6/image//usr/man/man1/
cp scm scmlit /var/tmp/portage/dev-scheme/scm-5.5.6/image//usr/bin/
cp scm.1 /var/tmp/portage/dev-scheme/scm-5.5.6/image//usr/man/man1/
mkdir -p /var/tmp/portage/dev-scheme/scm-5.5.6/image//usr/lib/scm/
test -f /var/tmp/portage/dev-scheme/scm-5.5.6/image//usr/lib/scm/require.scm || \
	cp requires.scm /var/tmp/portage/dev-scheme/scm-5.5.6/image//usr/lib/scm/require.scm
cp Init5e6.scm Transcen.scm Link.scm Macro.scm Macexp.scm Tscript.scm compile.scm Iedline.scm Idiffer.scm hobbit.scm scmhob.scm scmhob.h COPYING COPYING.LESSER r4rstest.scm build build.scm mkimpcat.scm *.so patchlvl.h xatoms.scm x11.scm xevent.scm keysymdef.scm 	/var/tmp/portage/dev-scheme/scm-5.5.6/image//usr/lib/scm/
>>> Completed installing scm-5.5.6 into /var/tmp/portage/dev-scheme/scm-5.5.6/image/

 * Tinderbox QA Warning! Invalid directories in image
/usr/man/man1
/usr/man/man1/scm.1
 * Tinderbox QA Warning (end)! Invalid directories in image
 * Tinderbox QA Notice! Insecure functions used
tmpnam@@GLIBC_2.0  /var/tmp/portage/dev-scheme/scm-5.5.6/image/usr/bin/scm
tmpnam@@GLIBC_2.0  /var/tmp/portage/dev-scheme/scm-5.5.6/image/usr/bin/scmlit
 * Tinderbox QA Notice (end)! Insecure functions used
strip: i686-pc-linux-gnu-strip --strip-unneeded -R .comment
   usr/lib/scm/edline.so
   usr/lib/scm/crs.so
   usr/bin/scm
   usr/bin/scmlit

 * QA Notice: Files built without respecting LDFLAGS have been detected
 *  Please include the following list of files in your report:
 * /usr/lib/scm/edline.so
 * /usr/lib/scm/crs.so
 * /usr/bin/scmlit

 * Regenerating catalog...
 * Gentoo contact information ...
herds:
    scheme
maintainers:
    hkBst@gentoo.org