source: project/chicken/branches/release/tests/r4rstest.out @ 7276

Last change on this file since 7276 was 7276, checked in by felix winkelmann, 12 years ago

merged trunk

File size: 35.7 KB
Line 
1SECTION(2 1)
2SECTION(3 4)
3 #<procedure (boolean? x75)>
4    #<procedure (char? x648)>
5       #<procedure (null? x119)>
6          #<procedure (##sys#number? x409)>
7             #<procedure (pair? x82)>
8                #<procedure (procedure? x727)>
9                   #<procedure (string? x158)>
10                      #<procedure (symbol? x504)>
11                         #<procedure (vector? x577)>
12(#t #f #f #f #f #f #f #f #f)#t
13(#t #f #f #f #f #f #f #f #f)#f
14(#f #t #f #f #f #f #f #f #f)#\a
15(#f #f #t #f #f #f #f #f #f)()
16(#f #f #f #t #f #f #f #f #f)9739
17(#f #f #f #f #t #f #f #f #f)(test)
18(#f #f #f #f #f #t #f #f #f)#<procedure (record-error e)>
19(#f #f #f #f #f #f #t #f #f)"test"
20(#f #f #f #f #f #f #t #f #f)""
21(#f #f #f #f #f #f #f #t #f)test
22(#f #f #f #f #f #f #f #f #t)#()
23(#f #f #f #f #f #f #f #f #t)#(a b c)
24SECTION(4 1 2)
25(quote (quote a))  ==> (quote a)
26(quote (quote a))  ==> (quote a)
27SECTION(4 1 3)
28(#<procedure C_times> 3 4)  ==> 12
29SECTION(4 1 4)
30(#<procedure (? x)> 4)  ==> 8
31(#<procedure (reverse-subtract x y)> 7 10)  ==> 3
32(#<procedure (? y)> 6)  ==> 10
33(#<procedure (? . x)> 3 4 5 6)  ==> (3 4 5 6)
34(#<procedure (? x y . z)> 3 4 5 6)  ==> (5 6)
35SECTION(4 1 5)
36(if yes)  ==> yes
37(if no)  ==> no
38(if 1)  ==> 1
39SECTION(4 1 6)
40(define 3)  ==> 3
41(set! 5)  ==> 5
42SECTION(4 2 1)
43(cond greater)  ==> greater
44(cond equal)  ==> equal
45(cond 2)  ==> 2
46(case composite)  ==> composite
47(case consonant)  ==> consonant
48(and #t)  ==> #t
49(and #f)  ==> #f
50(and (f g))  ==> (f g)
51(and #t)  ==> #t
52(or #t)  ==> #t
53(or #t)  ==> #t
54(or #f)  ==> #f
55(or #f)  ==> #f
56(or (b c))  ==> (b c)
57SECTION(4 2 2)
58(let 6)  ==> 6
59(let 35)  ==> 35
60(let* 70)  ==> 70
61(letrec #t)  ==> #t
62(let 5)  ==> 5
63(let 34)  ==> 34
64(let 6)  ==> 6
65(let 34)  ==> 34
66(let* 7)  ==> 7
67(let* 34)  ==> 34
68(let* 8)  ==> 8
69(let* 34)  ==> 34
70(letrec 9)  ==> 9
71(letrec 34)  ==> 34
72(letrec 10)  ==> 10
73(letrec 34)  ==> 34
74SECTION(4 2 3)
75(begin 6)  ==> 6
76SECTION(4 2 4)
77(do #(0 1 2 3 4))  ==> #(0 1 2 3 4)
78(do 25)  ==> 25
79(let 1)  ==> 1
80(let ((6 1 3) (-5 -2)))  ==> ((6 1 3) (-5 -2))
81(let -1)  ==> -1
82SECTION(4 2 6)
83(quasiquote (list 3 4))  ==> (list 3 4)
84(quasiquote (list a (quote a)))  ==> (list a (quote a))
85(quasiquote (a 3 4 5 6 b))  ==> (a 3 4 5 6 b)
86(quasiquote ((foo 7) . cons))  ==> ((foo 7) . cons)
87(quasiquote #(10 5 2 4 3 8))  ==> #(10 5 2 4 3 8)
88(quasiquote 5)  ==> 5
89(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)
90(quasiquote (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e))  ==> (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e)
91(quasiquote (list 3 4))  ==> (list 3 4)
92(quasiquote (quasiquote (list (unquote (+ 1 2)) 4)))  ==> (quasiquote (list (unquote (+ 1 2)) 4))
93SECTION(5 2 1)
94(define 6)  ==> 6
95(define 1)  ==> 1
96(#<procedure (add3 x)> 6)  ==> (3 6)
97(#<procedure (add3 x)> 6)  ==> 9
98SECTION(5 2 2)
99(#<procedure (foo)>)  ==> 5
100(define 34)  ==> 34
101(#<procedure (foo)>)  ==> 5
102(define 34)  ==> 34
103(#<procedure (foo x)> 88)  ==> 88
104(#<procedure (foo x)> 4)  ==> 4
105(define 34)  ==> 34
106(internal-define 99)  ==> 99
107(internal-define 77)  ==> 77
108SECTION(6 1)
109(#<procedure (not x74)> #t)  ==> #f
110(#<procedure (not x74)> 3)  ==> #f
111(#<procedure (not x74)> (3))  ==> #f
112(#<procedure (not x74)> #f)  ==> #t
113(#<procedure (not x74)> ())  ==> #f
114(#<procedure (not x74)> ())  ==> #f
115(#<procedure (not x74)> nil)  ==> #f
116SECTION(6 2)
117(#<procedure (eqv? x78 y79)> a a)  ==> #t
118(#<procedure (eqv? x78 y79)> a b)  ==> #f
119(#<procedure (eqv? x78 y79)> 2 2)  ==> #t
120(#<procedure (eqv? x78 y79)> () ())  ==> #t
121(#<procedure (eqv? x78 y79)> 10000 10000)  ==> #t
122(#<procedure (eqv? x78 y79)> (1 . 2) (1 . 2))  ==> #f
123(#<procedure (eqv? x78 y79)> #<procedure (?)> #<procedure (?)>)  ==> #f
124(#<procedure (eqv? x78 y79)> #f nil)  ==> #f
125(#<procedure (eqv? x78 y79)> #<procedure (p x)> #<procedure (p x)>)  ==> #t
126(#<procedure (eqv? x78 y79)> #<procedure (?)> #<procedure (?)>)  ==> #t
127(#<procedure (eqv? x78 y79)> #<procedure (?)> #<procedure (?)>)  ==> #f
128(#<procedure (eqv? x78 y79)> #<procedure (f)> #<procedure (g)>)  ==> #f
129(#<procedure (eq? x76 y77)> a a)  ==> #t
130(#<procedure (eq? x76 y77)> (a) (a))  ==> #f
131(#<procedure (eq? x76 y77)> () ())  ==> #t
132(#<procedure (eq? x76 y77)> #<procedure (f_3795 x85)> #<procedure (f_3795 x85)>)  ==> #t
133(#<procedure (eq? x76 y77)> (a) (a))  ==> #t
134(#<procedure (eq? x76 y77)> #() #())  ==> #t
135(#<procedure (eq? x76 y77)> #<procedure (x x)> #<procedure (x x)>)  ==> #t
136(#<procedure (equal? x80 y81)> a a)  ==> #t
137(#<procedure (equal? x80 y81)> (a) (a))  ==> #t
138(#<procedure (equal? x80 y81)> (a (b) c) (a (b) c))  ==> #t
139(#<procedure (equal? x80 y81)> "abc" "abc")  ==> #t
140(#<procedure (equal? x80 y81)> 2 2)  ==> #t
141(#<procedure (equal? x80 y81)> #(a a a a a) #(a a a a a))  ==> #t
142SECTION(6 3)
143(dot (a b c d e))  ==> (a b c d e)
144(#<procedure (list? x157)> (a b c))  ==> #t
145(set-cdr! (a . 4))  ==> (a . 4)
146(#<procedure (eqv? x78 y79)> (a . 4) (a . 4))  ==> #t
147(dot (a b c . d))  ==> (a b c . d)
148(#<procedure (list? x157)> (a . 4))  ==> #f
149(list? #f)  ==> #f
150(#<procedure (cons x83 y84)> a ())  ==> (a)
151(#<procedure (cons x83 y84)> (a) (b c d))  ==> ((a) b c d)
152(#<procedure (cons x83 y84)> "a" (b c))  ==> ("a" b c)
153(#<procedure (cons x83 y84)> a 3)  ==> (a . 3)
154(#<procedure (cons x83 y84)> (a b) c)  ==> ((a b) . c)
155(#<procedure (f_3795 x85)> (a b c))  ==> a
156(#<procedure (f_3795 x85)> ((a) b c d))  ==> (a)
157(#<procedure (f_3795 x85)> (1 . 2))  ==> 1
158(#<procedure (f_3798 x86)> ((a) b c d))  ==> (b c d)
159(#<procedure (f_3798 x86)> (1 . 2))  ==> 2
160(#<procedure (list . lst120)> a 7 c)  ==> (a 7 c)
161(#<procedure (list . lst120)>)  ==> ()
162(#<procedure (length lst121)> (a b c))  ==> 3
163(#<procedure (length lst121)> (a (b) (c d e)))  ==> 3
164(#<procedure (length lst121)> ())  ==> 0
165(#<procedure (append . lsts133)> (x) (y))  ==> (x y)
166(#<procedure (append . lsts133)> (a) (b c d))  ==> (a b c d)
167(#<procedure (append . lsts133)> (a (b)) ((c)))  ==> (a (b) (c))
168(#<procedure (append . lsts133)>)  ==> ()
169(#<procedure (append . lsts133)> (a b) (c . d))  ==> (a b c . d)
170(#<procedure (append . lsts133)> () a)  ==> a
171(#<procedure (reverse lst0140)> (a b c))  ==> (c b a)
172(#<procedure (reverse lst0140)> (a (b c) d (e (f))))  ==> ((e (f)) d (b c) a)
173(#<procedure (list-ref lst124 i125)> (a b c d) 2)  ==> c
174(#<procedure (memq x145 lst146)> a (a b c))  ==> (a b c)
175(#<procedure (memq x145 lst146)> b (a b c))  ==> (b c)
176(#<procedure (memq x145 lst146)> a (b c d))  ==> #f
177(#<procedure (memq x145 lst146)> (a) (b (a) c))  ==> #f
178(#<procedure (member x149 lst150)> (a) (b (a) c))  ==> ((a) c)
179(#<procedure (memv x147 lst148)> 101 (100 101 102))  ==> (101 102)
180(#<procedure (assq x151 lst152)> a ((a 1) (b 2) (c 3)))  ==> (a 1)
181(#<procedure (assq x151 lst152)> b ((a 1) (b 2) (c 3)))  ==> (b 2)
182(#<procedure (assq x151 lst152)> d ((a 1) (b 2) (c 3)))  ==> #f
183(#<procedure (assq x151 lst152)> (a) (((a)) ((b)) ((c))))  ==> #f
184(#<procedure (assoc x155 lst156)> (a) (((a)) ((b)) ((c))))  ==> ((a))
185(#<procedure (assv x153 lst154)> 5 ((2 3) (5 7) (11 13)))  ==> (5 7)
186SECTION(6 4)
187(#<procedure (symbol? x504)> a)  ==> #t
188(standard-case #t)  ==> #t
189(standard-case #t)  ==> #t
190(#<procedure (symbol->string s531)> flying-fish)  ==> "flying-fish"
191(#<procedure (symbol->string s531)> martin)  ==> "martin"
192(#<procedure (symbol->string s531)> Malvina)  ==> "Malvina"
193(standard-case #t)  ==> #t
194(string-set! "cb")  ==> "cb"
195(#<procedure (symbol->string s531)> ab)  ==> "ab"
196(#<procedure (string->symbol str534)> "ab")  ==> ab
197(#<procedure (eq? x76 y77)> mississippi mississippi)  ==> #t
198(string->symbol #f)  ==> #f
199(#<procedure (string->symbol str534)> "jollywog")  ==> jollywog
200SECTION(6 5 5)
201(#<procedure (##sys#number? x409)> 3)  ==> #t
202(#<procedure (##sys#number? x409)> 3)  ==> #t
203(#<procedure (##sys#number? x409)> 3)  ==> #t
204(#<procedure (##sys#number? x409)> 3)  ==> #t
205(#<procedure (##sys#integer? x410)> 3)  ==> #t
206(#<procedure (##sys#exact? x411)> 3)  ==> #t
207(#<procedure (##sys#inexact? x412)> 3)  ==> #f
208(#<procedure C_nequalp> 22 22 22)  ==> #t
209(#<procedure C_nequalp> 22 22)  ==> #t
210(#<procedure C_nequalp> 34 34 35)  ==> #f
211(#<procedure C_nequalp> 34 35)  ==> #f
212(#<procedure C_greaterp> 3 -6246)  ==> #t
213(#<procedure C_greaterp> 9 9 -2424)  ==> #f
214(#<procedure C_greater_or_equal_p> 3 -4 -6246)  ==> #t
215(#<procedure C_greater_or_equal_p> 9 9)  ==> #t
216(#<procedure C_greater_or_equal_p> 8 9)  ==> #f
217(#<procedure C_lessp> -1 2 3 4 5 6 7 8)  ==> #t
218(#<procedure C_lessp> -1 2 3 4 4 5 6 7)  ==> #f
219(#<procedure C_less_or_equal_p> -1 2 3 4 5 6 7 8)  ==> #t
220(#<procedure C_less_or_equal_p> -1 2 3 4 4 5 6 7)  ==> #t
221(#<procedure C_lessp> 1 3 2)  ==> #f
222(#<procedure C_greater_or_equal_p> 1 3 2)  ==> #f
223(#<procedure (zero? n417)> 0)  ==> #t
224(#<procedure (zero? n417)> 1)  ==> #f
225(#<procedure (zero? n417)> -1)  ==> #f
226(#<procedure (zero? n417)> -100)  ==> #f
227(#<procedure (positive? n418)> 4)  ==> #t
228(#<procedure (positive? n418)> -4)  ==> #f
229(#<procedure (positive? n418)> 0)  ==> #f
230(#<procedure (negative? n419)> 4)  ==> #f
231(#<procedure (negative? n419)> -4)  ==> #t
232(#<procedure (negative? n419)> 0)  ==> #f
233(#<procedure (odd? n446)> 3)  ==> #t
234(#<procedure (odd? n446)> 2)  ==> #f
235(#<procedure (odd? n446)> -4)  ==> #f
236(#<procedure (odd? n446)> -1)  ==> #t
237(#<procedure (even? n445)> 3)  ==> #f
238(#<procedure (even? n445)> 2)  ==> #t
239(#<procedure (even? n445)> -4)  ==> #t
240(#<procedure (even? n445)> -1)  ==> #f
241(#<procedure (max n1458 . ns459)> 34 5 7 38 6)  ==> 38
242(#<procedure (min n1460 . ns461)> 3 5 5 330 4 -24)  ==> -24
243(#<procedure C_plus> 3 4)  ==> 7
244(#<procedure C_plus> 3)  ==> 3
245(#<procedure C_plus>)  ==> 0
246(#<procedure C_times> 4)  ==> 4
247(#<procedure C_times>)  ==> 1
248(#<procedure C_minus> 3 4)  ==> -1
249(#<procedure C_minus> 3)  ==> -3
250(#<procedure (abs n420)> -7)  ==> 7
251(#<procedure (abs n420)> 7)  ==> 7
252(#<procedure (abs n420)> 0)  ==> 0
253(#<procedure C_quotient> 35 7)  ==> 5
254(#<procedure C_quotient> -35 7)  ==> -5
255(#<procedure C_quotient> 35 -7)  ==> -5
256(#<procedure C_quotient> -35 -7)  ==> 5
257(#<procedure (modulo x440 y441)> 13 4)  ==> 1
258(#<procedure (remainder x437 y438)> 13 4)  ==> 1
259(#<procedure (modulo x440 y441)> -13 4)  ==> 3
260(#<procedure (remainder x437 y438)> -13 4)  ==> -1
261(#<procedure (modulo x440 y441)> 13 -4)  ==> -3
262(#<procedure (remainder x437 y438)> 13 -4)  ==> 1
263(#<procedure (modulo x440 y441)> -13 -4)  ==> -1
264(#<procedure (remainder x437 y438)> -13 -4)  ==> -1
265(#<procedure (modulo x440 y441)> 0 86400)  ==> 0
266(#<procedure (modulo x440 y441)> 0 -86400)  ==> 0
267(#<procedure (divtest n1 n2)> 238 9)  ==> #t
268(#<procedure (divtest n1 n2)> -238 9)  ==> #t
269(#<procedure (divtest n1 n2)> 238 -9)  ==> #t
270(#<procedure (divtest n1 n2)> -238 -9)  ==> #t
271(#<procedure (gcd . ns482)> 0 4)  ==> 4
272(#<procedure (gcd . ns482)> -4 0)  ==> 4
273(#<procedure (gcd . ns482)> 32 -36)  ==> 4
274(#<procedure (gcd . ns482)>)  ==> 0
275(#<procedure (lcm . ns494)> 32 -36)  ==> 288
276(#<procedure (lcm . ns494)>)  ==> 1
277SECTION(6 5 5)
278(#<procedure (test-string->number str)> "+#.#")  ==> #t
279(#<procedure (test-string->number str)> "-#.#")  ==> #t
280(#<procedure (test-string->number str)> "#.#")  ==> #t
281(#<procedure (test-string->number str)> "1/0")  ==> #t
282(#<procedure (test-string->number str)> "-1/0")  ==> #t
283(#<procedure (test-string->number str)> "0/0")  ==> #t
284(#<procedure (test-string->number str)> "+1/0i")  ==> #t
285(#<procedure (test-string->number str)> "-1/0i")  ==> #t
286(#<procedure (test-string->number str)> "0/0i")  ==> #t
287(#<procedure (test-string->number str)> "0/0-0/0i")  ==> #t
288(#<procedure (test-string->number str)> "1/0-1/0i")  ==> #t
289(#<procedure (test-string->number str)> "-1/0+1/0i")  ==> #t
290(#<procedure (test-string->number str)> "#i")  ==> #t
291(#<procedure (test-string->number str)> "#e")  ==> #t
292(#<procedure (test-string->number str)> "#")  ==> #t
293(#<procedure (test-string->number str)> "#i0/0")  ==> #t
294SECTION(6 5 9)
295(#<procedure C_number_to_string> 0)  ==> "0"
296(#<procedure C_number_to_string> 100)  ==> "100"
297(#<procedure C_number_to_string> 256 16)  ==> "100"
298(#<procedure C_string_to_number> "100")  ==> 100
299(#<procedure C_string_to_number> "100" 16)  ==> 256
300(#<procedure C_string_to_number> "")  ==> #f
301(#<procedure C_string_to_number> ".")  ==> #f
302(#<procedure C_string_to_number> "d")  ==> #f
303(#<procedure C_string_to_number> "D")  ==> #f
304(#<procedure C_string_to_number> "i")  ==> #f
305(#<procedure C_string_to_number> "I")  ==> #f
306(#<procedure C_string_to_number> "3i")  ==> #f
307(#<procedure C_string_to_number> "3I")  ==> #f
308(#<procedure C_string_to_number> "33i")  ==> #f
309(#<procedure C_string_to_number> "33I")  ==> #f
310(#<procedure C_string_to_number> "3.3i")  ==> #f
311(#<procedure C_string_to_number> "3.3I")  ==> #f
312(#<procedure C_string_to_number> "-")  ==> #f
313(#<procedure C_string_to_number> "+")  ==> #f
314(string->number #t)  ==> #t
315(string->number #t)  ==> #t
316SECTION(6 6)
317(#<procedure (char? x648)> #\a)  ==> #t
318(#<procedure (char? x648)> #\()  ==> #t
319(#<procedure (char? x648)> #\space)  ==> #t
320(#<procedure (char? x648)> #\newline)  ==> #t
321(#<procedure (char=? c1653 c2654)> #\A #\B)  ==> #f
322(#<procedure (char=? c1653 c2654)> #\a #\b)  ==> #f
323(#<procedure (char=? c1653 c2654)> #\9 #\0)  ==> #f
324(#<procedure (char=? c1653 c2654)> #\A #\A)  ==> #t
325(#<procedure (char<? c1661 c2662)> #\A #\B)  ==> #t
326(#<procedure (char<? c1661 c2662)> #\a #\b)  ==> #t
327(#<procedure (char<? c1661 c2662)> #\9 #\0)  ==> #f
328(#<procedure (char<? c1661 c2662)> #\A #\A)  ==> #f
329(#<procedure (char>? c1657 c2658)> #\A #\B)  ==> #f
330(#<procedure (char>? c1657 c2658)> #\a #\b)  ==> #f
331(#<procedure (char>? c1657 c2658)> #\9 #\0)  ==> #t
332(#<procedure (char>? c1657 c2658)> #\A #\A)  ==> #f
333(#<procedure (char<=? c1669 c2670)> #\A #\B)  ==> #t
334(#<procedure (char<=? c1669 c2670)> #\a #\b)  ==> #t
335(#<procedure (char<=? c1669 c2670)> #\9 #\0)  ==> #f
336(#<procedure (char<=? c1669 c2670)> #\A #\A)  ==> #t
337(#<procedure (char>=? c1665 c2666)> #\A #\B)  ==> #f
338(#<procedure (char>=? c1665 c2666)> #\a #\b)  ==> #f
339(#<procedure (char>=? c1665 c2666)> #\9 #\0)  ==> #t
340(#<procedure (char>=? c1665 c2666)> #\A #\A)  ==> #t
341(#<procedure (char-ci=? x678 y679)> #\A #\B)  ==> #f
342(#<procedure (char-ci=? x678 y679)> #\a #\B)  ==> #f
343(#<procedure (char-ci=? x678 y679)> #\A #\b)  ==> #f
344(#<procedure (char-ci=? x678 y679)> #\a #\b)  ==> #f
345(#<procedure (char-ci=? x678 y679)> #\9 #\0)  ==> #f
346(#<procedure (char-ci=? x678 y679)> #\A #\A)  ==> #t
347(#<procedure (char-ci=? x678 y679)> #\A #\a)  ==> #t
348(#<procedure (char-ci<? x682 y683)> #\A #\B)  ==> #t
349(#<procedure (char-ci<? x682 y683)> #\a #\B)  ==> #t
350(#<procedure (char-ci<? x682 y683)> #\A #\b)  ==> #t
351(#<procedure (char-ci<? x682 y683)> #\a #\b)  ==> #t
352(#<procedure (char-ci<? x682 y683)> #\9 #\0)  ==> #f
353(#<procedure (char-ci<? x682 y683)> #\A #\A)  ==> #f
354(#<procedure (char-ci<? x682 y683)> #\A #\a)  ==> #f
355(#<procedure (char-ci>? x680 y681)> #\A #\B)  ==> #f
356(#<procedure (char-ci>? x680 y681)> #\a #\B)  ==> #f
357(#<procedure (char-ci>? x680 y681)> #\A #\b)  ==> #f
358(#<procedure (char-ci>? x680 y681)> #\a #\b)  ==> #f
359(#<procedure (char-ci>? x680 y681)> #\9 #\0)  ==> #t
360(#<procedure (char-ci>? x680 y681)> #\A #\A)  ==> #f
361(#<procedure (char-ci>? x680 y681)> #\A #\a)  ==> #f
362(#<procedure (char-ci<=? x686 y687)> #\A #\B)  ==> #t
363(#<procedure (char-ci<=? x686 y687)> #\a #\B)  ==> #t
364(#<procedure (char-ci<=? x686 y687)> #\A #\b)  ==> #t
365(#<procedure (char-ci<=? x686 y687)> #\a #\b)  ==> #t
366(#<procedure (char-ci<=? x686 y687)> #\9 #\0)  ==> #f
367(#<procedure (char-ci<=? x686 y687)> #\A #\A)  ==> #t
368(#<procedure (char-ci<=? x686 y687)> #\A #\a)  ==> #t
369(#<procedure (char-ci>=? x684 y685)> #\A #\B)  ==> #f
370(#<procedure (char-ci>=? x684 y685)> #\a #\B)  ==> #f
371(#<procedure (char-ci>=? x684 y685)> #\A #\b)  ==> #f
372(#<procedure (char-ci>=? x684 y685)> #\a #\b)  ==> #f
373(#<procedure (char-ci>=? x684 y685)> #\9 #\0)  ==> #t
374(#<procedure (char-ci>=? x684 y685)> #\A #\A)  ==> #t
375(#<procedure (char-ci>=? x684 y685)> #\A #\a)  ==> #t
376(#<procedure (char-alphabetic? c700)> #\a)  ==> #t
377(#<procedure (char-alphabetic? c700)> #\A)  ==> #t
378(#<procedure (char-alphabetic? c700)> #\z)  ==> #t
379(#<procedure (char-alphabetic? c700)> #\Z)  ==> #t
380(#<procedure (char-alphabetic? c700)> #\0)  ==> #f
381(#<procedure (char-alphabetic? c700)> #\9)  ==> #f
382(#<procedure (char-alphabetic? c700)> #\space)  ==> #f
383(#<procedure (char-alphabetic? c700)> #\;)  ==> #f
384(#<procedure (char-numeric? c696)> #\a)  ==> #f
385(#<procedure (char-numeric? c696)> #\A)  ==> #f
386(#<procedure (char-numeric? c696)> #\z)  ==> #f
387(#<procedure (char-numeric? c696)> #\Z)  ==> #f
388(#<procedure (char-numeric? c696)> #\0)  ==> #t
389(#<procedure (char-numeric? c696)> #\9)  ==> #t
390(#<procedure (char-numeric? c696)> #\space)  ==> #f
391(#<procedure (char-numeric? c696)> #\;)  ==> #f
392(#<procedure (char-whitespace? c698)> #\a)  ==> #f
393(#<procedure (char-whitespace? c698)> #\A)  ==> #f
394(#<procedure (char-whitespace? c698)> #\z)  ==> #f
395(#<procedure (char-whitespace? c698)> #\Z)  ==> #f
396(#<procedure (char-whitespace? c698)> #\0)  ==> #f
397(#<procedure (char-whitespace? c698)> #\9)  ==> #f
398(#<procedure (char-whitespace? c698)> #\space)  ==> #t
399(#<procedure (char-whitespace? c698)> #\;)  ==> #f
400(#<procedure (char-upper-case? c692)> #\0)  ==> #f
401(#<procedure (char-upper-case? c692)> #\9)  ==> #f
402(#<procedure (char-upper-case? c692)> #\space)  ==> #f
403(#<procedure (char-upper-case? c692)> #\;)  ==> #f
404(#<procedure (char-lower-case? c694)> #\0)  ==> #f
405(#<procedure (char-lower-case? c694)> #\9)  ==> #f
406(#<procedure (char-lower-case? c694)> #\space)  ==> #f
407(#<procedure (char-lower-case? c694)> #\;)  ==> #f
408(#<procedure (integer->char n651)> 46)  ==> #\.
409(#<procedure (integer->char n651)> 65)  ==> #\A
410(#<procedure (integer->char n651)> 97)  ==> #\a
411(#<procedure (char-upcase c673)> #\A)  ==> #\A
412(#<procedure (char-upcase c673)> #\a)  ==> #\A
413(#<procedure (char-downcase c675)> #\A)  ==> #\a
414(#<procedure (char-downcase c675)> #\a)  ==> #\a
415SECTION(6 7)
416(#<procedure (string? x158)> "The word \"recursion\\\" has many meanings.")  ==> #t
417(string-set! "?**")  ==> "?**"
418(#<procedure (string . chars333)> #\a #\b #\c)  ==> "abc"
419(#<procedure (string . chars333)>)  ==> ""
420(#<procedure (string-length s159)> "abc")  ==> 3
421(#<procedure (f_4303 s160 i161)> "abc" 0)  ==> #\a
422(#<procedure (f_4303 s160 i161)> "abc" 2)  ==> #\c
423(#<procedure (string-length s159)> "")  ==> 0
424(#<procedure (substring s222 start223 . end224)> "ab" 0 0)  ==> ""
425(#<procedure (substring s222 start223 . end224)> "ab" 1 1)  ==> ""
426(#<procedure (substring s222 start223 . end224)> "ab" 2 2)  ==> ""
427(#<procedure (substring s222 start223 . end224)> "ab" 0 1)  ==> "a"
428(#<procedure (substring s222 start223 . end224)> "ab" 1 2)  ==> "b"
429(#<procedure (substring s222 start223 . end224)> "ab" 0 2)  ==> "ab"
430(#<procedure (string-append . all321)> "foo" "bar")  ==> "foobar"
431(#<procedure (string-append . all321)> "foo")  ==> "foo"
432(#<procedure (string-append . all321)> "foo" "")  ==> "foo"
433(#<procedure (string-append . all321)> "" "foo")  ==> "foo"
434(#<procedure (string-append . all321)>)  ==> ""
435(#<procedure (make-string size176 . fill177)> 0)  ==> ""
436(#<procedure (string=? x236 y237)> "" "")  ==> #t
437(#<procedure (string<? s1249 s2250)> "" "")  ==> #f
438(#<procedure (string>? s1256 s2257)> "" "")  ==> #f
439(#<procedure (string<=? s1263 s2264)> "" "")  ==> #t
440(#<procedure (string>=? s1268 s2269)> "" "")  ==> #t
441(#<procedure (string-ci=? x238 y239)> "" "")  ==> #t
442(#<procedure (string-ci<? s1286 s2287)> "" "")  ==> #f
443(#<procedure (string-ci>? s1293 s2294)> "" "")  ==> #f
444(#<procedure (string-ci<=? s1300 s2301)> "" "")  ==> #t
445(#<procedure (string-ci>=? s1305 s2306)> "" "")  ==> #t
446(#<procedure (string=? x236 y237)> "A" "B")  ==> #f
447(#<procedure (string=? x236 y237)> "a" "b")  ==> #f
448(#<procedure (string=? x236 y237)> "9" "0")  ==> #f
449(#<procedure (string=? x236 y237)> "A" "A")  ==> #t
450(#<procedure (string<? s1249 s2250)> "A" "B")  ==> #t
451(#<procedure (string<? s1249 s2250)> "a" "b")  ==> #t
452(#<procedure (string<? s1249 s2250)> "9" "0")  ==> #f
453(#<procedure (string<? s1249 s2250)> "A" "A")  ==> #f
454(#<procedure (string>? s1256 s2257)> "A" "B")  ==> #f
455(#<procedure (string>? s1256 s2257)> "a" "b")  ==> #f
456(#<procedure (string>? s1256 s2257)> "9" "0")  ==> #t
457(#<procedure (string>? s1256 s2257)> "A" "A")  ==> #f
458(#<procedure (string<=? s1263 s2264)> "A" "B")  ==> #t
459(#<procedure (string<=? s1263 s2264)> "a" "b")  ==> #t
460(#<procedure (string<=? s1263 s2264)> "9" "0")  ==> #f
461(#<procedure (string<=? s1263 s2264)> "A" "A")  ==> #t
462(#<procedure (string>=? s1268 s2269)> "A" "B")  ==> #f
463(#<procedure (string>=? s1268 s2269)> "a" "b")  ==> #f
464(#<procedure (string>=? s1268 s2269)> "9" "0")  ==> #t
465(#<procedure (string>=? s1268 s2269)> "A" "A")  ==> #t
466(#<procedure (string-ci=? x238 y239)> "A" "B")  ==> #f
467(#<procedure (string-ci=? x238 y239)> "a" "B")  ==> #f
468(#<procedure (string-ci=? x238 y239)> "A" "b")  ==> #f
469(#<procedure (string-ci=? x238 y239)> "a" "b")  ==> #f
470(#<procedure (string-ci=? x238 y239)> "9" "0")  ==> #f
471(#<procedure (string-ci=? x238 y239)> "A" "A")  ==> #t
472(#<procedure (string-ci=? x238 y239)> "A" "a")  ==> #t
473(#<procedure (string-ci<? s1286 s2287)> "A" "B")  ==> #t
474(#<procedure (string-ci<? s1286 s2287)> "a" "B")  ==> #t
475(#<procedure (string-ci<? s1286 s2287)> "A" "b")  ==> #t
476(#<procedure (string-ci<? s1286 s2287)> "a" "b")  ==> #t
477(#<procedure (string-ci<? s1286 s2287)> "9" "0")  ==> #f
478(#<procedure (string-ci<? s1286 s2287)> "A" "A")  ==> #f
479(#<procedure (string-ci<? s1286 s2287)> "A" "a")  ==> #f
480(#<procedure (string-ci>? s1293 s2294)> "A" "B")  ==> #f
481(#<procedure (string-ci>? s1293 s2294)> "a" "B")  ==> #f
482(#<procedure (string-ci>? s1293 s2294)> "A" "b")  ==> #f
483(#<procedure (string-ci>? s1293 s2294)> "a" "b")  ==> #f
484(#<procedure (string-ci>? s1293 s2294)> "9" "0")  ==> #t
485(#<procedure (string-ci>? s1293 s2294)> "A" "A")  ==> #f
486(#<procedure (string-ci>? s1293 s2294)> "A" "a")  ==> #f
487(#<procedure (string-ci<=? s1300 s2301)> "A" "B")  ==> #t
488(#<procedure (string-ci<=? s1300 s2301)> "a" "B")  ==> #t
489(#<procedure (string-ci<=? s1300 s2301)> "A" "b")  ==> #t
490(#<procedure (string-ci<=? s1300 s2301)> "a" "b")  ==> #t
491(#<procedure (string-ci<=? s1300 s2301)> "9" "0")  ==> #f
492(#<procedure (string-ci<=? s1300 s2301)> "A" "A")  ==> #t
493(#<procedure (string-ci<=? s1300 s2301)> "A" "a")  ==> #t
494(#<procedure (string-ci>=? s1305 s2306)> "A" "B")  ==> #f
495(#<procedure (string-ci>=? s1305 s2306)> "a" "B")  ==> #f
496(#<procedure (string-ci>=? s1305 s2306)> "A" "b")  ==> #f
497(#<procedure (string-ci>=? s1305 s2306)> "a" "b")  ==> #f
498(#<procedure (string-ci>=? s1305 s2306)> "9" "0")  ==> #t
499(#<procedure (string-ci>=? s1305 s2306)> "A" "A")  ==> #t
500(#<procedure (string-ci>=? s1305 s2306)> "A" "a")  ==> #t
501SECTION(6 8)
502(#<procedure (vector? x577)> #(0 (2 2 2 2) "Anna"))  ==> #t
503(#<procedure (vector . xs602)> a b c)  ==> #(a b c)
504(#<procedure (vector . xs602)>)  ==> #()
505(#<procedure (vector-length v578)> #(0 (2 2 2 2) "Anna"))  ==> 3
506(#<procedure (vector-length v578)> #())  ==> 0
507(#<procedure (f_6057 v579 i580)> #(1 1 2 3 5 8 13 21) 5)  ==> 8
508(vector-set #(0 ("Sue" "Sue") "Anna"))  ==> #(0 ("Sue" "Sue") "Anna")
509(#<procedure (##sys#make-vector size584 . fill585)> 2 hi)  ==> #(hi hi)
510(#<procedure (##sys#make-vector size584 . fill585)> 0)  ==> #()
511(#<procedure (##sys#make-vector size584 . fill585)> 0 a)  ==> #()
512SECTION(6 9)
513(#<procedure (procedure? x727)> #<procedure (f_3795 x85)>)  ==> #t
514(#<procedure (procedure? x727)> #<procedure (? x)>)  ==> #t
515(#<procedure (procedure? x727)> (lambda (x) (* x x)))  ==> #f
516(#<procedure (call-with-current-continuation proc786)> #<procedure (procedure? x727)>)  ==> #t
517(#<procedure C_apply> #<procedure C_plus> (3 4))  ==> 7
518(#<procedure C_apply> #<procedure (? a b)> (3 4))  ==> 7
519(#<procedure C_apply> #<procedure C_plus> 10 (3 4))  ==> 17
520(#<procedure C_apply> #<procedure (list . lst120)> ())  ==> ()
521(#<procedure (? . args)> 12 75)  ==> 30
522(#<procedure (map fn767 lst1768 . lsts769)> #<procedure (f_3807 x91)> ((a b) (d e) (g h)))  ==> (b e h)
523(#<procedure (map fn767 lst1768 . lsts769)> #<procedure C_plus> (1 2 3) (4 5 6))  ==> (5 7 9)
524(#<procedure (map fn767 lst1768 . lsts769)> #<procedure C_plus> (1 2 3))  ==> (1 2 3)
525(#<procedure (map fn767 lst1768 . lsts769)> #<procedure C_times> (1 2 3))  ==> (1 2 3)
526(#<procedure (map fn767 lst1768 . lsts769)> #<procedure C_minus> (1 2 3))  ==> (-1 -2 -3)
527(for-each #(0 1 4 9 16))  ==> #(0 1 4 9 16)
528(#<procedure (call-with-current-continuation proc786)> #<procedure (? exit)>)  ==> -3
529(#<procedure (list-length obj)> (1 2 3 4))  ==> 4
530(#<procedure (list-length obj)> (a b . c))  ==> #f
531(#<procedure (map fn767 lst1768 . lsts769)> #<procedure (f_3807 x91)> ())  ==> ()
532SECTION(6 10 1)
533(#<procedure (input-port? x814)> #<input port "(stdin)">)  ==> #t
534(#<procedure (output-port? x815)> #<output port "(stdout)">)  ==> #t
535(#<procedure (call-with-input-file name938 p939 . mode940)> "r4rstest.scm" #<procedure (input-port? x814)>)  ==> #t
536(#<procedure (input-port? x814)> #<input port "r4rstest.scm">)  ==> #t
537SECTION(6 10 2)
538(#<procedure (peek-char . g10501051)> #<input port "r4rstest.scm">)  ==> #\;
539(#<procedure (read-char . g10371038)> #<input port "r4rstest.scm">)  ==> #\;
540(#<procedure (read . g10601061)> #<input port "r4rstest.scm">)  ==> (define cur-section (quote ()))
541(#<procedure (peek-char . g10501051)> #<input port "r4rstest.scm">)  ==> #\(
542(#<procedure (read . g10601061)> #<input port "r4rstest.scm">)  ==> (define errs (quote ()))
543SECTION(6 10 3)
544(#<procedure (call-with-output-file name946 p947 . mode948)> "tmp1" #<procedure (? test-file)>)  ==> #t
545(#<procedure (read . g10601061)> #<input port "tmp1">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
546(#<procedure (eof-object? x1029)> #!eof)  ==> #t
547(#<procedure (eof-object? x1029)> #!eof)  ==> #t
548(input-port? #t)  ==> #t
549(#<procedure (read-char . g10371038)> #<input port "tmp1">)  ==> #\;
550(#<procedure (read-char . g10371038)> #<input port "tmp1">)  ==> #\;
551(#<procedure (read-char . g10371038)> #<input port "tmp1">)  ==> #\;
552(#<procedure (read . g10601061)> #<input port "tmp1">)  ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
553(#<procedure (read . g10601061)> #<input port "tmp1">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
554(#<procedure (output-port? x815)> #<output port "tmp2">)  ==> #t
555(#<procedure (read . g10601061)> #<input port "tmp2">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
556(#<procedure (eof-object? x1029)> #!eof)  ==> #t
557(#<procedure (eof-object? x1029)> #!eof)  ==> #t
558(input-port? #t)  ==> #t
559(#<procedure (read-char . g10371038)> #<input port "tmp2">)  ==> #\;
560(#<procedure (read-char . g10371038)> #<input port "tmp2">)  ==> #\;
561(#<procedure (read-char . g10371038)> #<input port "tmp2">)  ==> #\;
562(#<procedure (read . g10601061)> #<input port "tmp2">)  ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
563(#<procedure (read . g10601061)> #<input port "tmp2">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
564
565Passed all tests
566
567;testing inexact numbers;
568SECTION(6 2)
569(#<procedure (eqv? x78 y79)> 1 1.0)  ==> #f
570(#<procedure (eqv? x78 y79)> 0 0.0)  ==> #f
571SECTION(6 5 5)
572(#<procedure (##sys#inexact? x412)> 3.9)  ==> #t
573(max #t)  ==> #t
574(#<procedure (max n1458 . ns459)> 3.9 4)  ==> 4.0
575(#<procedure C_exact_to_inexact> 4)  ==> 4.0
576(#<procedure C_exact_to_inexact> 4.0)  ==> 4.0
577(#<procedure (##sys#inexact->exact n428)> 4)  ==> 4
578(#<procedure (##sys#inexact->exact n428)> 4.0)  ==> 4
579(#<procedure (round x435)> -4.5)  ==> -4.0
580(#<procedure (round x435)> -3.5)  ==> -4.0
581(#<procedure (round x435)> -3.9)  ==> -4.0
582(#<procedure (round x435)> 0.0)  ==> 0.0
583(#<procedure (round x435)> 0.25)  ==> 0.0
584(#<procedure (round x435)> 0.8)  ==> 1.0
585(#<procedure (round x435)> 3.5)  ==> 4.0
586(#<procedure (round x435)> 4.5)  ==> 4.0
587(#<procedure C_expt> 0 0)  ==> 1
588(#<procedure C_expt> 0 1)  ==> 0
589(#<procedure (atan n1472 . n2473)> 1 1)  ==> 0.785398163397448
590(#<procedure (call-with-output-file name946 p947 . mode948)> "tmp3" #<procedure (? test-file)>)  ==> #t
591(#<procedure (read . g10601061)> #<input port "tmp3">)  ==> (define foo (quote (0.25 -3.25)))
592(#<procedure (eof-object? x1029)> #!eof)  ==> #t
593(#<procedure (eof-object? x1029)> #!eof)  ==> #t
594(input-port? #t)  ==> #t
595(#<procedure (read-char . g10371038)> #<input port "tmp3">)  ==> #\;
596(#<procedure (read-char . g10371038)> #<input port "tmp3">)  ==> #\;
597(#<procedure (read-char . g10371038)> #<input port "tmp3">)  ==> #\;
598(#<procedure (read . g10601061)> #<input port "tmp3">)  ==> (0.25 -3.25)
599(#<procedure (read . g10601061)> #<input port "tmp3">)  ==> (define foo (quote (0.25 -3.25)))
600(pentium-fdiv-bug #t)  ==> #t
601
602Passed all tests
603SECTION(6 5 6)
604(float-print-test #t)  ==> #t
605Number readback failure for (+ 1.0 (* -100 2.22044604925031e-16))
6060.999999999999978
607Number readback failure for (+ 10.0 (* -100 1.77635683940025e-15))
6089.99999999999982
609Number readback failure for (+ 100.0 (* -100 1.4210854715202e-14))
61099.9999999999986
611Number readback failure for (+ 1e+20 (* -100 16384.0))
6129.99999999999984e+19
613Number readback failure for (+ 1e+50 (* -100 2.07691874341393e+34))
6149.99999999999979e+49
615Number readback failure for (+ 1e+100 (* -100 1.94266889222573e+84))
6169.99999999999981e+99
617Number readback failure for (+ 0.1 (* -100 1.38777878078145e-17))
6180.0999999999999986
619Number readback failure for (+ 0.01 (* -100 1.73472347597681e-18))
6200.00999999999999983
621Number readback failure for (+ 0.001 (* -100 2.16840434497101e-19))
6220.000999999999999978
623Number readback failure for (+ 1e-20 (* -100 1.50463276905253e-36))
6249.99999999999985e-21
625Number readback failure for (+ 1e-50 (* -100 1.18694596821997e-66))
6269.99999999999988e-51
627Number readback failure for (+ 1e-100 (* -100 1.26897091865782e-116))
6289.99999999999987e-101
629(mult-float-print-test #f)  ==> #f
630 BUT EXPECTED #t
631Number readback failure for (+ 3.0 (* -100 4.44089209850063e-16))
6322.99999999999996
633Number readback failure for (+ 30.0 (* -100 3.5527136788005e-15))
63429.9999999999996
635Number readback failure for (+ 300.0 (* -100 5.6843418860808e-14))
636299.999999999994
637Number readback failure for (+ 3e+20 (* -100 65536.0))
6382.99999999999993e+20
639Number readback failure for (+ 3e+50 (* -100 4.15383748682786e+34))
6402.99999999999996e+50
641Number readback failure for (+ 3e+100 (* -100 3.88533778445146e+84))
6422.99999999999996e+100
643Number readback failure for (+ 0.3 (* -100 5.55111512312578e-17))
6440.299999999999994
645Number readback failure for (+ 0.03 (* -100 3.46944695195361e-18))
6460.0299999999999997
647Number readback failure for (+ 0.003 (* -100 4.33680868994202e-19))
6480.00299999999999996
649Number readback failure for (+ 3e-20 (* -100 6.01853107621011e-36))
6502.99999999999994e-20
651Number readback failure for (+ 3e-50 (* -100 4.7477838728799e-66))
6522.99999999999995e-50
653Number readback failure for (+ 3e-100 (* -100 5.0758836746313e-116))
6542.99999999999995e-100
655(mult-float-print-test #f)  ==> #f
656 BUT EXPECTED #t
657Number readback failure for (+ 7.0 (* -100 8.88178419700125e-16))
6586.99999999999991
659Number readback failure for (+ 70.0 (* -100 1.4210854715202e-14))
66069.9999999999986
661Number readback failure for (+ 700.0 (* -100 1.13686837721616e-13))
662699.999999999989
663Number readback failure for (+ 7e+20 (* -100 131072.0))
6646.99999999999987e+20
665Number readback failure for (+ 7e+50 (* -100 8.30767497365572e+34))
6666.99999999999992e+50
667Number readback failure for (+ 7e+100 (* -100 1.55413511378058e+85))
6686.99999999999984e+100
669Number readback failure for (+ 0.7 (* -99 1.11022302462516e-16))
6700.699999999999989
671Number readback failure for (+ 0.07 (* -100 1.38777878078145e-17))
6720.0699999999999986
673Number readback failure for (+ 0.007 (* -100 8.67361737988404e-19))
6740.00699999999999991
675Number readback failure for (+ 7e-20 (* -99 1.20370621524202e-35))
6766.99999999999988e-20
677Number readback failure for (+ 7e-50 (* -100 9.4955677457598e-66))
6786.9999999999999e-50
679Number readback failure for (+ 7e-100 (* -100 1.01517673492626e-115))
6806.9999999999999e-100
681(mult-float-print-test #f)  ==> #f
682 BUT EXPECTED #t
683Number readback failure for (+ 3.14159265358979 (* -100 4.44089209850063e-16))
6843.14159265358975
685Number readback failure for (+ 31.4159265358979 (* -100 3.5527136788005e-15))
68631.4159265358976
687Number readback failure for (+ 314.159265358979 (* -100 5.6843418860808e-14))
688314.159265358974
689Number readback failure for (+ 3.14159265358979e+20 (* -100 65536.0))
6903.14159265358973e+20
691Number readback failure for (+ 3.14159265358979e+50 (* -100 4.15383748682786e+34))
6923.14159265358975e+50
693Number readback failure for (+ 3.14159265358979e+100 (* -100 3.88533778445146e+84))
6943.14159265358975e+100
695Number readback failure for (+ 0.314159265358979 (* -100 5.55111512312578e-17))
6960.314159265358974
697Number readback failure for (+ 0.0314159265358979 (* -100 6.93889390390723e-18))
6980.0314159265358972
699Number readback failure for (+ 0.00314159265358979 (* -99 4.33680868994202e-19))
7000.00314159265358975
701Number readback failure for (+ 3.14159265358979e-20 (* -100 6.01853107621011e-36))
7023.14159265358973e-20
703Number readback failure for (+ 3.14159265358979e-50 (* -100 4.7477838728799e-66))
7043.14159265358975e-50
705Number readback failure for (+ 3.14159265358979e-100 (* -100 5.0758836746313e-116))
7063.14159265358974e-100
707(mult-float-print-test #f)  ==> #f
708 BUT EXPECTED #t
709Number readback failure for (+ 2.71828182845905 (* -100 4.44089209850063e-16))
7102.718281828459
711Number readback failure for (+ 27.1828182845905 (* -100 3.5527136788005e-15))
71227.1828182845901
713Number readback failure for (+ 271.828182845905 (* -100 5.6843418860808e-14))
714271.828182845899
715Number readback failure for (+ 2.71828182845905e+20 (* -100 32768.0))
7162.71828182845901e+20
717Number readback failure for (+ 2.71828182845905e+50 (* -100 4.15383748682786e+34))
7182.718281828459e+50
719Number readback failure for (+ 2.71828182845905e+100 (* -100 3.88533778445146e+84))
7202.71828182845901e+100
721Number readback failure for (+ 0.271828182845905 (* -99 5.55111512312578e-17))
7220.271828182845899
723Number readback failure for (+ 0.0271828182845905 (* -100 3.46944695195361e-18))
7240.0271828182845901
725Number readback failure for (+ 0.00271828182845905 (* -100 4.33680868994202e-19))
7260.002718281828459
727Number readback failure for (+ 2.71828182845904e-20 (* -100 6.01853107621011e-36))
7282.71828182845898e-20
729Number readback failure for (+ 2.71828182845905e-50 (* -100 4.7477838728799e-66))
7302.718281828459e-50
731Number readback failure for (+ 2.71828182845905e-100 (* -100 5.0758836746313e-116))
7322.71828182845899e-100
733(mult-float-print-test #f)  ==> #f
734 BUT EXPECTED #t
735
736To fully test continuations, Scheme 4, and DELAY/FORCE do:
737(test-cont) (test-sc4) (test-delay)
738
739;testing continuations;
740SECTION(6 9)
741(#<procedure (leaf-eq? x y)> (a (b (c))) ((a) b c))  ==> #t
742(#<procedure (leaf-eq? x y)> (a (b (c))) ((a) b c d))  ==> #f
743
744errors were:
745(SECTION (got expected (call)))
746((6 5 6) (#f #t (mult-float-print-test #f)))
747((6 5 6) (#f #t (mult-float-print-test #f)))
748((6 5 6) (#f #t (mult-float-print-test #f)))
749((6 5 6) (#f #t (mult-float-print-test #f)))
750((6 5 6) (#f #t (mult-float-print-test #f)))
751
752
753;testing scheme 4 functions;
754SECTION(6 7)
755(#<procedure (##sys#string->list s184)> "P l")  ==> (#\P #\space #\l)
756(#<procedure (##sys#string->list s184)> "")  ==> ()
757(#<procedure (##sys#list->string lst0190)> (#\1 #\\ #\"))  ==> "1\\\""
758(#<procedure (##sys#list->string lst0190)> ())  ==> ""
759SECTION(6 8)
760(#<procedure (vector->list v596)> #(dah dah didah))  ==> (dah dah didah)
761(#<procedure (vector->list v596)> #())  ==> ()
762(#<procedure (list->vector lst0588)> (dididit dah))  ==> #(dididit dah)
763(#<procedure (list->vector lst0588)> ())  ==> #()
764SECTION(6 10 4)
765(load (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))  ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
766
767errors were:
768(SECTION (got expected (call)))
769((6 5 6) (#f #t (mult-float-print-test #f)))
770((6 5 6) (#f #t (mult-float-print-test #f)))
771((6 5 6) (#f #t (mult-float-print-test #f)))
772((6 5 6) (#f #t (mult-float-print-test #f)))
773((6 5 6) (#f #t (mult-float-print-test #f)))
774
775
776;testing DELAY and FORCE;
777SECTION(6 9)
778(delay 3)  ==> 3
779(delay (3 3))  ==> (3 3)
780(delay 2)  ==> 2
781(#<procedure (##sys#force promise69)> #<promise>)  ==> 6
782(#<procedure (##sys#force promise69)> #<promise>)  ==> 6
783(force 3)  ==> 3
784
785errors were:
786(SECTION (got expected (call)))
787((6 5 6) (#f #t (mult-float-print-test #f)))
788((6 5 6) (#f #t (mult-float-print-test #f)))
789((6 5 6) (#f #t (mult-float-print-test #f)))
790((6 5 6) (#f #t (mult-float-print-test #f)))
791((6 5 6) (#f #t (mult-float-print-test #f)))
792
Note: See TracBrowser for help on using the repository browser.