=> Bootstrap dependency digest>=20010302: found digest-20160304
WARNING: [license.mk] Every package should define a LICENSE.
===> Skipping vulnerability checks.
WARNING: No /var/db/pkg/pkg-vulnerabilities file found.
WARNING: To fix run: `/usr/sbin/pkg_admin -K /var/db/pkg fetch-pkg-vulnerabilities'.
===> Building for scm-5.5.3nb2
echo "#ifndef IMPLINIT" > newflags.h
echo "#define IMPLINIT \"Init5e3.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
gcc -c -O2 -DX11 -I/usr/X11R7/include -I/usr/include scm.c -o scm.o
scm.c: In function 'process_signals':
scm.c:197:17: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
wta(UNDEFINED, (char *)i, "");
^
scm.c: In function 'err_signal':
scm.c:280:41: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
wta(MAKINUM(sig), (i < 0 ? s_unksig : (char *)(i + SIGNAL_BASE)), "");
^
scm.c: In function 'scmable_signal':
scm.c:312:22: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
wta(UNDEFINED, (char *)i, "");
^
gcc -c -O2 -DX11 -I/usr/X11R7/include -I/usr/include time.c -o time.o
gcc -c -O2 -DX11 -I/usr/X11R7/include -I/usr/include repl.c -o repl.o
In file included from repl.c:45:0:
repl.c: In function 'wait_for_input':
scm.h:1123:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
# define ASRTER(_cond, _arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr);
^
repl.c:513:5: note: in expansion of macro 'ASRTER'
ASRTER(NIMP(port) && OPINPORTP(port) && (BUF0 & SCM_PORTFLAGS(port)),
^
repl.c: In function 'handle_it':
repl.c:1291:20: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
wta(UNDEFINED, (char *)i, ""); /* sends it to def_err_response */
^
repl.c: In function 'def_err_response':
repl.c:2054:47: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
lputc((long)err_pos <= ARGn ? ' ' : '1' + (int)err_pos - ARG1, cur_errp);
^
repl.c:2057:23: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
else lputs(errmsgs[((int)err_pos)-WNA].msg, cur_errp);
^
repl.c: In function 'everr':
repl.c:2110:11: warning: assignment discards 'const' qualifier from pointer target type [enabled by default]
err_pos = pos;
^
repl.c:2111:14: warning: assignment discards 'const' qualifier from pointer target type [enabled by default]
err_s_subr = s_subr;
^
In file included from repl.c:45:0:
repl.c:2116:24: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
COOKIE(1) : COOKIE((int)pos));
^
scm.h:286:21: note: in definition of macro 'COOKIE'
# define COOKIE(n) (n)
^
gcc -c -O2 -DX11 -I/usr/X11R7/include -I/usr/include scl.c -o scl.o
gcc -c -O2 -DX11 -I/usr/X11R7/include -I/usr/include sys.c -o sys.o
In file included from sys.c:46:0:
sys.c: In function 'mark_locations':
scm.h:302:39: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
#define NCELLP(x) ((sizeof(cell)-1) & (int)(x))
^
scm.h:301:20: note: in expansion of macro 'NCELLP'
#define CELLP(x) (!NCELLP(x))
^
sys.c:2624:22: note: in expansion of macro 'CELLP'
while(0 <= --m) if (CELLP(*(SCM **)&x[m])) {
^
gcc -c -O2 -DX11 -I/usr/X11R7/include -I/usr/include eval.c -o eval.o
In file included from eval.c:45:0:
eval.c: In function 'map':
scm.h:1123:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
# define ASRTER(_cond, _arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr);
^
eval.c:3123:7: note: in expansion of macro 'ASRTER'
ASRTER(CONSP(ve[i]), ve[i], 0==i ? ARG2 : ARGn, s_map);
^
eval.c: In function 'for_each':
scm.h:1123:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
# define ASRTER(_cond, _arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr);
^
eval.c:3170:7: note: in expansion of macro 'ASRTER'
ASRTER(CONSP(ve[i]), ve[i], 0==i ? ARG2 : ARGn, s_for_each);
^
gcc -c -O2 -DX11 -I/usr/X11R7/include -I/usr/include subr.c -o subr.o
In file included from subr.c:46:0:
subr.c: In function 'list_ref':
scm.h:1123:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
# define ASRTER(_cond, _arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr);
^
subr.c:220:8: note: in expansion of macro 'ASRTER'
erout: ASRTER(NIMP(lst) && CONSP(lst),
^
gcc -c -O2 -DX11 -I/usr/X11R7/include -I/usr/include unif.c -o unif.o
gcc -c -O2 -DX11 -I/usr/X11R7/include -I/usr/include rope.c -o rope.o
rope.c: In function 'must_free_argv':
rope.c:253:5: warning: passing argument 1 of 'must_free' discards 'const' qualifier from pointer target type [enabled by default]
must_free(argv[i], 1+strlen(argv[i]));
^
In file included from rope.c:45:0:
scm.h:720:17: note: expected 'char *' but argument is of type 'const char * const'
SCM_EXPORT void must_free P((char *obj, sizet len));
^
gcc -c -O2 -DX11 -I/usr/X11R7/include -I/usr/include continue.c -o continue.o
gcc -c -O2 -DX11 -I/usr/X11R7/include -I/usr/include findexec.c -o findexec.o
gcc -c -O2 -DX11 -I/usr/X11R7/include -I/usr/include script.c -o script.o
script.c: In function 'find_impl_file':
script.c:173:18: warning: initialization discards 'const' qualifier from pointer target type [enabled by default]
char *extptr = exec_path + strlen(exec_path);
^
script.c:189:10: warning: assignment discards 'const' qualifier from pointer target type [enabled by default]
extptr = exec_path + strlen(exec_path);
^
script.c: In function 'script_process_argv':
script.c:386:12: warning: assignment discards 'const' qualifier from pointer target type [enabled by default]
nargv[0] = argv[0];
^
script.c:401:22: warning: assignment discards 'const' qualifier from pointer target type [enabled by default]
nargv[nargi++] = argv[argi++];
^
script.c:404:39: warning: assignment discards 'const' qualifier from pointer target type [enabled by default]
while (argi <= argc) nargv[nargi++] = argv[argi++];
^
gcc -c -O2 -DX11 -I/usr/X11R7/include -I/usr/include debug.c -o debug.o
gcc -c -O2 -DX11 -I/usr/X11R7/include -I/usr/include scmmain.c -o scmmain.o
scmmain.c: In function 'main':
scmmain.c:133:32: warning: assignment discards 'const' qualifier from pointer target type [enabled by default]
if (0==argc) {argc = 1; argv = generic_name;} /* for macintosh */
^
scmmain.c:143:16: warning: assignment discards 'const' qualifier from pointer target type [enabled by default]
script_arg = argv[2]; /* Save for scm_find_execpath() call */
^
scmmain.c:144:5: warning: passing argument 1 of 'script_count_argv' from incompatible pointer type [enabled by default]
nargc = script_count_argv(nargv);
^
In file included from scmmain.c:54:0:
scm.h:1092:17: note: expected 'const char **' but argument is of type 'char **'
SCM_EXPORT int script_count_argv P((const char **argv));
^
scmmain.c:146:15: warning: assignment from incompatible pointer type [enabled by default]
else {nargv = argv; nargc = argc;}
^
scmmain.c:148:3: warning: passing argument 2 of 'scm_find_execpath' from incompatible pointer type [enabled by default]
execpath = scm_find_execpath(nargc, nargv, script_arg);
^
In file included from scmmain.c:54:0:
scm.h:798:18: note: expected 'const char * const*' but argument is of type 'char **'
SCM_EXPORT char *scm_find_execpath P((int argc, const char * const *argv, const char *script_arg));
^
scmmain.c:155:5: warning: passing argument 2 of 'scm_init_from_argv' from incompatible pointer type [enabled by default]
scm_init_from_argv(nargc, nargv, script_arg, iverbose, buf0stdin);
^
In file included from scmmain.c:54:0:
scm.h:791:17: note: expected 'const char * const*' but argument is of type 'char **'
SCM_EXPORT void scm_init_from_argv P((int argc, const char * const *argv, char *script_arg,
^
gcc -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 -lm
/usr/bin/make checklit
./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* 7) ==> 7
(let* 34) ==> 34
(let* 8) ==> 8
(let* 34) ==> 34
(letrec 9) ==> 9
(letrec 34) ==> 34
(letrec 10) ==> 10
(letrec 34) ==> 34
SECTION(4 2 3)
(begin 6) ==> 6
SECTION(4 2 4)
(do #(0 1 2 3 4)) ==> #(0 1 2 3 4)
(do 25) ==> 25
(let 1) ==> 1
(let ((6 1 3) (-5 -2))) ==> ((6 1 3) (-5 -2))
(let -1) ==> -1
SECTION(4 2 6)
(quasiquote (list 3 4)) ==> (list 3 4)
(quasiquote (list a (quote a))) ==> (list a (quote a))
(quasiquote (a 3 4 5 6 b)) ==> (a 3 4 5 6 b)
(quasiquote ((foo 7) . cons)) ==> ((foo 7) . cons)
(quasiquote #(10 5 2 4 3 8)) ==> #(10 5 2 4 3 8)
(quasiquote 5) ==> 5
(quasiquote (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f)) ==> (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f)
(quasiquote (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e)) ==> (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e)
(quasiquote (list 3 4)) ==> (list 3 4)
(quasiquote (quasiquote (list (unquote (+ 1 2)) 4))) ==> (quasiquote (list (unquote (+ 1 2)) 4))
SECTION(5 2 1)
(tprint #t) ==> #t
(define 6) ==> 6
(define 1) ==> 1
(#<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 -> 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?> #<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 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 1 L1 C1>) ==> #t
(#<CLOSURE call-with-input-file "/data/scratch/lang/scm/work/scm/Init5e3.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 "/data/scratch/lang/scm/work/scm/Init5e3.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
echo "-F cautious bignums arrays inexact" >> libscm.opt
echo "-F engineering-notation" >> libscm.opt
echo "-F dynamic-linking" >> libscm.opt
./build -hsystem -t lib -f libscm.opt
; Scheme (unix) script created by SLIB/batch
; [-p netbsd]
; used options from: libscm.opt
; ================ 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 \"Init5e3.scm\""
"#define CAUTIOUS"
"#define BIGNUMS"
"#define ARRAYS"
"#define FLOATS"
"#define ENGNOT"))))
; ================ Compile C source files
(system "cc -c dynl.c continue.c scm.c findexec.c script.c time.c repl.c scl.c eval.c sys.c subr.c debug.c unif.c rope.c")
scm.c: In function 'process_signals':
scm.c:197:17: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
wta(UNDEFINED, (char *)i, "");
^
scm.c: In function 'err_signal':
scm.c:280:41: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
wta(MAKINUM(sig), (i < 0 ? s_unksig : (char *)(i + SIGNAL_BASE)), "");
^
scm.c: In function 'scmable_signal':
scm.c:312:22: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
wta(UNDEFINED, (char *)i, "");
^
script.c: In function 'find_impl_file':
script.c:173:18: warning: initialization discards 'const' qualifier from pointer target type [enabled by default]
char *extptr = exec_path + strlen(exec_path);
^
script.c:189:10: warning: assignment discards 'const' qualifier from pointer target type [enabled by default]
extptr = exec_path + strlen(exec_path);
^
script.c: In function 'script_process_argv':
script.c:386:12: warning: assignment discards 'const' qualifier from pointer target type [enabled by default]
nargv[0] = argv[0];
^
script.c:401:22: warning: assignment discards 'const' qualifier from pointer target type [enabled by default]
nargv[nargi++] = argv[argi++];
^
script.c:404:39: warning: assignment discards 'const' qualifier from pointer target type [enabled by default]
while (argi <= argc) nargv[nargi++] = argv[argi++];
^
In file included from repl.c:45:0:
repl.c: In function 'wait_for_input':
scm.h:1123:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
# define ASRTER(_cond, _arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr);
^
repl.c:513:5: note: in expansion of macro 'ASRTER'
ASRTER(NIMP(port) && OPINPORTP(port) && (BUF0 & SCM_PORTFLAGS(port)),
^
repl.c: In function 'handle_it':
repl.c:1291:20: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
wta(UNDEFINED, (char *)i, ""); /* sends it to def_err_response */
^
repl.c: In function 'def_err_response':
repl.c:2054:47: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
lputc((long)err_pos <= ARGn ? ' ' : '1' + (int)err_pos - ARG1, cur_errp);
^
repl.c:2057:23: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
else lputs(errmsgs[((int)err_pos)-WNA].msg, cur_errp);
^
repl.c: In function 'everr':
repl.c:2110:11: warning: assignment discards 'const' qualifier from pointer target type [enabled by default]
err_pos = pos;
^
repl.c:2111:14: warning: assignment discards 'const' qualifier from pointer target type [enabled by default]
err_s_subr = s_subr;
^
In file included from repl.c:45:0:
repl.c:2116:24: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
COOKIE(1) : COOKIE((int)pos));
^
scm.h:286:21: note: in definition of macro 'COOKIE'
# define COOKIE(n) (n)
^
scl.c: In function 'scm_bigdblcomp':
scl.c:1071:3: warning: passing argument 2 of 'frexp' from incompatible pointer type [enabled by default]
frexp(d, &dlen);
^
In file included from scl.c:49:0:
/usr/include/math.h:226:8: note: expected 'int *' but argument is of type 'size_t *'
double frexp(double, int *);
^
In file included from eval.c:45:0:
eval.c: In function 'map':
scm.h:1123:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
# define ASRTER(_cond, _arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr);
^
eval.c:3123:7: note: in expansion of macro 'ASRTER'
ASRTER(CONSP(ve[i]), ve[i], 0==i ? ARG2 : ARGn, s_map);
^
eval.c: In function 'for_each':
scm.h:1123:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
# define ASRTER(_cond, _arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr);
^
eval.c:3170:7: note: in expansion of macro 'ASRTER'
ASRTER(CONSP(ve[i]), ve[i], 0==i ? ARG2 : ARGn, s_for_each);
^
In file included from sys.c:46:0:
sys.c: In function 'mark_locations':
scm.h:302:39: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
#define NCELLP(x) ((sizeof(cell)-1) & (int)(x))
^
scm.h:301:20: note: in expansion of macro 'NCELLP'
#define CELLP(x) (!NCELLP(x))
^
sys.c:2624:22: note: in expansion of macro 'CELLP'
while(0 <= --m) if (CELLP(*(SCM **)&x[m])) {
^
In file included from subr.c:46:0:
subr.c: In function 'list_ref':
scm.h:1123:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
# define ASRTER(_cond, _arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr);
^
subr.c:220:8: note: in expansion of macro 'ASRTER'
erout: ASRTER(NIMP(lst) && CONSP(lst),
^
rope.c: In function 'must_free_argv':
rope.c:253:5: warning: passing argument 1 of 'must_free' discards 'const' qualifier from pointer target type [enabled by default]
must_free(argv[i], 1+strlen(argv[i]));
^
In file included from rope.c:45:0:
scm.h:720:17: note: expected 'char *' but argument is of type 'const char * const'
SCM_EXPORT void must_free P((char *obj, sizet len));
^
; ================ Link C object files
(system "ar rc libscm.a dynl.o continue.o scm.o findexec.o script.o time.o repl.o scl.o eval.o sys.o subr.o debug.o unif.o rope.o")
(system "ranlib libscm.a")
cd /data/scratch/lang/scm/work/scm && env USETOOLS=no CC=gcc CFLAGS=-O2\ -DX11\ -I/usr/X11R7/include\ -I/usr/include CPPFLAGS=-I/usr/X11R7/include\ -I/usr/include CXX=c++ CXXFLAGS=-O2\ -DX11\ -I/usr/X11R7/include\ -I/usr/include COMPILER_RPATH_FLAG=-Wl,-R F77=g77 FC=g77 FFLAGS=-O LANG=C LC_ALL=C LC_COLLATE=C LC_CTYPE=C LC_MESSAGES=C LC_MONETARY=C LC_NUMERIC=C LC_TIME=C LDFLAGS=-L/usr/X11R7/lib\ -Wl,-R/usr/X11R7/lib\ -L/usr/lib\ -Wl,-R/usr/lib\ -Wl,-R/usr/pkg/lib LINKER_RPATH_FLAG=-R PATH=/data/scratch/lang/scm/work/.cwrapper/bin:/data/scratch/lang/scm/work/.buildlink/bin:/data/scratch/lang/scm/work/.gcc/bin:/data/scratch/lang/scm/work/.tools/bin:/usr/pkg/bin:/usr/bin:/bin:/usr/pkg/bin:/usr/local/bin:/usr/pkg/bin:/usr/X11R7/bin PREFIX=/usr/pkg MAKELEVEL=0 CONFIG_SITE= PKG_SYSCONFDIR=/usr/pkg/etc CXXCPP=cpp HOME=/data/scratch/lang/scm/work/.home CWRAPPERS_CONFIG_DIR=/data/scratch/lang/scm/work/.cwrapper/config CPP=cpp LINK_ALL_LIBGCC_HACK= LOCALBASE=/usr/pkg X11BASE=/usr/X11R7 PKGMANDIR=man PKGINFODIR=info PKGGNUDIR=gnu/ MAKECONF=/dev/null OBJECT_FMT=ELF USETOOLS=no BSD_INSTALL_PROGRAM=/usr/bin/install\ -c\ -s\ -o\ pbulkXXX\ -g\ users\ -m\ 755 BSD_INSTALL_SCRIPT=/usr/bin/install\ -c\ -o\ pbulkXXX\ -g\ users\ -m\ 755 BSD_INSTALL_LIB=/usr/bin/install\ -c\ -o\ pbulkXXX\ -g\ users\ -m\ 755 BSD_INSTALL_DATA=/usr/bin/install\ -c\ -o\ pbulkXXX\ -g\ users\ -m\ 644 BSD_INSTALL_MAN=/usr/bin/install\ -c\ -o\ pbulkXXX\ -g\ users\ -m\ 644 BSD_INSTALL=/usr/bin/install BSD_INSTALL_PROGRAM_DIR=/usr/bin/install\ -d\ -o\ pbulkXXX\ -g\ users\ -m\ 755 BSD_INSTALL_SCRIPT_DIR=/usr/bin/install\ -d\ -o\ pbulkXXX\ -g\ users\ -m\ 755 BSD_INSTALL_LIB_DIR=/usr/bin/install\ -d\ -o\ pbulkXXX\ -g\ users\ -m\ 755 BSD_INSTALL_DATA_DIR=/usr/bin/install\ -d\ -o\ pbulkXXX\ -g\ users\ -m\ 755 BSD_INSTALL_MAN_DIR=/usr/bin/install\ -d\ -o\ pbulkXXX\ -g\ users\ -m\ 755 BSD_INSTALL_GAME=/usr/bin/install\ -c\ -s\ -o\ pbulkXXX\ -g\ users\ -m\ 2555 BSD_INSTALL_GAME_DATA=/usr/bin/install\ -c\ -o\ pbulkXXX\ -g\ users\ -m\ 664 BSD_INSTALL_GAME_DIR=/usr/bin/install\ -d\ -o\ pbulkXXX\ -g\ users\ -m\ 775 INSTALL_INFO=/data/scratch/lang/scm/work/.tools/bin/install-info MAKEINFO=/data/scratch/lang/scm/work/.tools/bin/makeinfo FLEX= BISON= PKG_CONFIG= PKG_CONFIG_LIBDIR=/data/scratch/lang/scm/work/.buildlink/lib/pkgconfig:/data/scratch/lang/scm/work/.buildlink/share/pkgconfig PKG_CONFIG_LOG=/data/scratch/lang/scm/work/.pkg-config.log PKG_CONFIG_PATH= CWRAPPERS_CONFIG_DIR=/data/scratch/lang/scm/work/.cwrapper/config LIBS=-L/usr/X11R7/lib\ -lX11\ SRCS=sc2.c\ ramap.c\ dynl.c\ edline.c\ gsubr.c\ ioext.c\ posix.c\ record.c\ rgx.c\ socket.c\ unix.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\ unexelf.c\ x.c OBJS=sc2.o\ ramap.o\ dynl.o\ edline.o\ gsubr.o\ ioext.o\ posix.o\ record.o\ rgx.o\ socket.o\ unix.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\ unexelf.o\ x.o /bin/sh ./buildscm.sh
gsubr.c: In function 'gsubr_apply':
gsubr.c:128:1: warning: control reaches end of non-void function [-Wreturn-type]
}
^
ioext.c: In function 'reopen_file':
ioext.c:257:3: warning: suggest parentheses around assignment used as truth value [-Wparentheses]
SCM_OPENCALL(f = freopen(CHARS(filename), cmodes, STREAM(port)));
^
ioext.c: In function 'l_dup':
ioext.c:290:3: warning: suggest parentheses around assignment used as truth value [-Wparentheses]
SCM_OPENCALL(tfd = dup(fileno(STREAM(oldpt))));
^
ioext.c: In function 'l_dup2':
ioext.c:319:3: warning: suggest parentheses around assignment used as truth value [-Wparentheses]
SCM_OPENCALL(ans = dup2(oldfd, newfd));
^
ioext.c: In function 'l_opendir':
ioext.c:341:3: warning: suggest parentheses around assignment used as truth value [-Wparentheses]
SCM_OPENCALL(ds = opendir(CHARS(dirname)));
^
ioext.c: In function 'scm_try_create_file':
ioext.c:869:3: warning: suggest parentheses around assignment used as truth value [-Wparentheses]
SCM_OPENCALL(fd = open(CHARS(fname), fdflags, cperms));
^
posix.c: In function 'l_pipe':
posix.c:109:3: warning: suggest parentheses around assignment used as truth value [-Wparentheses]
SCM_OPENCALL(f_wt = fdopen(fd[1], "w"));
^
posix.c: In function 'open_pipe':
posix.c:134:2: warning: suggest parentheses around assignment used as truth value [-Wparentheses]
SCM_OPENCALL(f = popen(CHARS(pipestr), CHARS(modes)));
^
posix.c: In function 'l_grinfo':
posix.c:218:3: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [enabled by default]
ve[ 3] = makfromstrs(-1, entry->gr_mem);
^
In file included from posix.c:45:0:
scm.h:1049:17: note: expected 'const char * const*' but argument is of type 'char **'
SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv));
^
rgx.c:57:13: warning: 'rcsid' defined but not used [-Wunused-variable]
static char rcsid[] =
^
socket.c: In function 'l_hostinfo':
socket.c:171:3: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [enabled by default]
ve[ 1] = makfromstrs(-1, entry->h_aliases);
^
In file included from socket.c:48:0:
scm.h:1049:17: note: expected 'const char * const*' but argument is of type 'char **'
SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv));
^
socket.c:176:12: warning: assignment from incompatible pointer type [enabled by default]
for(argv = entry->h_addr_list; argv[i]; i++);
^
socket.c: In function 'l_netinfo':
socket.c:208:3: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [enabled by default]
ve[ 1] = makfromstrs(-1, entry->n_aliases);
^
In file included from socket.c:48:0:
scm.h:1049:17: note: expected 'const char * const*' but argument is of type 'char **'
SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv));
^
socket.c: In function 'l_protoinfo':
socket.c:238:3: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [enabled by default]
ve[ 1] = makfromstrs(-1, entry->p_aliases);
^
In file included from socket.c:48:0:
scm.h:1049:17: note: expected 'const char * const*' but argument is of type 'char **'
SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv));
^
socket.c: In function 'l_servinfo':
socket.c:271:3: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [enabled by default]
ve[ 1] = makfromstrs(-1, entry->s_aliases);
^
In file included from socket.c:48:0:
scm.h:1049:17: note: expected 'const char * const*' but argument is of type 'char **'
SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv));
^
socket.c: In function 'l_socketpair':
socket.c:357:3: warning: suggest parentheses around assignment used as truth value [-Wparentheses]
SCM_OPENCALL(f[0] = fdopen(sv[0], "r+"));
^
socket.c:362:3: warning: suggest parentheses around assignment used as truth value [-Wparentheses]
SCM_OPENCALL(f[1] = fdopen(sv[1], "r+"));
^
socket.c: In function 'l_accept':
socket.c:505:3: warning: pointer targets in passing argument 3 of 'accept' differ in signedness [-Wpointer-sign]
SYSCALL(newsd = accept(fileno(STREAM(sockpt)), &sad, &sadlen););
^
In file included from socket.c:56:0:
/usr/include/sys/socket.h:616:5: note: expected '__socklen_t * __restrict__' but argument is of type 'int *'
int accept(int, struct sockaddr * __restrict, socklen_t * __restrict);
^
socket.c:514:3: warning: suggest parentheses around assignment used as truth value [-Wparentheses]
SCM_OPENCALL(newfd = fdopen(newsd, "r+"));
^
In file included from scm.h:80:0,
from socket.c:48:
socket.c: In function 'l_getpeername':
socket.c:614:16: warning: pointer targets in passing argument 3 of 'getpeername' differ in signedness [-Wpointer-sign]
(struct sockaddr*)&sad, &sadlen););
^
scmfig.h:800:37: note: in definition of macro 'SYSCALL'
# define SYSCALL(line) do{errno = 0;line}while(SCM_INTERRUPTED(errno))
^
In file included from socket.c:56:0:
/usr/include/sys/socket.h:619:5: note: expected '__socklen_t * __restrict__' but argument is of type 'int *'
int getpeername(int, struct sockaddr * __restrict, socklen_t * __restrict);
^
In file included from scm.h:80:0,
from socket.c:48:
socket.c: In function 'l_getsockname':
socket.c:628:16: warning: pointer targets in passing argument 3 of 'getsockname' differ in signedness [-Wpointer-sign]
(struct sockaddr*)&sad, &sadlen););
^
scmfig.h:800:37: note: in definition of macro 'SYSCALL'
# define SYSCALL(line) do{errno = 0;line}while(SCM_INTERRUPTED(errno))
^
In file included from socket.c:56:0:
/usr/include/sys/socket.h:620:5: note: expected '__socklen_t * __restrict__' but argument is of type 'int *'
int getsockname(int, struct sockaddr * __restrict, socklen_t * __restrict);
^
scm.c: In function 'scm_init_INITS':
scm.c:125:5: warning: implicit declaration of function 'init_unix' [-Wimplicit-function-declaration]
INITS; /* call initialization of extension files */
^
scm.c: In function 'scm_init_extensions':
scm.c:134:3: warning: implicit declaration of function 'init_x' [-Wimplicit-function-declaration]
COMPILED_INITS; /* initialize statically linked add-ons */
^
scm.c: In function 'process_signals':
scm.c:197:17: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
wta(UNDEFINED, (char *)i, "");
^
scm.c: In function 'err_signal':
scm.c:280:41: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
wta(MAKINUM(sig), (i < 0 ? s_unksig : (char *)(i + SIGNAL_BASE)), "");
^
scm.c: In function 'scmable_signal':
scm.c:312:22: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
wta(UNDEFINED, (char *)i, "");
^
scmmain.c: In function 'main':
scmmain.c:133:32: warning: assignment discards 'const' qualifier from pointer target type [enabled by default]
if (0==argc) {argc = 1; argv = generic_name;} /* for macintosh */
^
scmmain.c:143:16: warning: assignment discards 'const' qualifier from pointer target type [enabled by default]
script_arg = argv[2]; /* Save for scm_find_execpath() call */
^
scmmain.c:144:5: warning: passing argument 1 of 'script_count_argv' from incompatible pointer type [enabled by default]
nargc = script_count_argv(nargv);
^
In file included from scmmain.c:54:0:
scm.h:1092:17: note: expected 'const char **' but argument is of type 'char **'
SCM_EXPORT int script_count_argv P((const char **argv));
^
scmmain.c:146:15: warning: assignment from incompatible pointer type [enabled by default]
else {nargv = argv; nargc = argc;}
^
scmmain.c:148:3: warning: passing argument 2 of 'scm_find_execpath' from incompatible pointer type [enabled by default]
execpath = scm_find_execpath(nargc, nargv, script_arg);
^
In file included from scmmain.c:54:0:
scm.h:798:18: note: expected 'const char * const*' but argument is of type 'char **'
SCM_EXPORT char *scm_find_execpath P((int argc, const char * const *argv, const char *script_arg));
^
scmmain.c:155:5: warning: passing argument 2 of 'scm_init_from_argv' from incompatible pointer type [enabled by default]
scm_init_from_argv(nargc, nargv, script_arg, iverbose, buf0stdin);
^
In file included from scmmain.c:54:0:
scm.h:791:17: note: expected 'const char * const*' but argument is of type 'char **'
SCM_EXPORT void scm_init_from_argv P((int argc, const char * const *argv, char *script_arg,
^
script.c: In function 'script_find_executable':
script.c:143:3: warning: implicit declaration of function 'access' [-Wimplicit-function-declaration]
if (access(name, X_OK)) return 0L;
^
script.c: In function 'find_impl_file':
script.c:173:18: warning: initialization discards 'const' qualifier from pointer target type [enabled by default]
char *extptr = exec_path + strlen(exec_path);
^
script.c:189:10: warning: assignment discards 'const' qualifier from pointer target type [enabled by default]
extptr = exec_path + strlen(exec_path);
^
script.c: In function 'script_process_argv':
script.c:386:12: warning: assignment discards 'const' qualifier from pointer target type [enabled by default]
nargv[0] = argv[0];
^
script.c:401:22: warning: assignment discards 'const' qualifier from pointer target type [enabled by default]
nargv[nargi++] = argv[argi++];
^
script.c:404:39: warning: assignment discards 'const' qualifier from pointer target type [enabled by default]
while (argi <= argc) nargv[nargi++] = argv[argi++];
^
In file included from repl.c:45:0:
repl.c: In function 'wait_for_input':
scm.h:1123:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
# define ASRTER(_cond, _arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr);
^
repl.c:513:5: note: in expansion of macro 'ASRTER'
ASRTER(NIMP(port) && OPINPORTP(port) && (BUF0 & SCM_PORTFLAGS(port)),
^
repl.c: In function 'handle_it':
repl.c:1291:20: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
wta(UNDEFINED, (char *)i, ""); /* sends it to def_err_response */
^
repl.c: In function 'scm_top_level':
repl.c:1392:7: warning: array subscript has type 'char' [-Wchar-subscripts]
(isspace(initpath[0]) || ';'==initpath[0] || '('==initpath[0]))
^
repl.c:1451:5: warning: passing argument 2 of 'igc' makes pointer from integer without a cast [enabled by default]
igc(s_unexec, BOOL_F);
^
repl.c:47:6: note: expected 'SCM *' but argument is of type 'long int'
void igc P((const char *what, SCM rootcont));
^
repl.c: In function 'def_err_response':
repl.c:2054:47: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
lputc((long)err_pos <= ARGn ? ' ' : '1' + (int)err_pos - ARG1, cur_errp);
^
repl.c:2057:23: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
else lputs(errmsgs[((int)err_pos)-WNA].msg, cur_errp);
^
repl.c: In function 'everr':
repl.c:2110:11: warning: assignment discards 'const' qualifier from pointer target type [enabled by default]
err_pos = pos;
^
repl.c:2111:14: warning: assignment discards 'const' qualifier from pointer target type [enabled by default]
err_s_subr = s_subr;
^
In file included from repl.c:45:0:
repl.c:2116:24: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
COOKIE(1) : COOKIE((int)pos));
^
scm.h:286:21: note: in definition of macro 'COOKIE'
# define COOKIE(n) (n)
^
scl.c: In function 'scm_bigdblcomp':
scl.c:1071:3: warning: passing argument 2 of 'frexp' from incompatible pointer type [enabled by default]
frexp(d, &dlen);
^
In file included from scl.c:49:0:
/usr/include/math.h:226:8: note: expected 'int *' but argument is of type 'size_t *'
double frexp(double, int *);
^
scl.c: In function 'scm_intexpt':
scl.c:2177:10: warning: suggest explicit braces to avoid ambiguous 'else' [-Wparentheses]
if (0==iz1)
^
scl.c: At top level:
scl.c:2917:13: warning: 'safe_add_1' defined but not used [-Wunused-function]
static void safe_add_1(f, fsum)
^
scl.c: In function 'ex2in':
scl.c:2455:1: warning: control reaches end of non-void function [-Wreturn-type]
}
^
In file included from eval.c:45:0:
eval.c: In function 'map':
scm.h:1123:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
# define ASRTER(_cond, _arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr);
^
eval.c:3123:7: note: in expansion of macro 'ASRTER'
ASRTER(CONSP(ve[i]), ve[i], 0==i ? ARG2 : ARGn, s_map);
^
eval.c: In function 'for_each':
scm.h:1123:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
# define ASRTER(_cond, _arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr);
^
eval.c:3170:7: note: in expansion of macro 'ASRTER'
ASRTER(CONSP(ve[i]), ve[i], 0==i ? ARG2 : ARGn, s_for_each);
^
eval.c: In function 'varcheck':
eval.c:1192:25: warning: 'v1' may be used uninitialized in this function [-Wmaybe-uninitialized]
badvar: scm_experr(v1, what, opstr);
^
eval.c: In function 'lookupcar':
eval.c:564:18: warning: 'pv' may be used uninitialized in this function [-Wmaybe-uninitialized]
ASRTER(!UNBNDP(*pv) && undefineds != *pv, var, s_unbnd, "");
^
eval.c: In function 'scm_multi_set':
eval.c:670:17: warning: 'loc' may be used uninitialized in this function [-Wmaybe-uninitialized]
*pres = cons(*loc, EOL);
^
sys.c: In function 'scm_make_cont':
sys.c:1645:9: warning: variable 'n' set but not used [-Wunused-but-set-variable]
sizet n;
^
In file included from sys.c:46:0:
sys.c: In function 'mark_locations':
scm.h:302:39: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
#define NCELLP(x) ((sizeof(cell)-1) & (int)(x))
^
scm.h:301:20: note: in expansion of macro 'NCELLP'
#define CELLP(x) (!NCELLP(x))
^
sys.c:2624:22: note: in expansion of macro 'CELLP'
while(0 <= --m) if (CELLP(*(SCM **)&x[m])) {
^
sys.c: In function 'sym2vcell':
sys.c:1398:1: warning: control reaches end of non-void function [-Wreturn-type]
}
^
In file included from subr.c:46:0:
subr.c: In function 'list_ref':
scm.h:1123:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
# define ASRTER(_cond, _arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr);
^
subr.c:220:8: note: in expansion of macro 'ASRTER'
erout: ASRTER(NIMP(lst) && CONSP(lst),
^
unif.c: In function 'aset':
unif.c:1098:5: warning: implicit declaration of function 'num2char' [-Wimplicit-function-declaration]
((signed char *)VELTS(v))[pos] = num2char(obj, (char *)ARG2, s_aset); break;
^
unif.c: In function 'list2ura':
unif.c:1760:25: warning: value computed is not used [-Wunused-value]
for (; k--; NIMP(row) && (row = CAR(row))) {
^
unif.c: In function 'array_inbp':
unif.c:826:8: warning: 'v' may be used uninitialized in this function [-Wmaybe-uninitialized]
wta(v, (char *)ARG1, s_array_inbp);
^
unif.c: In function 'resizuve':
unif.c:81:7: warning: 'ol' may be used uninitialized in this function [-Wmaybe-uninitialized]
ol++;
^
In file included from scm.h:80:0,
from unif.c:57:
unif.c: In function 'aset':
scmfig.h:587:26: warning: 'pos' may be used uninitialized in this function [-Wmaybe-uninitialized]
# define MAKINUM(x) (((x)<<2)+2L)
^
unif.c:1061:8: note: 'pos' was declared here
long pos;
^
In file included from scm.h:80:0,
from unif.c:57:
unif.c: In function 'aref':
scmfig.h:587:26: warning: 'pos' may be used uninitialized in this function [-Wmaybe-uninitialized]
# define MAKINUM(x) (((x)<<2)+2L)
^
unif.c:858:8: note: 'pos' was declared here
long pos;
^
rope.c: In function 'must_free_argv':
rope.c:253:5: warning: passing argument 1 of 'must_free' discards 'const' qualifier from pointer target type [enabled by default]
must_free(argv[i], 1+strlen(argv[i]));
^
In file included from rope.c:45:0:
scm.h:720:17: note: expected 'char *' but argument is of type 'const char * const'
SCM_EXPORT void must_free P((char *obj, sizet len));
^
rope.c: In function 'num2ulong':
rope.c:129:1: warning: control reaches end of non-void function [-Wreturn-type]
}
^
rope.c: In function 'num2long':
rope.c:161:1: warning: control reaches end of non-void function [-Wreturn-type]
}
^
rope.c: In function 'num2short':
rope.c:170:1: warning: control reaches end of non-void function [-Wreturn-type]
}
^
rope.c: In function 'num2char':
rope.c:179:1: warning: control reaches end of non-void function [-Wreturn-type]
}
^
rope.c: In function 'num2dbl':
rope.c:193:1: warning: control reaches end of non-void function [-Wreturn-type]
}
^
unexelf.c:539:0: warning: "ELFSIZE" redefined [enabled by default]
# define ELFSIZE 64
^
unexelf.c:491:0: note: this is the location of the previous definition
# define ELFSIZE 32
^
unexelf.c: In function 'find_section':
unexelf.c:639:2: warning: implicit declaration of function 'exit' [-Wimplicit-function-declaration]
fatal ("Can't find %s in %s.\n", name, file_name);
^
unexelf.c:411:51: warning: incompatible implicit declaration of built-in function 'exit' [enabled by default]
#define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
^
unexelf.c:639:2: note: in expansion of macro 'fatal'
fatal ("Can't find %s in %s.\n", name, file_name);
^
unexelf.c: In function 'unexec':
unexelf.c:411:51: warning: incompatible implicit declaration of built-in function 'exit' [enabled by default]
#define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
^
unexelf.c:697:5: note: in expansion of macro 'fatal'
fatal ("Can't open %s for reading: errno %d\n", old_name, errno);
^
unexelf.c:716:5: warning: too many arguments for format [-Wformat-extra-args]
fatal ("Can't allocate buffer for %s\n", old_name, 0);
^
unexelf.c:716:5: warning: too many arguments for format [-Wformat-extra-args]
unexelf.c:787:5: warning: too many arguments for format [-Wformat-extra-args]
fatal (".bss shrank when undumping???\n", 0, 0);
^
unexelf.c:787:5: warning: too many arguments for format [-Wformat-extra-args]
unexelf.c:805:5: warning: too many arguments for format [-Wformat-extra-args]
fatal ("Can't allocate buffer for %s\n", old_name, 0);
^
unexelf.c:805:5: warning: too many arguments for format [-Wformat-extra-args]
unexelf.c:860:4: warning: too many arguments for format [-Wformat-extra-args]
fatal ("Program segment above .bss in %s\n", old_name, 0);
^
unexelf.c:860:4: warning: too many arguments for format [-Wformat-extra-args]
unexelf.c:870:5: warning: too many arguments for format [-Wformat-extra-args]
fatal ("Couldn't find segment next to .bss in %s\n", old_name, 0);
^
unexelf.c:870:5: warning: too many arguments for format [-Wformat-extra-args]
unexelf.c:900:5: warning: too many arguments for format [-Wformat-extra-args]
fatal ("Can't find .data in %s.\n", old_name, 0);
^
unexelf.c:900:5: warning: too many arguments for format [-Wformat-extra-args]
unexelf.c:687:7: warning: variable 'old_mdebug_index' set but not used [-Wunused-but-set-variable]
int old_mdebug_index;
^
x.c: In function 'make_xcolormap':
x.c:141:29: warning: passing argument 4 of 'XSaveContext' makes pointer from integer without a cast [enabled by default]
#define DISPLAY(x) ((struct xs_Display *) CDR(x))
^
x.c:148:22: note: in expansion of macro 'DISPLAY'
#define XDISPLAY(x) (DISPLAY(x)->dpy)
^
x.c:361:16: note: in expansion of macro 'XDISPLAY'
XSaveContext(XDISPLAY(sdpy), (XID)cmp, xtc_cmp, z);
^
In file included from x.c:63:0:
/data/scratch/lang/scm/work/.x11-buildlink/include/X11/Xutil.h:576:12: note: expected 'const char *' but argument is of type 'SCM'
extern int XSaveContext(
^
x.c: In function 'CCC2SCM':
x.c:609:5: warning: passing argument 4 of 'XSaveContext' makes pointer from integer without a cast [enabled by default]
XSaveContext(ccc->dpy, (XID)ccc, xtc_ccc, s_ccc);
^
In file included from x.c:63:0:
/data/scratch/lang/scm/work/.x11-buildlink/include/X11/Xutil.h:576:12: note: expected 'const char *' but argument is of type 'SCM'
extern int XSaveContext(
^
x.c: In function 'x_display_debug':
x.c:1013:9: warning: variable 'previous_after_function' set but not used [-Wunused-but-set-variable]
int (*previous_after_function)();
^
x.c: In function 'x_alloc_color_cells':
x.c:1317:10: warning: pointer targets in passing argument 4 of 'XAllocColorPlanes' differ in signedness [-Wpointer-sign]
&rmask_return, &gmask_return, &bmask_return);
^
In file included from x.c:59:0:
/data/scratch/lang/scm/work/.x11-buildlink/include/X11/Xlib.h:1986:15: note: expected 'long unsigned int *' but argument is of type 'SCM *'
extern Status XAllocColorPlanes(
^
x.c:1328:7: warning: pointer targets in passing argument 4 of 'XAllocColorCells' differ in signedness [-Wpointer-sign]
VELTS(plra), nplanes, VELTS(pxra), npixels);
^
In file included from x.c:59:0:
/data/scratch/lang/scm/work/.x11-buildlink/include/X11/Xlib.h:1976:15: note: expected 'long unsigned int *' but argument is of type 'SCM *'
extern Status XAllocColorCells(
^
x.c:1328:7: warning: pointer targets in passing argument 6 of 'XAllocColorCells' differ in signedness [-Wpointer-sign]
VELTS(plra), nplanes, VELTS(pxra), npixels);
^
In file included from x.c:59:0:
/data/scratch/lang/scm/work/.x11-buildlink/include/X11/Xlib.h:1976:15: note: expected 'long unsigned int *' but argument is of type 'SCM *'
extern Status XAllocColorCells(
^
x.c: In function 'x_free_color_cells':
x.c:1347:5: warning: pointer targets in passing argument 3 of 'XFreeColors' differ in signedness [-Wpointer-sign]
XFreeColors(xcm->dpy, xcm->cm, VELTS(spxls), INUM(spxls), planes);
^
In file included from x.c:59:0:
/data/scratch/lang/scm/work/.x11-buildlink/include/X11/Xlib.h:2537:12: note: expected 'long unsigned int *' but argument is of type 'SCM *'
extern int XFreeColors(
^
x.c: In function 'x_propdata2scm':
x.c:1958:7: warning: pointer targets in passing argument 1 of 'makfrom0str' differ in signedness [-Wpointer-sign]
case 8: return makfrom0str(data);
^
In file included from x.c:66:0:
scm.h:1050:17: note: expected 'const char *' but argument is of type 'unsigned char *'
SCM_EXPORT SCM makfrom0str P((const char *scr));
^
x.c: In function 'x_draw_string':
x.c:2094:3: warning: passing argument 4 of 'xldraw_string' from incompatible pointer type [enabled by default]
xldraw_string(sdbl, sgc, sargs, &XDrawString, s_x_draw_string);
^
x.c:2075:6: note: expected 'int (*)(void)' but argument is of type 'int (*)(struct Display *, Drawable, struct _XGC *, int, int, const char *, int)'
void xldraw_string(sdbl, sgc, sargs, proc, s_caller)
^
x.c: In function 'x_image_string':
x.c:2100:3: warning: passing argument 4 of 'xldraw_string' from incompatible pointer type [enabled by default]
xldraw_string(sdbl, sgc, sargs, &XDrawImageString, s_x_image_string);
^
x.c:2075:6: note: expected 'int (*)(void)' but argument is of type 'int (*)(struct Display *, Drawable, struct _XGC *, int, int, const char *, int)'
void xldraw_string(sdbl, sgc, sargs, proc, s_caller)
^
x.c: In function 'x_event_keysym':
x.c:2283:7: warning: 'ev' may be used uninitialized in this function [-Wmaybe-uninitialized]
ans = XLookupKeysym(ev, ev->state);
^
mv: rename scm to scm~: No such file or directory