dev-scheme:scm-5.5.6-r4:20240516-192333.log

dev-scheme:scm-5.5.6-r4:20240516-192333.log (text/plain), 61.10 KB, created by Toralf Förster on 2024-05-16 19:26:26 UTC

 * Package:    dev-scheme/scm-5.5.6-r4:0
 * Repository: gentoo
 * Maintainer: [e-mail]
 * USE:        abi_x86_64 amd64 bignums dynamic-linking elibc_glibc kernel_linux libscm ncurses posix readline
 * FEATURES:   network-sandbox preserve-libs sandbox userpriv usersandbox

>>> Unpacking source...
>>> Unpacking scm-5e6.zip to /var/tmp/portage/dev-scheme/scm-5.5.6-r4/work
>>> Source unpacked in /var/tmp/portage/dev-scheme/scm-5.5.6-r4/work
>>> Preparing source in /var/tmp/portage/dev-scheme/scm-5.5.6-r4/work/scm ...
 * Applying scm-5.5.6-multiplefixes.patch ...
 [ ok ]
 * Applying scm-5.5.6-ncurses.patch ...
 [ ok ]
 * Applying scm-5.5.6-respect-ldflags.patch ...
patching file Makefile
patch unexpectedly ends in middle of line
Hunk #1 succeeded at 111 with fuzz 1.
 [ ok ]
>>> Source prepared.
>>> Configuring source in /var/tmp/portage/dev-scheme/scm-5.5.6-r4/work/scm ...
>>> Source configured.
>>> Compiling source in /var/tmp/portage/dev-scheme/scm-5.5.6-r4/work/scm ...
 * using SLIB /usr/share/slib/
 * Making scmlit
make -j4 -j1 CC=x86_64-pc-linux-gnu-gcc scmlit clean 
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-r4/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
x86_64-pc-linux-gnu-gcc -c -O2 -pipe -march=native -fno-diagnostics-color scm.c -o scm.o
scm.c: In function ‘process_signals’:
scm.c:176:24: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
  176 |         wta(UNDEFINED, (char *)i, "");
      |                        ^
scm.c: In function ‘err_signal’:
scm.c:259:41: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
  259 |   wta(MAKINUM(sig), (i < 0 ? s_unksig : (char *)(i + SIGNAL_BASE)), "");
      |                                         ^
scm.c: In function ‘scmable_signal’:
scm.c:290:22: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
  290 |       wta(UNDEFINED, (char *)i, "");
      |                      ^
x86_64-pc-linux-gnu-gcc -c -O2 -pipe -march=native -fno-diagnostics-color time.c -o time.o
x86_64-pc-linux-gnu-gcc -c -O2 -pipe -march=native -fno-diagnostics-color repl.c -o repl.o
repl.c: In function ‘handle_it’:
repl.c:1269:20: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
 1269 |     wta(UNDEFINED, (char *)i, ""); /* sends it to def_err_response */
      |                    ^
repl.c: In function ‘def_err_response’:
repl.c:2076:47: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
 2076 |     lputc((long)err_pos <= ARGn ? ' ' : '1' + (int)err_pos - ARG1, cur_errp);
      |                                               ^
repl.c:2079:23: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
 2079 |   else lputs(errmsgs[((int)err_pos)-WNA].msg, cur_errp);
      |                       ^
repl.c: In function ‘everr’:
repl.c:2132:11: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers]
 2132 |   err_pos = pos;
      |           ^
repl.c:2133:14: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers]
 2133 |   err_s_subr = s_subr;
      |              ^
In file included from repl.c:21:
repl.c:2138:31: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
 2138 |            COOKIE(1) : COOKIE((int)pos));
      |                               ^
scm.h:260:21: note: in definition of macro ‘COOKIE’
  260 | # define COOKIE(n) (n)
      |                     ^
x86_64-pc-linux-gnu-gcc -c -O2 -pipe -march=native -fno-diagnostics-color scl.c -o scl.o
x86_64-pc-linux-gnu-gcc -c -O2 -pipe -march=native -fno-diagnostics-color sys.c -o sys.o
In file included from scm.h:55,
                 from sys.c:21:
sys.c: In function ‘ltmpnam’:
sys.c:266:11: warning: ignoring return value of ‘tmpnam’ declared with attribute ‘warn_unused_result’ [-Wunused-result]
  266 |   SYSCALL(tmpnam(name););
      |           ^~~~~~~~~~~~
