=> Bootstrap dependency digest>=20010302: found digest-20111104
WARNING: [license.mk] Every package should define a LICENSE.
===> 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 -pipe -O2 -DX11 -I/usr/X11/include -I/usr/pkg/include -I/usr/include scm.c -o scm.o
gcc -c -pipe -O2 -DX11 -I/usr/X11/include -I/usr/pkg/include -I/usr/include time.c -o time.o
gcc -c -pipe -O2 -DX11 -I/usr/X11/include -I/usr/pkg/include -I/usr/include repl.c -o repl.o
repl.c: In function 'everr':
repl.c:2110: warning: assignment discards qualifiers from pointer target type
repl.c:2111: warning: assignment discards qualifiers from pointer target type
gcc -c -pipe -O2 -DX11 -I/usr/X11/include -I/usr/pkg/include -I/usr/include scl.c -o scl.o
gcc -c -pipe -O2 -DX11 -I/usr/X11/include -I/usr/pkg/include -I/usr/include sys.c -o sys.o
sys.c: In function 'prinport':
sys.c:370: warning: passing argument 1 of 'lputs' makes pointer from integer without a cast
gcc -c -pipe -O2 -DX11 -I/usr/X11/include -I/usr/pkg/include -I/usr/include eval.c -o eval.o
gcc -c -pipe -O2 -DX11 -I/usr/X11/include -I/usr/pkg/include -I/usr/include subr.c -o subr.o
gcc -c -pipe -O2 -DX11 -I/usr/X11/include -I/usr/pkg/include -I/usr/include unif.c -o unif.o
gcc -c -pipe -O2 -DX11 -I/usr/X11/include -I/usr/pkg/include -I/usr/include rope.c -o rope.o
rope.c: In function 'must_free_argv':
rope.c:253: warning: passing argument 1 of 'must_free' discards qualifiers from pointer target type
gcc -c -pipe -O2 -DX11 -I/usr/X11/include -I/usr/pkg/include -I/usr/include continue.c -o continue.o
gcc -c -pipe -O2 -DX11 -I/usr/X11/include -I/usr/pkg/include -I/usr/include findexec.c -o findexec.o
gcc -c -pipe -O2 -DX11 -I/usr/X11/include -I/usr/pkg/include -I/usr/include script.c -o script.o
script.c: In function 'find_impl_file':
script.c:173: warning: initialization discards qualifiers from pointer target type
script.c:189: warning: assignment discards qualifiers from pointer target type
script.c: In function 'script_process_argv':
script.c:386: warning: assignment discards qualifiers from pointer target type
script.c:401: warning: assignment discards qualifiers from pointer target type
script.c:404: warning: assignment discards qualifiers from pointer target type
gcc -c -pipe -O2 -DX11 -I/usr/X11/include -I/usr/pkg/include -I/usr/include debug.c -o debug.o
gcc -c -pipe -O2 -DX11 -I/usr/X11/include -I/usr/pkg/include -I/usr/include scmmain.c -o scmmain.o
scmmain.c: In function 'main':
scmmain.c:133: warning: assignment discards qualifiers from pointer target type
scmmain.c:143: warning: assignment discards qualifiers from pointer target type
scmmain.c:144: warning: passing argument 1 of 'script_count_argv' from incompatible pointer type
scmmain.c:146: warning: assignment from incompatible pointer type
scmmain.c:148: warning: passing argument 2 of 'scm_find_execpath' from incompatible pointer type
scmmain.c:155: warning: passing argument 2 of 'scm_init_from_argv' from incompatible pointer type
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/pkg/bin/bmake 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 "/Users/kristerw/pbulk/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 "/Users/kristerw/pbulk/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 darwin]
; 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 -O3 -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")
script.c: In function 'find_impl_file':
script.c:173: warning: initialization discards qualifiers from pointer target type
script.c:189: warning: assignment discards qualifiers from pointer target type
script.c: In function 'script_process_argv':
script.c:386: warning: assignment discards qualifiers from pointer target type
script.c:401: warning: assignment discards qualifiers from pointer target type
script.c:404: warning: assignment discards qualifiers from pointer target type
repl.c: In function 'everr':
repl.c:2110: warning: assignment discards qualifiers from pointer target type
repl.c:2111: warning: assignment discards qualifiers from pointer target type
scl.c: In function 'scm_bigdblcomp':
scl.c:1071: warning: passing argument 2 of 'frexp' from incompatible pointer type
sys.c: In function 'prinport':
sys.c:370: warning: passing argument 1 of 'lputs' makes pointer from integer without a cast
rope.c: In function 'must_free_argv':
rope.c:253: warning: passing argument 1 of 'must_free' discards qualifiers from pointer target type
; ================ 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")
/usr/bin/ranlib: file: libscm.a(dynl.o) has no symbols
(system "ranlib libscm.a")
ranlib: file: libscm.a(dynl.o) has no symbols
=> Unwrapping files-to-be-installed.
cd /Users/kristerw/pbulk/scratch/lang/scm/work/scm && env USETOOLS=no CC=gcc CFLAGS=-pipe\ -O2\ -DX11\ -I/usr/X11/include\ -I/usr/pkg/include\ -I/usr/include CPPFLAGS=-no-cpp-precomp\ -isystem\ /usr/include\ -I/usr/pkg/include\ -I/usr/X11/include\ -I/usr/include CXX=g++ CXXFLAGS=-pipe\ -O2\ -DX11\ -I/usr/X11/include\ -I/usr/pkg/include\ -I/usr/include COMPILER_RPATH_FLAG=-L F77=f77 FC=f77 FFLAGS=-O LANG=C LC_COLLATE=C LC_CTYPE=C LC_MESSAGES=C LC_MONETARY=C LC_NUMERIC=C LC_TIME=C LDFLAGS=-L/usr/pkg/lib\ -L/usr/X11/lib\ -L/usr/lib LINKER_RPATH_FLAG=-L PATH=/Users/kristerw/pbulk/scratch/lang/scm/work/.wrapper/bin:/Users/kristerw/pbulk/scratch/lang/scm/work/.buildlink/bin:/Users/kristerw/pbulk/scratch/lang/scm/work/.gcc/bin:/Users/kristerw/pbulk/scratch/lang/scm/work/.tools/bin:/usr/pkg/bin:/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/opt/X11/bin:/usr/pkg/bin:/usr/X11/bin PREFIX=/usr/pkg PKG_SYSCONFDIR=/usr/pkg/etc CXXCPP=gcc\ -E\ -no-cpp-precomp\ -isystem\ /usr/include HOME=/Users/kristerw/pbulk/scratch/lang/scm/work/.home CPP=gcc\ -E\ -no-cpp-precomp\ -isystem\ /usr/include LINK_ALL_LIBGCC_HACK= LOCALBASE=/usr/pkg NO_WHOLE_ARCHIVE_FLAG=-Wl,--no-whole-archive WHOLE_ARCHIVE_FLAG=-Wl,--whole-archive X11BASE=/usr/X11 X11PREFIX=/usr/pkg PKGMANDIR=man PKGINFODIR=info MAKECONF=/dev/null OBJECT_FMT=Mach-O USETOOLS=no BSD_INSTALL_PROGRAM=/usr/bin/install\ -c\ -s\ -o\ kristerw\ -g\ staff\ -m\ 755 BSD_INSTALL_SCRIPT=/usr/bin/install\ -c\ -o\ kristerw\ -g\ staff\ -m\ 755 BSD_INSTALL_LIB=/usr/bin/install\ -c\ -o\ kristerw\ -g\ staff\ -m\ 755 BSD_INSTALL_DATA=/usr/bin/install\ -c\ -o\ kristerw\ -g\ staff\ -m\ 644 BSD_INSTALL_MAN=/usr/bin/install\ -c\ -o\ kristerw\ -g\ staff\ -m\ 644 BSD_INSTALL=/usr/bin/install BSD_INSTALL_PROGRAM_DIR=/usr/bin/install\ -d\ -o\ kristerw\ -g\ staff\ -m\ 755 BSD_INSTALL_SCRIPT_DIR=/usr/bin/install\ -d\ -o\ kristerw\ -g\ staff\ -m\ 755 BSD_INSTALL_LIB_DIR=/usr/bin/install\ -d\ -o\ kristerw\ -g\ staff\ -m\ 755 BSD_INSTALL_DATA_DIR=/usr/bin/install\ -d\ -o\ kristerw\ -g\ staff\ -m\ 755 BSD_INSTALL_MAN_DIR=/usr/bin/install\ -d\ -o\ kristerw\ -g\ staff\ -m\ 755 BSD_INSTALL_GAME=/usr/bin/install\ -c\ -s\ -o\ kristerw\ -g\ staff\ -m\ 2555 BSD_INSTALL_GAME_DATA=/usr/bin/install\ -c\ -o\ kristerw\ -g\ staff\ -m\ 664 BSD_INSTALL_GAME_DIR=/usr/bin/install\ -d\ -o\ kristerw\ -g\ staff\ -m\ 775 INSTALL_INFO=/Users/kristerw/pbulk/scratch/lang/scm/work/.tools/bin/install-info MAKEINFO=/Users/kristerw/pbulk/scratch/lang/scm/work/.tools/bin/makeinfo FLEX= BISON= PKG_CONFIG= PKG_CONFIG_LIBDIR=/Users/kristerw/pbulk/scratch/lang/scm/work/.buildlink/lib/pkgconfig:/Users/kristerw/pbulk/scratch/lang/scm/work/.buildlink/share/pkgconfig PKG_CONFIG_LOG=/Users/kristerw/pbulk/scratch/lang/scm/work/.pkg-config.log PKG_CONFIG_PATH= WRAPPER_DEBUG=no WRAPPER_UPDATE_CACHE=yes VIEWBASE=/usr/pkg LIBS=-L/usr/X11/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: warning: control reaches end of non-void function
ioext.c: In function 'reopen_file':
ioext.c:257: warning: suggest parentheses around assignment used as truth value
ioext.c: In function 'l_dup':
ioext.c:290: warning: suggest parentheses around assignment used as truth value
ioext.c: In function 'l_dup2':
ioext.c:319: warning: suggest parentheses around assignment used as truth value
ioext.c: In function 'l_opendir':
ioext.c:341: warning: suggest parentheses around assignment used as truth value
ioext.c: In function 'scm_try_create_file':
ioext.c:869: warning: suggest parentheses around assignment used as truth value
posix.c: In function 'l_chown':
posix.c:80: warning: implicit declaration of function 'chown'
posix.c: In function 'l_link':
posix.c:91: warning: implicit declaration of function 'link'
posix.c: In function 'l_pipe':
posix.c:102: warning: implicit declaration of function 'pipe'
posix.c:106: warning: implicit declaration of function 'close'
posix.c:109: warning: suggest parentheses around assignment used as truth value
posix.c: In function 'open_pipe':
posix.c:134: warning: suggest parentheses around assignment used as truth value
posix.c: In function 'scm_getgroups':
posix.c:148: warning: implicit declaration of function 'getgroups'
posix.c: In function 'l_grinfo':
posix.c:218: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type
posix.c: In function 'l_getppid':
posix.c:259: warning: implicit declaration of function 'getppid'
posix.c: In function 'l_getuid':
posix.c:264: warning: implicit declaration of function 'getuid'
posix.c: In function 'l_getgid':
posix.c:268: warning: implicit declaration of function 'getgid'
posix.c: In function 'l_geteuid':
posix.c:273: warning: implicit declaration of function 'geteuid'
posix.c: In function 'l_getegid':
posix.c:277: warning: implicit declaration of function 'getegid'
posix.c: In function 'l_setuid':
posix.c:286: warning: implicit declaration of function 'setuid'
posix.c: In function 'l_setgid':
posix.c:293: warning: implicit declaration of function 'setgid'
posix.c: In function 'l_seteuid':
posix.c:302: warning: implicit declaration of function 'seteuid'
posix.c: In function 'l_setegid':
posix.c:309: warning: implicit declaration of function 'setegid'
posix.c: In function 'l_ttyname':
posix.c:320: warning: implicit declaration of function 'ttyname'
posix.c:320: warning: assignment makes pointer from integer without a cast
posix.c: In function 'l_fork':
posix.c:327: warning: implicit declaration of function 'fork'
rgx.c:57: warning: 'rcsid' defined but not used
socket.c: In function 'l_hostinfo':
socket.c:171: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type
socket.c:176: warning: assignment from incompatible pointer type
socket.c: In function 'l_netinfo':
socket.c:208: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type
socket.c: In function 'l_protoinfo':
socket.c:238: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type
socket.c: In function 'l_servinfo':
socket.c:271: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type
socket.c: In function 'l_socket':
socket.c:325: warning: implicit declaration of function 'close'
socket.c: In function 'l_socketpair':
socket.c:357: warning: suggest parentheses around assignment used as truth value
socket.c:362: warning: suggest parentheses around assignment used as truth value
socket.c: In function 'l_accept':
socket.c:505: warning: pointer targets in passing argument 3 of 'accept' differ in signedness
socket.c:514: warning: suggest parentheses around assignment used as truth value
socket.c: In function 'l_getpeername':
socket.c:613: warning: pointer targets in passing argument 3 of 'getpeername' differ in signedness
socket.c: In function 'l_getsockname':
socket.c:627: warning: pointer targets in passing argument 3 of 'getsockname' differ in signedness
unix.c: In function 'scm_acct':
unix.c:100: warning: implicit declaration of function 'acct'
unix.c: In function 'scm_nice':
unix.c:113: warning: implicit declaration of function 'nice'
unix.c: In function 'scm_sync':
unix.c:118: warning: implicit declaration of function 'sync'
unix.c: In function 'scm_symlink':
unix.c:129: warning: implicit declaration of function 'symlink'
unix.c: In function 'scm_readlink':
unix.c:139: warning: implicit declaration of function 'readlink'
scm.c: In function 'scm_init_INITS':
scm.c:125: warning: implicit declaration of function 'init_unix'
scm.c: In function 'scm_init_extensions':
scm.c:134: warning: implicit declaration of function 'init_x'
scm.c: In function 'lalarm':
scm.c:345: warning: implicit declaration of function 'alarm'
scm.c: In function 'l_pause':
scm.c:390: warning: implicit declaration of function 'pause'
scm.c: In function 'l_sleep':
scm.c:419: warning: implicit declaration of function 'sleep'
scm.c: In function 'l_raise':
scm.c:475: warning: implicit declaration of function 'getpid'
scm.c: In function 'init_buf0':
scm.c:842: warning: implicit declaration of function 'isatty'
scmmain.c: In function 'main':
scmmain.c:133: warning: assignment discards qualifiers from pointer target type
scmmain.c:143: warning: assignment discards qualifiers from pointer target type
scmmain.c:144: warning: passing argument 1 of 'script_count_argv' from incompatible pointer type
scmmain.c:146: warning: assignment from incompatible pointer type
scmmain.c:148: warning: passing argument 2 of 'scm_find_execpath' from incompatible pointer type
scmmain.c:150: warning: implicit declaration of function 'isatty'
scmmain.c:155: warning: passing argument 2 of 'scm_init_from_argv' from incompatible pointer type
script.c: In function 'find_impl_file':
script.c:173: warning: initialization discards qualifiers from pointer target type
script.c:189: warning: assignment discards qualifiers from pointer target type
script.c: In function 'script_process_argv':
script.c:386: warning: assignment discards qualifiers from pointer target type
script.c:401: warning: assignment discards qualifiers from pointer target type
script.c:404: warning: assignment discards qualifiers from pointer target type
repl.c: In function 'scm_top_level':
repl.c:1392: warning: implicit declaration of function 'isspace'
repl.c:1451: warning: passing argument 2 of 'igc' makes pointer from integer without a cast
repl.c: In function 'init_sbrk':
repl.c:1623: warning: implicit declaration of function 'sbrk'
repl.c: In function 'everr':
repl.c:2110: warning: assignment discards qualifiers from pointer target type
repl.c:2111: warning: assignment discards qualifiers from pointer target type
repl.c: In function 'l_isatty':
repl.c:2193: warning: implicit declaration of function 'isatty'
scl.c: In function 'scm_bigdblcomp':
scl.c:1071: warning: passing argument 2 of 'frexp' from incompatible pointer type
scl.c: In function 'scm_intexpt':
scl.c:2177: warning: suggest explicit braces to avoid ambiguous 'else'
scl.c: In function 'ex2in':
scl.c:2455: warning: control reaches end of non-void function
scl.c: At top level:
scl.c:2919: warning: 'safe_add_1' defined but not used
sys.c: In function 'prinport':
sys.c:369: warning: implicit declaration of function 'isatty'
sys.c:370: warning: implicit declaration of function 'ttyname'
sys.c:370: warning: passing argument 1 of 'lputs' makes pointer from integer without a cast
sys.c: In function 'sym2vcell':
sys.c:1398: warning: control reaches end of non-void function
unif.c: In function 'aset':
unif.c:1098: warning: implicit declaration of function 'num2char'
unif.c: In function 'list2ura':
unif.c:1760: warning: value computed is not used
rope.c: In function 'must_free_argv':
rope.c:253: warning: passing argument 1 of 'must_free' discards qualifiers from pointer target type
rope.c: In function 'num2dbl':
rope.c:193: warning: control reaches end of non-void function
rope.c: In function 'num2char':
rope.c:179: warning: control reaches end of non-void function
rope.c: In function 'num2short':
rope.c:170: warning: control reaches end of non-void function
rope.c: In function 'num2long':
rope.c:161: warning: control reaches end of non-void function
rope.c: In function 'num2ulong':
rope.c:129: warning: control reaches end of non-void function
unexelf.c:426:17: error: elf.h: No such file or directory
unexelf.c:597: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'round_up'
unexelf.c:599: error: expected identifier or '(' before '{' token
unexelf.c: In function 'find_section':
unexelf.c:618: error: expected declaration specifiers before 'Elf32_Ehdr'
unexelf.c:619: error: expected declaration specifiers before 'Elf32_Shdr'
unexelf.c:624: error: invalid type argument of '->'
unexelf.c:630: error: 'Elf32_Shdr' undeclared (first use in this function)
unexelf.c:630: error: (Each undeclared identifier is reported only once
unexelf.c:630: error: for each function it appears in.)
unexelf.c:630: error: expected expression before ')' token
unexelf.c:634: error: invalid type argument of '->'
unexelf.c:639: warning: implicit declaration of function 'exit'
unexelf.c:639: warning: incompatible implicit declaration of built-in function 'exit'
unexelf.c: In function 'unexec':
unexelf.c:672: error: 'Elf32_Ehdr' undeclared (first use in this function)
unexelf.c:672: error: 'old_file_h' undeclared (first use in this function)
unexelf.c:672: error: 'new_file_h' undeclared (first use in this function)
unexelf.c:672: warning: left-hand operand of comma expression has no effect
unexelf.c:673: error: 'Elf32_Phdr' undeclared (first use in this function)
unexelf.c:673: error: 'old_program_h' undeclared (first use in this function)
unexelf.c:673: error: 'new_program_h' undeclared (first use in this function)
unexelf.c:673: warning: left-hand operand of comma expression has no effect
unexelf.c:674: error: 'Elf32_Shdr' undeclared (first use in this function)
unexelf.c:674: error: 'old_section_h' undeclared (first use in this function)
unexelf.c:674: error: 'new_section_h' undeclared (first use in this function)
unexelf.c:674: warning: left-hand operand of comma expression has no effect
unexelf.c:679: error: 'Elf32_Addr' undeclared (first use in this function)
unexelf.c:679: error: expected ';' before 'old_bss_addr'
unexelf.c:680: error: 'Elf32_Word' undeclared (first use in this function)
unexelf.c:680: error: expected ';' before 'old_bss_size'
unexelf.c:681: error: 'Elf32_Off' undeclared (first use in this function)
unexelf.c:681: error: expected ';' before 'new_data2_offset'
unexelf.c:682: error: expected ';' before 'new_data2_addr'
unexelf.c:697: warning: incompatible implicit declaration of built-in function 'exit'
unexelf.c:716: warning: too many arguments for format
unexelf.c:716: warning: too many arguments for format
unexelf.c:723: error: expected expression before ')' token
unexelf.c:724: error: expected expression before ')' token
unexelf.c:725: error: expected expression before ')' token
unexelf.c:727: error: expected expression before ')' token
unexelf.c:743: error: expected expression before ')' token
unexelf.c:743: error: 'SHT_PROGBITS' undeclared (first use in this function)
unexelf.c:748: error: 'old_bss_addr' undeclared (first use in this function)
unexelf.c:748: error: expected expression before ')' token
unexelf.c:749: error: 'old_bss_size' undeclared (first use in this function)
unexelf.c:749: error: expected expression before ')' token
unexelf.c:754: error: expected expression before ')' token
unexelf.c:755: error: expected expression before ')' token
unexelf.c:756: error: expected expression before ')' token
unexelf.c:767: error: 'new_bss_addr' undeclared (first use in this function)
unexelf.c:767: error: expected ';' before 'sbrk'
unexelf.c:771: error: 'new_data2_addr' undeclared (first use in this function)
unexelf.c:772: error: 'new_data2_size' undeclared (first use in this function)
unexelf.c:773: error: 'new_data2_offset' undeclared (first use in this function)
unexelf.c:773: error: expected expression before ')' token
unexelf.c:774: error: expected expression before ')' token
unexelf.c:787: warning: too many arguments for format
unexelf.c:787: warning: too many arguments for format
unexelf.c:805: warning: too many arguments for format
unexelf.c:805: warning: too many arguments for format
unexelf.c:807: error: expected expression before ')' token
unexelf.c:808: error: expected expression before ')' token
unexelf.c:809: error: expected expression before ')' token
unexelf.c:845: error: expected ';' before 'alignment'
unexelf.c:846: error: expected expression before ')' token
unexelf.c:846: error: 'alignment' undeclared (first use in this function)
unexelf.c:847: error: expected expression before ')' token
unexelf.c:856: error: expected expression before ')' token
unexelf.c:856: error: expected expression before ')' token
unexelf.c:859: warning: implicit declaration of function 'round_up'
unexelf.c:860: warning: too many arguments for format
unexelf.c:860: warning: too many arguments for format
unexelf.c:862: error: expected expression before ')' token
unexelf.c:862: error: 'PT_LOAD' undeclared (first use in this function)
unexelf.c:863: error: expected expression before ')' token
unexelf.c:864: error: expected expression before ')' token
unexelf.c:870: warning: too many arguments for format
unexelf.c:870: warning: too many arguments for format
unexelf.c:874: error: expected expression before ')' token
unexelf.c:874: error: expected expression before ')' token
unexelf.c:875: error: expected expression before ')' token
unexelf.c:875: error: expected expression before ')' token
unexelf.c:896: error: expected expression before ')' token
unexelf.c:900: warning: too many arguments for format
unexelf.c:900: warning: too many arguments for format
unexelf.c:913: error: expected expression before ')' token
unexelf.c:913: error: expected expression before ')' token
unexelf.c:913: error: expected expression before ')' token
unexelf.c:913: error: expected expression before ')' token
unexelf.c:913: error: expected expression before ')' token
unexelf.c:913: error: expected expression before ')' token
unexelf.c:916: error: expected expression before ')' token
unexelf.c:917: error: expected expression before ')' token
unexelf.c:918: error: expected expression before ')' token
unexelf.c:922: error: expected expression before ')' token
unexelf.c:922: error: expected expression before ')' token
unexelf.c:925: error: expected expression before ')' token
unexelf.c:925: error: expected expression before ')' token
unexelf.c:925: error: expected expression before ')' token
unexelf.c:925: error: expected expression before ')' token
unexelf.c:925: error: expected expression before ')' token
unexelf.c:925: error: expected expression before ')' token
unexelf.c:931: error: expected expression before ')' token
unexelf.c:931: error: expected expression before ')' token
unexelf.c:931: error: expected expression before ')' token
unexelf.c:931: error: expected expression before ')' token
unexelf.c:931: error: expected expression before ')' token
unexelf.c:931: error: expected expression before ')' token
unexelf.c:941: error: expected expression before ')' token
unexelf.c:942: error: expected expression before ')' token
unexelf.c:943: error: expected expression before ')' token
unexelf.c:944: error: expected expression before ')' token
unexelf.c:948: error: expected expression before ')' token
unexelf.c:948: error: expected expression before ')' token
unexelf.c:949: error: expected expression before ')' token
unexelf.c:973: error: expected expression before ')' token
unexelf.c:973: error: expected expression before ')' token
unexelf.c:975: error: expected expression before ')' token
unexelf.c:980: error: expected expression before ')' token
unexelf.c:981: error: expected expression before ')' token
unexelf.c:988: error: expected expression before ')' token
unexelf.c:988: error: expected expression before ')' token
unexelf.c:991: error: expected expression before ')' token
unexelf.c:991: error: 'SHT_SYMTAB' undeclared (first use in this function)
unexelf.c:992: error: expected expression before ')' token
unexelf.c:992: error: 'SHT_DYNSYM' undeclared (first use in this function)
unexelf.c:993: error: expected expression before ')' token
unexelf.c:993: error: expected expression before ')' token
unexelf.c:996: error: expected expression before ')' token
unexelf.c:998: error: expected expression before ')' token
unexelf.c:999: error: expected expression before ')' token
unexelf.c:1000: error: expected expression before ')' token
unexelf.c:1001: error: expected expression before ')' token
unexelf.c:1005: error: expected expression before ')' token
unexelf.c:1005: error: 'SHT_NULL' undeclared (first use in this function)
unexelf.c:1006: error: expected expression before ')' token
unexelf.c:1006: error: 'SHT_NOBITS' undeclared (first use in this function)
unexelf.c:1012: error: expected expression before ')' token
unexelf.c:1013: error: expected expression before ')' token
unexelf.c:1015: error: expected expression before ')' token
unexelf.c:1017: error: expected expression before ')' token
unexelf.c:1043: error: expected expression before ')' token
unexelf.c:1045: error: expected expression before ')' token
unexelf.c:1047: error: expected expression before ')' token
unexelf.c:1049: error: expected expression before ')' token
unexelf.c:1051: error: expected expression before ')' token
unexelf.c:1053: error: expected expression before ')' token
unexelf.c:1053: error: expected expression before ')' token
unexelf.c:1053: error: expected expression before ')' token
unexelf.c:1053: error: expected expression before ')' token
unexelf.c:1053: error: expected expression before ')' token
unexelf.c:1053: error: expected expression before ')' token
unexelf.c:1158: error: expected expression before ')' token
unexelf.c:1159: error: expected expression before ')' token
unexelf.c:1161: error: 'spt' undeclared (first use in this function)
unexelf.c:1161: error: expected expression before ')' token
unexelf.c:1163: error: 'Elf32_Sym' undeclared (first use in this function)
unexelf.c:1163: error: 'sym' undeclared (first use in this function)
unexelf.c:1163: error: expected expression before ')' token
unexelf.c:1167: error: 'SHN_UNDEF' undeclared (first use in this function)
unexelf.c:1168: error: 'SHN_ABS' undeclared (first use in this function)
unexelf.c:1169: error: 'SHN_COMMON' undeclared (first use in this function)
unexelf.c:1181: error: 'symp' undeclared (first use in this function)
unexelf.c:1181: error: 'symendp' undeclared (first use in this function)
unexelf.c:1181: warning: left-hand operand of comma expression has no effect
unexelf.c:1183: error: expected expression before ')' token
unexelf.c:1184: error: expected expression before ')' token
unexelf.c:1188: error: expected expression before ')' token
unexelf.c:1189: error: expected expression before ')' token
unexelf.c:1190: error: expected expression before ')' token
unexelf.c:1204: error: expected ';' before 'section'
unexelf.c:1210: error: 'section' undeclared (first use in this function)
unexelf.c:1214: error: 'SHT_REL' undeclared (first use in this function)
unexelf.c:1215: error: 'SHT_RELA' undeclared (first use in this function)
unexelf.c:1220: error: expected expression before ')' token
unexelf.c:1221: error: expected expression before ')' token
unexelf.c:1223: error: expected expression before ')' token
unexelf.c:1225: error: expected expression before ')' token
unexelf.c:1231: error: expected expression before ')' token
unexelf.c:1233: error: expected expression before ')' token
unexelf.c:1236: error: expected ';' before 'offset'
unexelf.c:1242: error: expected ';' before 'addr'
unexelf.c:1250: error: 'addr' undeclared (first use in this function)
x.c: In function 'make_xcolormap':
x.c:361: warning: passing argument 4 of 'XSaveContext' makes pointer from integer without a cast
x.c: In function 'CCC2SCM':
x.c:609: warning: passing argument 4 of 'XSaveContext' makes pointer from integer without a cast
x.c: In function 'x_alloc_color_cells':
x.c:1317: warning: pointer targets in passing argument 4 of 'XAllocColorPlanes' differ in signedness
x.c:1328: warning: pointer targets in passing argument 4 of 'XAllocColorCells' differ in signedness
x.c:1328: warning: pointer targets in passing argument 6 of 'XAllocColorCells' differ in signedness
x.c: In function 'x_free_color_cells':
x.c:1347: warning: pointer targets in passing argument 3 of 'XFreeColors' differ in signedness
x.c: In function 'x_propdata2scm':
x.c:1958: warning: pointer targets in passing argument 1 of 'makfrom0str' differ in signedness
x.c: In function 'x_draw_string':
x.c:2094: warning: passing argument 4 of 'xldraw_string' from incompatible pointer type
x.c: In function 'x_image_string':
x.c:2100: warning: passing argument 4 of 'xldraw_string' from incompatible pointer type
mv: rename scm to scm~: No such file or directory
i686-apple-darwin11-llvm-gcc-4.2: unexelf.o: No such file or directory
*** Error code 1
Stop.
bmake: stopped in /Users/kristerw/pbulk/pkgsrc/lang/scm
*** Error code 1
Stop.
bmake: stopped in /Users/kristerw/pbulk/pkgsrc/lang/scm