~ chicken-core (master) /tests/r4rstest.expected

  1SECTION(2 1)
  2SECTION(3 4)
  3 #<procedure>
  4    #<procedure>
  5       #<procedure>
  6          #<procedure>
  7             #<procedure>
  8                #<procedure>
  9                   #<procedure>
 10                      #<procedure>
 11                         #<procedure>
 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>
 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> 3 4)  ==> 12
 29SECTION(4 1 4)
 30(#<procedure> 4)  ==> 8
 31(#<procedure> 7 10)  ==> 3
 32(#<procedure> 6)  ==> 10
 33(#<procedure> 3 4 5 6)  ==> (3 4 5 6)
 34(#<procedure> 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> 6)  ==> (3 6)
 97(#<procedure> 6)  ==> 9
 98SECTION(5 2 2)
 99(#<procedure>)  ==> 5
100(define 34)  ==> 34
101(#<procedure>)  ==> 5
102(define 34)  ==> 34
103(#<procedure> 88)  ==> 88
104(#<procedure> 4)  ==> 4
105(define 34)  ==> 34
106(internal-define 99)  ==> 99
107(internal-define 77)  ==> 77
108SECTION(6 1)
109(#<procedure> #t)  ==> #f
110(#<procedure> 3)  ==> #f
111(#<procedure> (3))  ==> #f
112(#<procedure> #f)  ==> #t
113(#<procedure> ())  ==> #f
114(#<procedure> ())  ==> #f
115(#<procedure> nil)  ==> #f
116SECTION(6 2)
117(#<procedure> a a)  ==> #t
118(#<procedure> a b)  ==> #f
119(#<procedure> 2 2)  ==> #t
120(#<procedure> () ())  ==> #t
121(#<procedure> 10000 10000)  ==> #t
122(#<procedure> (1 . 2) (1 . 2))  ==> #f
123(#<procedure> #<procedure> #<procedure>)  ==> #f
124(#<procedure> #f nil)  ==> #f
125(#<procedure> #<procedure> #<procedure>)  ==> #t
126(#<procedure> #<procedure> #<procedure>)  ==> #t
127(#<procedure> #<procedure> #<procedure>)  ==> #f
128(#<procedure> #<procedure> #<procedure>)  ==> #f
129(#<procedure> a a)  ==> #t
130(#<procedure> (a) (a))  ==> #f
131(#<procedure> () ())  ==> #t
132(#<procedure> #<procedure> #<procedure>)  ==> #t
133(#<procedure> (a) (a))  ==> #t
134(#<procedure> #() #())  ==> #t
135(#<procedure> #<procedure> #<procedure>)  ==> #t
136(#<procedure> a a)  ==> #t
137(#<procedure> (a) (a))  ==> #t
138(#<procedure> (a (b) c) (a (b) c))  ==> #t
139(#<procedure> "abc" "abc")  ==> #t
140(#<procedure> 2 2)  ==> #t
141(#<procedure> #(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> (a b c))  ==> #t
145(set-cdr! (a . 4))  ==> (a . 4)
146(#<procedure> (a . 4) (a . 4))  ==> #t
147(dot (a b c . d))  ==> (a b c . d)
148(#<procedure> (a . 4))  ==> #f
149(list? #f)  ==> #f
150(#<procedure> a ())  ==> (a)
151(#<procedure> (a) (b c d))  ==> ((a) b c d)
152(#<procedure> "a" (b c))  ==> ("a" b c)
153(#<procedure> a 3)  ==> (a . 3)
154(#<procedure> (a b) c)  ==> ((a b) . c)
155(#<procedure> (a b c))  ==> a
156(#<procedure> ((a) b c d))  ==> (a)
157(#<procedure> (1 . 2))  ==> 1
158(#<procedure> ((a) b c d))  ==> (b c d)
159(#<procedure> (1 . 2))  ==> 2
160(#<procedure> a 7 c)  ==> (a 7 c)
161(#<procedure>)  ==> ()
162(#<procedure> (a b c))  ==> 3
163(#<procedure> (a (b) (c d e)))  ==> 3
164(#<procedure> ())  ==> 0
165(#<procedure> (x) (y))  ==> (x y)
166(#<procedure> (a) (b c d))  ==> (a b c d)
167(#<procedure> (a (b)) ((c)))  ==> (a (b) (c))
168(#<procedure>)  ==> ()
169(#<procedure> (a b) (c . d))  ==> (a b c . d)
170(#<procedure> () a)  ==> a
171(#<procedure> (a b c))  ==> (c b a)
172(#<procedure> (a (b c) d (e (f))))  ==> ((e (f)) d (b c) a)
173(#<procedure> (a b c d) 2)  ==> c
174(#<procedure> a (a b c))  ==> (a b c)
175(#<procedure> b (a b c))  ==> (b c)
176(#<procedure> a (b c d))  ==> #f
177(#<procedure> (a) (b (a) c))  ==> #f
178(#<procedure> (a) (b (a) c))  ==> ((a) c)
179(#<procedure> 101 (100 101 102))  ==> (101 102)
180(#<procedure> a ((a 1) (b 2) (c 3)))  ==> (a 1)
181(#<procedure> b ((a 1) (b 2) (c 3)))  ==> (b 2)
182(#<procedure> d ((a 1) (b 2) (c 3)))  ==> #f
183(#<procedure> (a) (((a)) ((b)) ((c))))  ==> #f
184(#<procedure> (a) (((a)) ((b)) ((c))))  ==> ((a))
185(#<procedure> 5 ((2 3) (5 7) (11 13)))  ==> (5 7)
186SECTION(6 4)
187(#<procedure> a)  ==> #t
188(standard-case #t)  ==> #t
189(standard-case #t)  ==> #t
190(#<procedure> flying-fish)  ==> "flying-fish"
191(#<procedure> martin)  ==> "martin"
192(#<procedure> Malvina)  ==> "Malvina"
193(standard-case #t)  ==> #t
194(string-set! "cb")  ==> "cb"
195(#<procedure> ab)  ==> "ab"
196(#<procedure> "ab")  ==> ab
197(#<procedure> mississippi mississippi)  ==> #t
198(string->symbol #f)  ==> #f
199(#<procedure> "jollywog")  ==> jollywog
200SECTION(6 5 5)
201(#<procedure> 3)  ==> #t
202(#<procedure> 3)  ==> #t
203(#<procedure> 3)  ==> #t
204(#<procedure> 3)  ==> #t
205(#<procedure> 3)  ==> #t
206(#<procedure> 3)  ==> #t
207(#<procedure> 3)  ==> #f
208(#<procedure> 22 22 22)  ==> #t
209(#<procedure> 22 22)  ==> #t
210(#<procedure> 34 34 35)  ==> #f
211(#<procedure> 34 35)  ==> #f
212(#<procedure> 3 -6246)  ==> #t
213(#<procedure> 9 9 -2424)  ==> #f
214(#<procedure> 3 -4 -6246)  ==> #t
215(#<procedure> 9 9)  ==> #t
216(#<procedure> 8 9)  ==> #f
217(#<procedure> -1 2 3 4 5 6 7 8)  ==> #t
218(#<procedure> -1 2 3 4 4 5 6 7)  ==> #f
219(#<procedure> -1 2 3 4 5 6 7 8)  ==> #t
220(#<procedure> -1 2 3 4 4 5 6 7)  ==> #t
221(#<procedure> 1 3 2)  ==> #f
222(#<procedure> 1 3 2)  ==> #f
223(#<procedure> 0)  ==> #t
224(#<procedure> 1)  ==> #f
225(#<procedure> -1)  ==> #f
226(#<procedure> -100)  ==> #f
227(#<procedure> 4)  ==> #t
228(#<procedure> -4)  ==> #f
229(#<procedure> 0)  ==> #f
230(#<procedure> 4)  ==> #f
231(#<procedure> -4)  ==> #t
232(#<procedure> 0)  ==> #f
233(#<procedure> 3)  ==> #t
234(#<procedure> 2)  ==> #f
235(#<procedure> -4)  ==> #f
236(#<procedure> -1)  ==> #t
237(#<procedure> 3)  ==> #f
238(#<procedure> 2)  ==> #t
239(#<procedure> -4)  ==> #t
240(#<procedure> -1)  ==> #f
241(#<procedure> 34 5 7 38 6)  ==> 38
242(#<procedure> 3 5 5 330 4 -24)  ==> -24
243(#<procedure> 3 4)  ==> 7
244(#<procedure> 3)  ==> 3
245(#<procedure>)  ==> 0
246(#<procedure> 4)  ==> 4
247(#<procedure>)  ==> 1
248(#<procedure> 3 4)  ==> -1
249(#<procedure> 3)  ==> -3
250(#<procedure> -7)  ==> 7
251(#<procedure> 7)  ==> 7
252(#<procedure> 0)  ==> 0
253(#<procedure> 35 7)  ==> 5
254(#<procedure> -35 7)  ==> -5
255(#<procedure> 35 -7)  ==> -5
256(#<procedure> -35 -7)  ==> 5
257(#<procedure> 13 4)  ==> 1
258(#<procedure> 13 4)  ==> 1
259(#<procedure> -13 4)  ==> 3
260(#<procedure> -13 4)  ==> -1
261(#<procedure> 13 -4)  ==> -3
262(#<procedure> 13 -4)  ==> 1
263(#<procedure> -13 -4)  ==> -1
264(#<procedure> -13 -4)  ==> -1
265(#<procedure> 0 86400)  ==> 0
266(#<procedure> 0 -86400)  ==> 0
267(#<procedure> 238 9)  ==> #t
268(#<procedure> -238 9)  ==> #t
269(#<procedure> 238 -9)  ==> #t
270(#<procedure> -238 -9)  ==> #t
271(#<procedure> 0 4)  ==> 4
272(#<procedure> -4 0)  ==> 4
273(#<procedure> 32 -36)  ==> 4
274(#<procedure>)  ==> 0
275(#<procedure> 32 -36)  ==> 288
276(#<procedure>)  ==> 1
277SECTION(6 5 5)
278(#<procedure> "+#.#")  ==> #t
279(#<procedure> "-#.#")  ==> #t
280(#<procedure> "#.#")  ==> #t
281(#<procedure> "1/0")  ==> #t
282(#<procedure> "-1/0")  ==> #t
283(#<procedure> "0/0")  ==> #t
284(#<procedure> "+1/0i")  ==> #t
285(#<procedure> "-1/0i")  ==> #t
286(#<procedure> "0/0i")  ==> #t
287(#<procedure> "0/0-0/0i")  ==> #t
288(#<procedure> "1/0-1/0i")  ==> #t
289(#<procedure> "-1/0+1/0i")  ==> #t
290(#<procedure> "#i")  ==> #t
291(#<procedure> "#e")  ==> #t
292(#<procedure> "#")  ==> #t
293(#<procedure> "#i0/0")  ==> #t
294(#<procedure> 0.0-1.0i)  ==> #t
295(#<procedure> 0.0+1.0i)  ==> #t
296(#<procedure> 2.0+1.0i)  ==> #t
297SECTION(6 5 9)
298(#<procedure> 0)  ==> "0"
299(#<procedure> 100)  ==> "100"
300(#<procedure> 256 16)  ==> "100"
301(#<procedure> "100")  ==> 100
302(#<procedure> "100" 16)  ==> 256
303(#<procedure> "")  ==> #f
304(#<procedure> ".")  ==> #f
305(#<procedure> "d")  ==> #f
306(#<procedure> "D")  ==> #f
307(#<procedure> "i")  ==> #f
308(#<procedure> "I")  ==> #f
309(#<procedure> "3i")  ==> #f
310(#<procedure> "3I")  ==> #f
311(#<procedure> "33i")  ==> #f
312(#<procedure> "33I")  ==> #f
313(#<procedure> "3.3i")  ==> #f
314(#<procedure> "3.3I")  ==> #f
315(#<procedure> "-")  ==> #f
316(#<procedure> "+")  ==> #f
317(string->number #t)  ==> #t
318(string->number #t)  ==> #t
319SECTION(6 6)
320(#<procedure> #\a)  ==> #t
321(#<procedure> #\()  ==> #t
322(#<procedure> #\space)  ==> #t
323(#<procedure> #\newline)  ==> #t
324(#<procedure> #\A #\B)  ==> #f
325(#<procedure> #\a #\b)  ==> #f
326(#<procedure> #\9 #\0)  ==> #f
327(#<procedure> #\A #\A)  ==> #t
328(#<procedure> #\A #\B)  ==> #t
329(#<procedure> #\a #\b)  ==> #t
330(#<procedure> #\9 #\0)  ==> #f
331(#<procedure> #\A #\A)  ==> #f
332(#<procedure> #\A #\B)  ==> #f
333(#<procedure> #\a #\b)  ==> #f
334(#<procedure> #\9 #\0)  ==> #t
335(#<procedure> #\A #\A)  ==> #f
336(#<procedure> #\A #\B)  ==> #t
337(#<procedure> #\a #\b)  ==> #t
338(#<procedure> #\9 #\0)  ==> #f
339(#<procedure> #\A #\A)  ==> #t
340(#<procedure> #\A #\B)  ==> #f
341(#<procedure> #\a #\b)  ==> #f
342(#<procedure> #\9 #\0)  ==> #t
343(#<procedure> #\A #\A)  ==> #t
344(#<procedure> #\A #\B)  ==> #f
345(#<procedure> #\a #\B)  ==> #f
346(#<procedure> #\A #\b)  ==> #f
347(#<procedure> #\a #\b)  ==> #f
348(#<procedure> #\9 #\0)  ==> #f
349(#<procedure> #\A #\A)  ==> #t
350(#<procedure> #\A #\a)  ==> #t
351(#<procedure> #\A #\B)  ==> #t
352(#<procedure> #\a #\B)  ==> #t
353(#<procedure> #\A #\b)  ==> #t
354(#<procedure> #\a #\b)  ==> #t
355(#<procedure> #\9 #\0)  ==> #f
356(#<procedure> #\A #\A)  ==> #f
357(#<procedure> #\A #\a)  ==> #f
358(#<procedure> #\A #\B)  ==> #f
359(#<procedure> #\a #\B)  ==> #f
360(#<procedure> #\A #\b)  ==> #f
361(#<procedure> #\a #\b)  ==> #f
362(#<procedure> #\9 #\0)  ==> #t
363(#<procedure> #\A #\A)  ==> #f
364(#<procedure> #\A #\a)  ==> #f
365(#<procedure> #\A #\B)  ==> #t
366(#<procedure> #\a #\B)  ==> #t
367(#<procedure> #\A #\b)  ==> #t
368(#<procedure> #\a #\b)  ==> #t
369(#<procedure> #\9 #\0)  ==> #f
370(#<procedure> #\A #\A)  ==> #t
371(#<procedure> #\A #\a)  ==> #t
372(#<procedure> #\A #\B)  ==> #f
373(#<procedure> #\a #\B)  ==> #f
374(#<procedure> #\A #\b)  ==> #f
375(#<procedure> #\a #\b)  ==> #f
376(#<procedure> #\9 #\0)  ==> #t
377(#<procedure> #\A #\A)  ==> #t
378(#<procedure> #\A #\a)  ==> #t
379(#<procedure> #\a)  ==> #t
380(#<procedure> #\A)  ==> #t
381(#<procedure> #\z)  ==> #t
382(#<procedure> #\Z)  ==> #t
383(#<procedure> #\0)  ==> #f
384(#<procedure> #\9)  ==> #f
385(#<procedure> #\space)  ==> #f
386(#<procedure> #\;)  ==> #f
387(#<procedure> #\a)  ==> #f
388(#<procedure> #\A)  ==> #f
389(#<procedure> #\z)  ==> #f
390(#<procedure> #\Z)  ==> #f
391(#<procedure> #\0)  ==> #t
392(#<procedure> #\9)  ==> #t
393(#<procedure> #\space)  ==> #f
394(#<procedure> #\;)  ==> #f
395(#<procedure> #\a)  ==> #f
396(#<procedure> #\A)  ==> #f
397(#<procedure> #\z)  ==> #f
398(#<procedure> #\Z)  ==> #f
399(#<procedure> #\0)  ==> #f
400(#<procedure> #\9)  ==> #f
401(#<procedure> #\space)  ==> #t
402(#<procedure> #\;)  ==> #f
403(#<procedure> #\0)  ==> #f
404(#<procedure> #\9)  ==> #f
405(#<procedure> #\space)  ==> #f
406(#<procedure> #\;)  ==> #f
407(#<procedure> #\0)  ==> #f
408(#<procedure> #\9)  ==> #f
409(#<procedure> #\space)  ==> #f
410(#<procedure> #\;)  ==> #f
411(#<procedure> 46)  ==> #\.
412(#<procedure> 65)  ==> #\A
413(#<procedure> 97)  ==> #\a
414(#<procedure> #\A)  ==> #\A
415(#<procedure> #\a)  ==> #\A
416(#<procedure> #\A)  ==> #\a
417(#<procedure> #\a)  ==> #\a
418SECTION(6 7)
419(#<procedure> "The word \"recursion\\\" has many meanings.")  ==> #t
420(string-set! "?**")  ==> "?**"
421(#<procedure> #\a #\b #\c)  ==> "abc"
422(#<procedure>)  ==> ""
423(#<procedure> "abc")  ==> 3
424(#<procedure> "abc" 0)  ==> #\a
425(#<procedure> "abc" 2)  ==> #\c
426(#<procedure> "")  ==> 0
427(#<procedure> "ab" 0 0)  ==> ""
428(#<procedure> "ab" 1 1)  ==> ""
429(#<procedure> "ab" 2 2)  ==> ""
430(#<procedure> "ab" 0 1)  ==> "a"
431(#<procedure> "ab" 1 2)  ==> "b"
432(#<procedure> "ab" 0 2)  ==> "ab"
433(#<procedure> "foo" "bar")  ==> "foobar"
434(#<procedure> "foo")  ==> "foo"
435(#<procedure> "foo" "")  ==> "foo"
436(#<procedure> "" "foo")  ==> "foo"
437(#<procedure>)  ==> ""
438(#<procedure> 0)  ==> ""
439(#<procedure> "" "")  ==> #t
440(#<procedure> "" "")  ==> #f
441(#<procedure> "" "")  ==> #f
442(#<procedure> "" "")  ==> #t
443(#<procedure> "" "")  ==> #t
444(#<procedure> "" "")  ==> #t
445(#<procedure> "" "")  ==> #f
446(#<procedure> "" "")  ==> #f
447(#<procedure> "" "")  ==> #t
448(#<procedure> "" "")  ==> #t
449(#<procedure> "A" "B")  ==> #f
450(#<procedure> "a" "b")  ==> #f
451(#<procedure> "9" "0")  ==> #f
452(#<procedure> "A" "A")  ==> #t
453(#<procedure> "A" "B")  ==> #t
454(#<procedure> "a" "b")  ==> #t
455(#<procedure> "9" "0")  ==> #f
456(#<procedure> "A" "A")  ==> #f
457(#<procedure> "A" "B")  ==> #f
458(#<procedure> "a" "b")  ==> #f
459(#<procedure> "9" "0")  ==> #t
460(#<procedure> "A" "A")  ==> #f
461(#<procedure> "A" "B")  ==> #t
462(#<procedure> "a" "b")  ==> #t
463(#<procedure> "9" "0")  ==> #f
464(#<procedure> "A" "A")  ==> #t
465(#<procedure> "A" "B")  ==> #f
466(#<procedure> "a" "b")  ==> #f
467(#<procedure> "9" "0")  ==> #t
468(#<procedure> "A" "A")  ==> #t
469(#<procedure> "A" "B")  ==> #f
470(#<procedure> "a" "B")  ==> #f
471(#<procedure> "A" "b")  ==> #f
472(#<procedure> "a" "b")  ==> #f
473(#<procedure> "9" "0")  ==> #f
474(#<procedure> "A" "A")  ==> #t
475(#<procedure> "A" "a")  ==> #t
476(#<procedure> "A" "B")  ==> #t
477(#<procedure> "a" "B")  ==> #t
478(#<procedure> "A" "b")  ==> #t
479(#<procedure> "a" "b")  ==> #t
480(#<procedure> "9" "0")  ==> #f
481(#<procedure> "A" "A")  ==> #f
482(#<procedure> "A" "a")  ==> #f
483(#<procedure> "A" "B")  ==> #f
484(#<procedure> "a" "B")  ==> #f
485(#<procedure> "A" "b")  ==> #f
486(#<procedure> "a" "b")  ==> #f
487(#<procedure> "9" "0")  ==> #t
488(#<procedure> "A" "A")  ==> #f
489(#<procedure> "A" "a")  ==> #f
490(#<procedure> "A" "B")  ==> #t
491(#<procedure> "a" "B")  ==> #t
492(#<procedure> "A" "b")  ==> #t
493(#<procedure> "a" "b")  ==> #t
494(#<procedure> "9" "0")  ==> #f
495(#<procedure> "A" "A")  ==> #t
496(#<procedure> "A" "a")  ==> #t
497(#<procedure> "A" "B")  ==> #f
498(#<procedure> "a" "B")  ==> #f
499(#<procedure> "A" "b")  ==> #f
500(#<procedure> "a" "b")  ==> #f
501(#<procedure> "9" "0")  ==> #t
502(#<procedure> "A" "A")  ==> #t
503(#<procedure> "A" "a")  ==> #t
504SECTION(6 8)
505(#<procedure> #(0 (2 2 2 2) "Anna"))  ==> #t
506(#<procedure> a b c)  ==> #(a b c)
507(#<procedure>)  ==> #()
508(#<procedure> #(0 (2 2 2 2) "Anna"))  ==> 3
509(#<procedure> #())  ==> 0
510(#<procedure> #(1 1 2 3 5 8 13 21) 5)  ==> 8
511(vector-set #(0 ("Sue" "Sue") "Anna"))  ==> #(0 ("Sue" "Sue") "Anna")
512(#<procedure> 2 hi)  ==> #(hi hi)
513(#<procedure> 0)  ==> #()
514(#<procedure> 0 a)  ==> #()
515SECTION(6 9)
516(#<procedure> #<procedure>)  ==> #t
517(#<procedure> #<procedure>)  ==> #t
518(#<procedure> (lambda (x) (* x x)))  ==> #f
519(#<procedure> #<procedure>)  ==> #t
520(#<procedure> #<procedure> (3 4))  ==> 7
521(#<procedure> #<procedure> (3 4))  ==> 7
522(#<procedure> #<procedure> 10 (3 4))  ==> 17
523(#<procedure> #<procedure> ())  ==> ()
524(#<procedure> 12 75)  ==> 30
525(#<procedure> #<procedure> ((a b) (d e) (g h)))  ==> (b e h)
526(#<procedure> #<procedure> (1 2 3) (4 5 6))  ==> (5 7 9)
527(#<procedure> #<procedure> (1 2 3))  ==> (1 2 3)
528(#<procedure> #<procedure> (1 2 3))  ==> (1 2 3)
529(#<procedure> #<procedure> (1 2 3))  ==> (-1 -2 -3)
530(for-each #(0 1 4 9 16))  ==> #(0 1 4 9 16)
531(#<procedure> #<procedure>)  ==> -3
532(#<procedure> (1 2 3 4))  ==> 4
533(#<procedure> (a b . c))  ==> #f
534(#<procedure> #<procedure> ())  ==> ()
535SECTION(6 10 1)
536(#<procedure> #<input port "(stdin)">)  ==> #t
537(#<procedure> #<output port "(stdout)">)  ==> #t
538(#<procedure> "r4rstest.scm" #<procedure>)  ==> #t
539(#<procedure> #<input port "r4rstest.scm">)  ==> #t
540SECTION(6 10 2)
541(#<procedure> #<input port "r4rstest.scm">)  ==> #\;
542(#<procedure> #<input port "r4rstest.scm">)  ==> #\;
543(#<procedure> #<input port "r4rstest.scm">)  ==> (define cur-section (quote ()))
544(#<procedure> #<input port "r4rstest.scm">)  ==> #\(
545(#<procedure> #<input port "r4rstest.scm">)  ==> (define errs (quote ()))
546SECTION(6 10 3)
547(#<procedure> "tmp1.out" #<procedure>)  ==> #t
548(#<procedure> #<input port "tmp1.out">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
549(#<procedure> #!eof)  ==> #t
550(#<procedure> #!eof)  ==> #t
551(input-port? #t)  ==> #t
552(#<procedure> #<input port "tmp1.out">)  ==> #\;
553(#<procedure> #<input port "tmp1.out">)  ==> #\;
554(#<procedure> #<input port "tmp1.out">)  ==> #\;
555(#<procedure> #<input port "tmp1.out">)  ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
556(#<procedure> #<input port "tmp1.out">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
557(#<procedure> #<output port "tmp2.out">)  ==> #t
558(#<procedure> #<input port "tmp2.out">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
559(#<procedure> #!eof)  ==> #t
560(#<procedure> #!eof)  ==> #t
561(input-port? #t)  ==> #t
562(#<procedure> #<input port "tmp2.out">)  ==> #\;
563(#<procedure> #<input port "tmp2.out">)  ==> #\;
564(#<procedure> #<input port "tmp2.out">)  ==> #\;
565(#<procedure> #<input port "tmp2.out">)  ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
566(#<procedure> #<input port "tmp2.out">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
567
568Passed all tests
569
570;testing inexact numbers; 
571SECTION(6 2)
572(#<procedure> 1 1.0)  ==> #f
573(#<procedure> 0 0.0)  ==> #f
574SECTION(6 5 5)
575(#<procedure> 3.9)  ==> #t
576(max #t)  ==> #t
577(#<procedure> 3.9 4)  ==> 4.0
578(#<procedure> 4)  ==> 4.0
579(#<procedure> 4.0)  ==> 4.0
580(#<procedure> 4)  ==> 4
581(#<procedure> 4.0)  ==> 4
582(#<procedure> -4.5)  ==> -4.0
583(#<procedure> -3.5)  ==> -4.0
584(#<procedure> -3.9)  ==> -4.0
585(#<procedure> 0.0)  ==> 0.0
586(#<procedure> 0.25)  ==> 0.0
587(#<procedure> 0.8)  ==> 1.0
588(#<procedure> 3.5)  ==> 4.0
589(#<procedure> 4.5)  ==> 4.0
590(#<procedure> 0 0)  ==> 1
591(#<procedure> 0 1)  ==> 0
592(#<procedure> 1 1)  ==> 0.785398163397448
593(#<procedure> "tmp3.out" #<procedure>)  ==> #t
594(#<procedure> #<input port "tmp3.out">)  ==> (define foo (quote (0.25 -3.25)))
595(#<procedure> #!eof)  ==> #t
596(#<procedure> #!eof)  ==> #t
597(input-port? #t)  ==> #t
598(#<procedure> #<input port "tmp3.out">)  ==> #\;
599(#<procedure> #<input port "tmp3.out">)  ==> #\;
600(#<procedure> #<input port "tmp3.out">)  ==> #\;
601(#<procedure> #<input port "tmp3.out">)  ==> (0.25 -3.25)
602(#<procedure> #<input port "tmp3.out">)  ==> (define foo (quote (0.25 -3.25)))
603(pentium-fdiv-bug #t)  ==> #t
604
605Passed all tests
606
607;testing bignums; 
608SECTION(6 5 7)
609(#<procedure> 33333333333333333333 3)  ==> 0
610(#<procedure> 33333333333333333333 -3)  ==> 0
611(#<procedure> 33333333333333333333 3)  ==> 0
612(#<procedure> 33333333333333333333 -3)  ==> 0
613(#<procedure> 33333333333333333332 3)  ==> 2
614(#<procedure> 33333333333333333332 -3)  ==> -1
615(#<procedure> 33333333333333333332 3)  ==> 2
616(#<procedure> 33333333333333333332 -3)  ==> 2
617(#<procedure> -33333333333333333332 3)  ==> 1
618(#<procedure> -33333333333333333332 -3)  ==> -2
619(#<procedure> -33333333333333333332 3)  ==> -2
620(#<procedure> -33333333333333333332 -3)  ==> -2
621(#<procedure> 3 33333333333333333333)  ==> 3
622(#<procedure> -3 33333333333333333333)  ==> 33333333333333333330
623(#<procedure> 3 33333333333333333333)  ==> 3
624(#<procedure> -3 33333333333333333333)  ==> -3
625(#<procedure> 3 -33333333333333333333)  ==> -33333333333333333330
626(#<procedure> -3 -33333333333333333333)  ==> -3
627(#<procedure> 3 -33333333333333333333)  ==> 3
628(#<procedure> -3 -33333333333333333333)  ==> -3
629(#<procedure> -2177452800 86400)  ==> 0
630(#<procedure> 2177452800 -86400)  ==> 0
631(#<procedure> 2177452800 86400)  ==> 0
632(#<procedure> -2177452800 -86400)  ==> 0
633(#<procedure> 0 -2177452800)  ==> 0
634(remainder #t)  ==> #t
635(remainder #t)  ==> #t
636SECTION(6 5 8)
637(#<procedure> "281474976710655325431")  ==> 281474976710655325431
638(#<procedure> 281474976710655325431)  ==> "281474976710655325431"
639
640Passed all tests
641Skipping bignum-inexact comparisons due to printing inconsistencies
642To fully test continuations, Scheme 4, and DELAY/FORCE do:
643(test-cont) (test-sc4) (test-delay)
644
645;testing continuations; 
646SECTION(6 9)
647(#<procedure> (a (b (c))) ((a) b c))  ==> #t
648(#<procedure> (a (b (c))) ((a) b c d))  ==> #f
649
650Passed all tests
651
652;testing scheme 4 functions; 
653SECTION(6 7)
654(#<procedure> "P l")  ==> (#\P #\space #\l)
655(#<procedure> "")  ==> ()
656(#<procedure> (#\1 #\\ #\"))  ==> "1\\\""
657(#<procedure> ())  ==> ""
658SECTION(6 8)
659(#<procedure> #(dah dah didah))  ==> (dah dah didah)
660(#<procedure> #())  ==> ()
661(#<procedure> (dididit dah))  ==> #(dididit dah)
662(#<procedure> ())  ==> #()
663SECTION(6 10 4)
664(load (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))  ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
665
666Passed all tests
667
668;testing DELAY and FORCE; 
669SECTION(6 9)
670(delay 3)  ==> 3
671(delay (3 3))  ==> (3 3)
672(delay 2)  ==> 2
673(#<procedure> #<promise>)  ==> 6
674(#<procedure> #<promise>)  ==> 6
675(force 3)  ==> 3
676
677Passed all tests