scmfig.h:794:37: note: in definition of macro ‘SYSCALL’
  794 | # define SYSCALL(line) do{errno = 0;line}while(SCM_INTERRUPTED(errno))
      |                                     ^~~~
x86_64-pc-linux-gnu-gcc -c -O2 -pipe -march=native -fno-diagnostics-color eval.c -o eval.o
In file included from eval.c:21:
eval.c: In function ‘map’:
scm.h:1105:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
 1105 | arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr);
      |                                                             ^

eval.c:3106:7: note: in expansion of macro ‘ASRTER’
 3106 |       ASRTER(CONSP(ve[i]), ve[i], 0==i ? ARG2 : ARGn, s_map);
      |       ^~~~~~
eval.c: In function ‘for_each’:
scm.h:1105:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
 1105 | arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr);
      |                                                             ^

eval.c:3153:7: note: in expansion of macro ‘ASRTER’
 3153 |       ASRTER(CONSP(ve[i]), ve[i], 0==i ? ARG2 : ARGn, s_for_each);
      |       ^~~~~~
x86_64-pc-linux-gnu-gcc -c -O2 -pipe -march=native -fno-diagnostics-color subr.c -o subr.o
In file included from subr.c:22:
subr.c: In function ‘list_ref’:
scm.h:1105:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
 1105 | arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr);
      |                                                             ^

subr.c:196:9: note: in expansion of macro ‘ASRTER’
  196 | erout:  ASRTER(NIMP(lst) && CONSP(lst),
      |         ^~~~~~
x86_64-pc-linux-gnu-gcc -c -O2 -pipe -march=native -fno-diagnostics-color unif.c -o unif.o
x86_64-pc-linux-gnu-gcc -c -O2 -pipe -march=native -fno-diagnostics-color rope.c -o rope.o
x86_64-pc-linux-gnu-gcc -c -O2 -pipe -march=native -fno-diagnostics-color continue.c -o continue.o
x86_64-pc-linux-gnu-gcc -c -O2 -pipe -march=native -fno-diagnostics-color findexec.c -o findexec.o
findexec.c: In function ‘dld_find_executable’:
findexec.c:163:5: warning: ignoring return value of ‘getcwd’ declared with attribute ‘warn_unused_result’ [-Wunused-result]
  163 |     getcwd(tbuf, MAXPATHLEN);
      |     ^~~~~~~~~~~~~~~~~~~~~~~~
findexec.c:194:7: warning: ignoring return value of ‘getcwd’ declared with attribute ‘warn_unused_result’ [-Wunused-result]
  194 |       getcwd(tbuf, MAXPATHLEN); /* was getwd(tbuf); */
      |       ^~~~~~~~~~~~~~~~~~~~~~~~
x86_64-pc-linux-gnu-gcc -c -O2 -pipe -march=native -fno-diagnostics-color script.c -o script.o
script.c: In function ‘find_impl_file’:
script.c:149:18: warning: initialization discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers]
  149 |   char *extptr = exec_path + strlen(exec_path);
      |                  ^~~~~~~~~
script.c:165:10: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers]
  165 |   extptr = exec_path + strlen(exec_path);
      |          ^
script.c: In function ‘script_process_argv’:
script.c:362:12: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers]
  362 |   nargv[0] = argv[0];
      |            ^
script.c:377:22: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers]
  377 |       nargv[nargi++] = argv[argi++];
      |                      ^
script.c:380:39: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers]
  380 |   while (argi <= argc) nargv[nargi++] = argv[argi++];
      |                                       ^
script.c: In function ‘script_find_executable’:
script.c:64:3: warning: ‘__builtin_strncat’ specified bound depends on the length of the source argument [-Wstringop-overflow=]
   64 |   strncat(str1, str2, n);
      |   ^
In function ‘scm_cat_path’,
    inlined from ‘script_find_executable’ at script.c:131:14:
script.c:52:15: note: length computed here
   52 |   if (!n) n = strlen(str2);
      |               ^~~~~~~~~~~~
script.c: In function ‘script_find_executable’:
script.c:64:3: warning: ‘__builtin_strncat’ specified bound depends on the length of the source argument [-Wstringop-overflow=]
   64 |   strncat(str1, str2, n);
      |   ^
In function ‘scm_cat_path’,
    inlined from ‘script_find_executable’ at script.c:135:10:
script.c:52:15: note: length computed here
   52 |   if (!n) n = strlen(str2);
      |               ^~~~~~~~~~~~
script.c: In function ‘find_impl_file’:
script.c:64:3: warning: ‘__builtin_strncat’ specified bound depends on the length of the source argument [-Wstringop-overflow=]
   64 |   strncat(str1, str2, n);
      |   ^
In function ‘scm_cat_path’,
    inlined from ‘find_impl_file’ at script.c:274:12:
script.c:52:15: note: length computed here
   52 |   if (!n) n = strlen(str2);
      |               ^~~~~~~~~~~~
x86_64-pc-linux-gnu-gcc -c -O2 -pipe -march=native -fno-diagnostics-color debug.c -o debug.o
x86_64-pc-linux-gnu-gcc -c -O2 -pipe -march=native -fno-diagnostics-color scmmain.c -o scmmain.o
scmmain.c: In function ‘main’:
scmmain.c:109:32: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers]
  109 |   if (0==argc) {argc = 1; argv = generic_name;} /* for macintosh */
      |                                ^
scmmain.c:119:16: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers]
  119 |     script_arg = argv[2];       /* Save for scm_find_execpath() call */
      |                ^
scmmain.c:120:31: warning: passing argument 1 of ‘script_count_argv’ from incompatible pointer type [-Wincompatible-pointer-types]
  120 |     nargc = script_count_argv(nargv);
      |                               ^~~~~
      |                               |
      |                               char **
In file included from scmmain.c:30:
scm.h:1074:51: note: expected ‘const char **’ but argument is of type ‘char **’
 1074 | SCM_EXPORT int  script_count_argv P((const char **argv));
      |                                      ~~~~~~~~~~~~~^~~~
scm.h:80:15: note: in definition of macro ‘P’
   80 | # define P(s) s
      |               ^
scmmain.c:122:15: warning: assignment to ‘char **’ from incompatible pointer type ‘const char **’ [-Wincompatible-pointer-types]
  122 |   else {nargv = argv; nargc = argc;}
      |               ^
scmmain.c:124:39: warning: passing argument 2 of ‘scm_find_execpath’ from incompatible pointer type [-Wincompatible-pointer-types]
  124 |   execpath = scm_find_execpath(nargc, nargv, script_arg);
      |                                       ^~~~~
      |                                       |
      |                                       char **
scm.h:775:69: note: expected ‘const char * const*’ but argument is of type ‘char **’
  775 | RT char *scm_find_execpath P((int argc, const char * const *argv, const char *script_arg));
      |                                         ~~~~~~~~~~~~~~~~~~~~^~~~

scm.h:80:15: note: in definition of macro ‘P’
   80 | # define P(s) s
      |               ^
scmmain.c:131:31: warning: passing argument 2 of ‘scm_init_from_argv’ from incompatible pointer type [-Wincompatible-pointer-types]
  131 |     scm_init_from_argv(nargc, nargv, script_arg, iverbose, buf0stdin);
      |                               ^~~~~
      |                               |
      |                               char **
scm.h:768:69: note: expected ‘const char * const*’ but argument is of type ‘char **’
  768 | RT void scm_init_from_argv P((int argc, const char * const *argv, char *script_arg,
      |                                         ~~~~~~~~~~~~~~~~~~~~^~~~

scm.h:80:15: note: in definition of macro ‘P’
   80 | # define P(s) s
      |               ^
cp -p requires.scm require.scm
x86_64-pc-linux-gnu-gcc -Wl,-O1 -Wl,--as-needed -Wl,-z,pack-relative-relocs -Wl,--defsym=__gentoo_check_ldflags__=0 -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 
/usr/libexec/gcc/x86_64-pc-linux-gnu/ld: sys.o: in function `ltmpnam':
sys.c:(.text+0x63a): 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-r4/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/0>)  ==> #t
(#<CLOSURE call-with-input-file "/var/tmp/portage/dev-scheme/scm-5.5.6-r4/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-r4/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-r4/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/lib64/scmInit5e6.scm\""
        "#define BIGNUMS"))))
; ================ Compile C source files
(system "x86_64-pc-linux-gnu-gcc -c -DSUN_DL -O2 -pipe -march=native -fno-diagnostics-color 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:36: warning: passing argument 2 of ‘func’ from incompatible pointer type [-Wincompatible-pointer-types]
  447 |   i = (*func) ((int)ilength(args), argv);
      |                                    ^~~~
      |                                    |
      |                                    char **
dynl.c:447:36: note: expected ‘const char **’ but argument is of type ‘char **’
scm.c: In function ‘process_signals’:
scm.c:176:24: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
  176 |         wta(UNDEFINED, (char *)i, "");
      |                        ^
scm.c: In function ‘err_signal’:
scm.c:259:41: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
  259 |   wta(MAKINUM(sig), (i < 0 ? s_unksig : (char *)(i + SIGNAL_BASE)), "");
      |                                         ^
scm.c: In function ‘scmable_signal’:
scm.c:290:22: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
  290 |       wta(UNDEFINED, (char *)i, "");
      |                      ^
scmmain.c: In function ‘main’:
scmmain.c:109:32: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers]
  109 |   if (0==argc) {argc = 1; argv = generic_name;} /* for macintosh */
      |                                ^
scmmain.c:119:16: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers]
  119 |     script_arg = argv[2];       /* Save for scm_find_execpath() call */
      |                ^
scmmain.c:120:31: warning: passing argument 1 of ‘script_count_argv’ from incompatible pointer type [-Wincompatible-pointer-types]
  120 |     nargc = script_count_argv(nargv);
      |                               ^~~~~
      |                               |
      |                               char **
In file included from scmmain.c:30:
scm.h:1074:51: note: expected ‘const char **’ but argument is of type ‘char **’
 1074 | SCM_EXPORT int  script_count_argv P((const char **argv));
      |                                      ~~~~~~~~~~~~~^~~~
scm.h:80:15: note: in definition of macro ‘P’
   80 | # define P(s) s
      |               ^
scmmain.c:122:15: warning: assignment to ‘char **’ from incompatible pointer type ‘const char **’ [-Wincompatible-pointer-types]
  122 |   else {nargv = argv; nargc = argc;}
      |               ^
scmmain.c:124:39: warning: passing argument 2 of ‘scm_find_execpath’ from incompatible pointer type [-Wincompatible-pointer-types]
  124 |   execpath = scm_find_execpath(nargc, nargv, script_arg);
      |                                       ^~~~~
      |                                       |
      |                                       char **
scm.h:775:69: note: expected ‘const char * const*’ but argument is of type ‘char **’
  775 | RT char *scm_find_execpath P((int argc, const char * const *argv, const char *script_arg));
      |                                         ~~~~~~~~~~~~~~~~~~~~^~~~

scm.h:80:15: note: in definition of macro ‘P’
   80 | # define P(s) s
      |               ^
scmmain.c:131:31: warning: passing argument 2 of ‘scm_init_from_argv’ from incompatible pointer type [-Wincompatible-pointer-types]
  131 |     scm_init_from_argv(nargc, nargv, script_arg, iverbose, buf0stdin);
      |                               ^~~~~
      |                               |
      |                               char **
scm.h:768:69: note: expected ‘const char * const*’ but argument is of type ‘char **’
  768 | RT void scm_init_from_argv P((int argc, const char * const *argv, char *script_arg,
      |                                         ~~~~~~~~~~~~~~~~~~~~^~~~

scm.h:80:15: note: in definition of macro ‘P’
   80 | # define P(s) s
      |               ^
findexec.c: In function ‘dld_find_executable’:
findexec.c:163:5: warning: ignoring return value of ‘getcwd’ declared with attribute ‘warn_unused_result’ [-Wunused-result]
  163 |     getcwd(tbuf, MAXPATHLEN);
      |     ^~~~~~~~~~~~~~~~~~~~~~~~
findexec.c:194:7: warning: ignoring return value of ‘getcwd’ declared with attribute ‘warn_unused_result’ [-Wunused-result]
  194 |       getcwd(tbuf, MAXPATHLEN); /* was getwd(tbuf); */
      |       ^~~~~~~~~~~~~~~~~~~~~~~~
script.c: In function ‘find_impl_file’:
script.c:149:18: warning: initialization discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers]
  149 |   char *extptr = exec_path + strlen(exec_path);
      |                  ^~~~~~~~~
script.c:165:10: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers]
  165 |   extptr = exec_path + strlen(exec_path);
      |          ^
script.c: In function ‘script_process_argv’:
script.c:362:12: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers]
  362 |   nargv[0] = argv[0];
      |            ^
script.c:377:22: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers]
  377 |       nargv[nargi++] = argv[argi++];
      |                      ^
script.c:380:39: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers]
  380 |   while (argi <= argc) nargv[nargi++] = argv[argi++];
      |                                       ^
script.c: In function ‘script_find_executable’:
script.c:64:3: warning: ‘__builtin_strncat’ specified bound depends on the length of the source argument [-Wstringop-overflow=]
   64 |   strncat(str1, str2, n);
      |   ^
In function ‘scm_cat_path’,
    inlined from ‘script_find_executable’ at script.c:131:14:
script.c:52:15: note: length computed here
   52 |   if (!n) n = strlen(str2);
      |               ^~~~~~~~~~~~
script.c: In function ‘script_find_executable’:
script.c:64:3: warning: ‘__builtin_strncat’ specified bound depends on the length of the source argument [-Wstringop-overflow=]
   64 |   strncat(str1, str2, n);
      |   ^
In function ‘scm_cat_path’,
    inlined from ‘script_find_executable’ at script.c:135:10:
script.c:52:15: note: length computed here
   52 |   if (!n) n = strlen(str2);
      |               ^~~~~~~~~~~~
script.c: In function ‘find_impl_file’:
script.c:64:3: warning: ‘__builtin_strncat’ specified bound depends on the length of the source argument [-Wstringop-overflow=]
   64 |   strncat(str1, str2, n);
      |   ^
In function ‘scm_cat_path’,
    inlined from ‘find_impl_file’ at script.c:274:12:
script.c:52:15: note: length computed here
   52 |   if (!n) n = strlen(str2);
      |               ^~~~~~~~~~~~
repl.c: In function ‘handle_it’:
repl.c:1269:20: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
 1269 |     wta(UNDEFINED, (char *)i, ""); /* sends it to def_err_response */
      |                    ^
repl.c: In function ‘def_err_response’:
repl.c:2076:47: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
 2076 |     lputc((long)err_pos <= ARGn ? ' ' : '1' + (int)err_pos - ARG1, cur_errp);
      |                                               ^
repl.c:2079:23: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
 2079 |   else lputs(errmsgs[((int)err_pos)-WNA].msg, cur_errp);
      |                       ^
repl.c: In function ‘everr’:
repl.c:2132:11: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers]
 2132 |   err_pos = pos;
      |           ^
repl.c:2133:14: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers]
 2133 |   err_s_subr = s_subr;
      |              ^
In file included from repl.c:21:
repl.c:2138:31: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
 2138 |            COOKIE(1) : COOKIE((int)pos));
      |                               ^
scm.h:260:21: note: in definition of macro ‘COOKIE’
  260 | # define COOKIE(n) (n)
      |                     ^
In file included from eval.c:21:
eval.c: In function ‘map’:
scm.h:1105:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
 1105 | arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr);
      |                                                             ^

eval.c:3106:7: note: in expansion of macro ‘ASRTER’
 3106 |       ASRTER(CONSP(ve[i]), ve[i], 0==i ? ARG2 : ARGn, s_map);
      |       ^~~~~~
eval.c: In function ‘for_each’:
scm.h:1105:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
 1105 | arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr);
      |                                                             ^

eval.c:3153:7: note: in expansion of macro ‘ASRTER’
 3153 |       ASRTER(CONSP(ve[i]), ve[i], 0==i ? ARG2 : ARGn, s_for_each);
      |       ^~~~~~
In file included from scm.h:55,
                 from sys.c:21:
sys.c: In function ‘ltmpnam’:
sys.c:266:11: warning: ignoring return value of ‘tmpnam’ declared with attribute ‘warn_unused_result’ [-Wunused-result]
  266 |   SYSCALL(tmpnam(name););
      |           ^~~~~~~~~~~~
scmfig.h:794:37: note: in definition of macro ‘SYSCALL’
  794 | # define SYSCALL(line) do{errno = 0;line}while(SCM_INTERRUPTED(errno))
      |                                     ^~~~
In file included from subr.c:22:
subr.c: In function ‘list_ref’:
scm.h:1105:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
 1105 | arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr);
      |                                                             ^

subr.c:196:9: note: in expansion of macro ‘ASRTER’
  196 | erout:  ASRTER(NIMP(lst) && CONSP(lst),
      |         ^~~~~~
; ================ Link C object files
(system "x86_64-pc-linux-gnu-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,-z,pack-relative-relocs -Wl,--defsym=__gentoo_check_ldflags__=0 -L/lib64 -ldl -lc")
/usr/libexec/gcc/x86_64-pc-linux-gnu/ld: sys.o: in function `ltmpnam':
sys.c:(.text+0x75a): 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 "x86_64-pc-linux-gnu-gcc -fpic -c -O2 -pipe -march=native -fno-diagnostics-color edline.c")
(system "x86_64-pc-linux-gnu-gcc -shared -Wl,-O1 -Wl,--as-needed -Wl,-z,pack-relative-relocs -Wl,--defsym=__gentoo_check_ldflags__=0 -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 "x86_64-pc-linux-gnu-gcc -fpic -c -O2 -pipe -march=native -fno-diagnostics-color crs.c")
crs.c:72:3: warning: initialization of ‘int (*)(FILE *)’ from incompatible pointer type ‘int (*)(WINDOW *)’ {aka ‘int (*)(struct _win_st *)’} [-Wincompatible-pointer-types]
   72 |   wrefresh,
      |   ^~~~~~~~
crs.c:72:3: note: (near initialization for ‘winptob.fflush’)
crs.c:73:3: warning: initialization of ‘int (*)(FILE *)’ from incompatible pointer type ‘int (*)(WINDOW *)’ {aka ‘int (*)(struct _win_st *)’} [-Wincompatible-pointer-types]
   73 |   wgetch,
      |   ^~~~~~
crs.c:73:3: note: (near initialization for ‘winptob.fgetc’)
crs.c: In function ‘lunctrl’:
crs.c:241:17: warning: initialization discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers]
  241 |     char *str = unctrl(ICHR(c));
      |                 ^~~~~~
In file included from scm.h:55,
                 from crs.c:21:
crs.c: In function ‘owidth’:
crs.c:253:43: error: invalid use of incomplete typedef ‘WINDOW’ {aka ‘struct _win_st’}
  253 |     if (WINP(arg)) return MAKINUM(WIN(arg)->_maxx+1);
      |                                           ^~
scmfig.h:573:24: note: in definition of macro ‘MAKINUM’
  573 | # define MAKINUM(x) (((x)<<2)+2L)
      |                        ^
crs.c: In function ‘oheight’:
crs.c:263:43: error: invalid use of incomplete typedef ‘WINDOW’ {aka ‘struct _win_st’}
  263 |     if (WINP(arg)) return MAKINUM(WIN(arg)->_maxy+1);
      |                                           ^~
scmfig.h:573:24: note: in definition of macro ‘MAKINUM’
  573 | # define MAKINUM(x) (((x)<<2)+2L)
      |                        ^
crs.c: In function ‘init_crs’:
crs.c:389:13: warning: passing argument 1 of ‘add_final’ from incompatible pointer type [-Wincompatible-pointer-types]
  389 |   add_final(lendwin);
      |             ^~~~~~~
      |             |
      |             SCM (*)() {aka long int (*)()}
scm.h:997:37: note: expected ‘void (*)(void)’ but argument is of type ‘SCM (*)()’ {aka ‘long int (*)()’}
  997 | SCM_EXPORT void add_final P((void (*final)(void)));
      |                              ~~~~~~~^~~~~~~~~~~~
scm.h:80:15: note: in definition of macro ‘P’
   80 | # define P(s) s
      |               ^
; ================ Compilation failed!
; program args: ("./scmlit" "-no-init-file" "-f" "./build" "-e(bi)" "build" "--compiler-options=-O2 -pipe -march=native -fno-diagnostics-color" "--linker-options=-Wl,-O1 -Wl,--as-needed -Wl,-z,pack-relative-relocs -Wl,--defsym=__gentoo_check_ldflags__=0" "-F" "curses" "-h" "system" "-t" "dll")
 * ERROR: dev-scheme/scm-5.5.6-r4::gentoo failed (compile phase):
 *   (no error message)
 * 
 * Call stack:
 *     ebuild.sh, line 136:  Called src_compile
 *   environment, line 1312:  Called die
 * The specific snippet of code:
 *           ./build --compiler-options="${CFLAGS}" --linker-options="${LDFLAGS}" -F curses -h system -t dll || die;
 * 
 * If you need support, post the output of `emerge --info '=dev-scheme/scm-5.5.6-r4::gentoo'`,
 * the complete build log and the output of `emerge -pqv '=dev-scheme/scm-5.5.6-r4::gentoo'`.
 * The complete build log is located at '/var/log/portage/dev-scheme:scm-5.5.6-r4:20240516-192333.log'.
 * For convenience, a symlink to the build log is located at '/var/tmp/portage/dev-scheme/scm-5.5.6-r4/temp/build.log'.
 * The ebuild environment file is located at '/var/tmp/portage/dev-scheme/scm-5.5.6-r4/temp/environment'.
 * Working directory: '/var/tmp/portage/dev-scheme/scm-5.5.6-r4/work/scm'
 * S: '/var/tmp/portage/dev-scheme/scm-5.5.6-r4/work/scm'