Changeset 7972 in project


Ignore:
Timestamp:
01/28/08 14:34:27 (12 years ago)
Author:
felix winkelmann
Message:

replaced fix-gensyms script with simpler solution

Location:
chicken/trunk/tests
Files:
1 deleted
2 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/tests/r4rstest.out

    r7777 r7972  
    11SECTION(2 1)
    22SECTION(3 4)
    3  #<procedure (boolean? x75)>
    4     #<procedure (char? x653)>
    5        #<procedure (null? x119)>
    6           #<procedure (##sys#number? x409)>
    7              #<procedure (pair? x82)>
    8                 #<procedure (procedure? x732)>
    9                    #<procedure (string? x158)>
    10                       #<procedure (symbol? x504)>
    11                          #<procedure (vector? x582)>
     3 #<procedure>
     4    #<procedure>
     5       #<procedure>
     6          #<procedure>
     7             #<procedure>
     8                #<procedure>
     9                   #<procedure>
     10                      #<procedure>
     11                         #<procedure>
    1212(#t #f #f #f #f #f #f #f #f)#t
    1313(#t #f #f #f #f #f #f #f #f)#f
     
    1616(#f #f #f #t #f #f #f #f #f)9739
    1717(#f #f #f #f #t #f #f #f #f)(test)
    18 (#f #f #f #f #f #t #f #f #f)#<procedure (record-error e)>
     18(#f #f #f #f #f #t #f #f #f)#<procedure>
    1919(#f #f #f #f #f #f #t #f #f)"test"
    2020(#f #f #f #f #f #f #t #f #f)""
     
    2626(quote (quote a))  ==> (quote a)
    2727SECTION(4 1 3)
    28 (#<procedure C_times> 3 4)  ==> 12
     28(#<procedure> 3 4)  ==> 12
    2929SECTION(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)
     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)
    3535SECTION(4 1 5)
    3636(if yes)  ==> yes
     
    9494(define 6)  ==> 6
    9595(define 1)  ==> 1
    96 (#<procedure (add3 x)> 6)  ==> (3 6)
    97 (#<procedure (add3 x)> 6)  ==> 9
     96(#<procedure> 6)  ==> (3 6)
     97(#<procedure> 6)  ==> 9
    9898SECTION(5 2 2)
    99 (#<procedure (foo)>)  ==> 5
     99(#<procedure>)  ==> 5
    100100(define 34)  ==> 34
    101 (#<procedure (foo)>)  ==> 5
     101(#<procedure>)  ==> 5
    102102(define 34)  ==> 34
    103 (#<procedure (foo x)> 88)  ==> 88
    104 (#<procedure (foo x)> 4)  ==> 4
     103(#<procedure> 88)  ==> 88
     104(#<procedure> 4)  ==> 4
    105105(define 34)  ==> 34
    106106(internal-define 99)  ==> 99
    107107(internal-define 77)  ==> 77
    108108SECTION(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
     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
    116116SECTION(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_3801 x85)> #<procedure (f_3801 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
     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
    142142SECTION(6 3)
    143143(dot (a b c d e))  ==> (a b c d e)
    144 (#<procedure (list? x157)> (a b c))  ==> #t
     144(#<procedure> (a b c))  ==> #t
    145145(set-cdr! (a . 4))  ==> (a . 4)
    146 (#<procedure (eqv? x78 y79)> (a . 4) (a . 4))  ==> #t
     146(#<procedure> (a . 4) (a . 4))  ==> #t
    147147(dot (a b c . d))  ==> (a b c . d)
    148 (#<procedure (list? x157)> (a . 4))  ==> #f
     148(#<procedure> (a . 4))  ==> #f
    149149(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_3801 x85)> (a b c))  ==> a
    156 (#<procedure (f_3801 x85)> ((a) b c d))  ==> (a)
    157 (#<procedure (f_3801 x85)> (1 . 2))  ==> 1
    158 (#<procedure (f_3804 x86)> ((a) b c d))  ==> (b c d)
    159 (#<procedure (f_3804 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)
     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)
    186186SECTION(6 4)
    187 (#<procedure (symbol? x504)> a)  ==> #t
     187(#<procedure> a)  ==> #t
    188188(standard-case #t)  ==> #t
    189189(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"
     190(#<procedure> flying-fish)  ==> "flying-fish"
     191(#<procedure> martin)  ==> "martin"
     192(#<procedure> Malvina)  ==> "Malvina"
    193193(standard-case #t)  ==> #t
    194194(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
     195(#<procedure> ab)  ==> "ab"
     196(#<procedure> "ab")  ==> ab
     197(#<procedure> mississippi mississippi)  ==> #t
    198198(string->symbol #f)  ==> #f
    199 (#<procedure (string->symbol str534)> "jollywog")  ==> jollywog
     199(#<procedure> "jollywog")  ==> jollywog
    200200SECTION(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
     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
    277277SECTION(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
     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
    294294SECTION(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
     295(#<procedure> 0)  ==> "0"
     296(#<procedure> 100)  ==> "100"
     297(#<procedure> 256 16)  ==> "100"
     298(#<procedure> "100")  ==> 100
     299(#<procedure> "100" 16)  ==> 256
     300(#<procedure> "")  ==> #f
     301(#<procedure> ".")  ==> #f
     302(#<procedure> "d")  ==> #f
     303(#<procedure> "D")  ==> #f
     304(#<procedure> "i")  ==> #f
     305(#<procedure> "I")  ==> #f
     306(#<procedure> "3i")  ==> #f
     307(#<procedure> "3I")  ==> #f
     308(#<procedure> "33i")  ==> #f
     309(#<procedure> "33I")  ==> #f
     310(#<procedure> "3.3i")  ==> #f
     311(#<procedure> "3.3I")  ==> #f
     312(#<procedure> "-")  ==> #f
     313(#<procedure> "+")  ==> #f
    314314(string->number #t)  ==> #t
    315315(string->number #t)  ==> #t
    316316SECTION(6 6)
    317 (#<procedure (char? x653)> #\a)  ==> #t
    318 (#<procedure (char? x653)> #\()  ==> #t
    319 (#<procedure (char? x653)> #\space)  ==> #t
    320 (#<procedure (char? x653)> #\newline)  ==> #t
    321 (#<procedure (char=? c1658 c2659)> #\A #\B)  ==> #f
    322 (#<procedure (char=? c1658 c2659)> #\a #\b)  ==> #f
    323 (#<procedure (char=? c1658 c2659)> #\9 #\0)  ==> #f
    324 (#<procedure (char=? c1658 c2659)> #\A #\A)  ==> #t
    325 (#<procedure (char<? c1666 c2667)> #\A #\B)  ==> #t
    326 (#<procedure (char<? c1666 c2667)> #\a #\b)  ==> #t
    327 (#<procedure (char<? c1666 c2667)> #\9 #\0)  ==> #f
    328 (#<procedure (char<? c1666 c2667)> #\A #\A)  ==> #f
    329 (#<procedure (char>? c1662 c2663)> #\A #\B)  ==> #f
    330 (#<procedure (char>? c1662 c2663)> #\a #\b)  ==> #f
    331 (#<procedure (char>? c1662 c2663)> #\9 #\0)  ==> #t
    332 (#<procedure (char>? c1662 c2663)> #\A #\A)  ==> #f
    333 (#<procedure (char<=? c1674 c2675)> #\A #\B)  ==> #t
    334 (#<procedure (char<=? c1674 c2675)> #\a #\b)  ==> #t
    335 (#<procedure (char<=? c1674 c2675)> #\9 #\0)  ==> #f
    336 (#<procedure (char<=? c1674 c2675)> #\A #\A)  ==> #t
    337 (#<procedure (char>=? c1670 c2671)> #\A #\B)  ==> #f
    338 (#<procedure (char>=? c1670 c2671)> #\a #\b)  ==> #f
    339 (#<procedure (char>=? c1670 c2671)> #\9 #\0)  ==> #t
    340 (#<procedure (char>=? c1670 c2671)> #\A #\A)  ==> #t
    341 (#<procedure (char-ci=? x683 y684)> #\A #\B)  ==> #f
    342 (#<procedure (char-ci=? x683 y684)> #\a #\B)  ==> #f
    343 (#<procedure (char-ci=? x683 y684)> #\A #\b)  ==> #f
    344 (#<procedure (char-ci=? x683 y684)> #\a #\b)  ==> #f
    345 (#<procedure (char-ci=? x683 y684)> #\9 #\0)  ==> #f
    346 (#<procedure (char-ci=? x683 y684)> #\A #\A)  ==> #t
    347 (#<procedure (char-ci=? x683 y684)> #\A #\a)  ==> #t
    348 (#<procedure (char-ci<? x687 y688)> #\A #\B)  ==> #t
    349 (#<procedure (char-ci<? x687 y688)> #\a #\B)  ==> #t
    350 (#<procedure (char-ci<? x687 y688)> #\A #\b)  ==> #t
    351 (#<procedure (char-ci<? x687 y688)> #\a #\b)  ==> #t
    352 (#<procedure (char-ci<? x687 y688)> #\9 #\0)  ==> #f
    353 (#<procedure (char-ci<? x687 y688)> #\A #\A)  ==> #f
    354 (#<procedure (char-ci<? x687 y688)> #\A #\a)  ==> #f
    355 (#<procedure (char-ci>? x685 y686)> #\A #\B)  ==> #f
    356 (#<procedure (char-ci>? x685 y686)> #\a #\B)  ==> #f
    357 (#<procedure (char-ci>? x685 y686)> #\A #\b)  ==> #f
    358 (#<procedure (char-ci>? x685 y686)> #\a #\b)  ==> #f
    359 (#<procedure (char-ci>? x685 y686)> #\9 #\0)  ==> #t
    360 (#<procedure (char-ci>? x685 y686)> #\A #\A)  ==> #f
    361 (#<procedure (char-ci>? x685 y686)> #\A #\a)  ==> #f
    362 (#<procedure (char-ci<=? x691 y692)> #\A #\B)  ==> #t
    363 (#<procedure (char-ci<=? x691 y692)> #\a #\B)  ==> #t
    364 (#<procedure (char-ci<=? x691 y692)> #\A #\b)  ==> #t
    365 (#<procedure (char-ci<=? x691 y692)> #\a #\b)  ==> #t
    366 (#<procedure (char-ci<=? x691 y692)> #\9 #\0)  ==> #f
    367 (#<procedure (char-ci<=? x691 y692)> #\A #\A)  ==> #t
    368 (#<procedure (char-ci<=? x691 y692)> #\A #\a)  ==> #t
    369 (#<procedure (char-ci>=? x689 y690)> #\A #\B)  ==> #f
    370 (#<procedure (char-ci>=? x689 y690)> #\a #\B)  ==> #f
    371 (#<procedure (char-ci>=? x689 y690)> #\A #\b)  ==> #f
    372 (#<procedure (char-ci>=? x689 y690)> #\a #\b)  ==> #f
    373 (#<procedure (char-ci>=? x689 y690)> #\9 #\0)  ==> #t
    374 (#<procedure (char-ci>=? x689 y690)> #\A #\A)  ==> #t
    375 (#<procedure (char-ci>=? x689 y690)> #\A #\a)  ==> #t
    376 (#<procedure (char-alphabetic? c705)> #\a)  ==> #t
    377 (#<procedure (char-alphabetic? c705)> #\A)  ==> #t
    378 (#<procedure (char-alphabetic? c705)> #\z)  ==> #t
    379 (#<procedure (char-alphabetic? c705)> #\Z)  ==> #t
    380 (#<procedure (char-alphabetic? c705)> #\0)  ==> #f
    381 (#<procedure (char-alphabetic? c705)> #\9)  ==> #f
    382 (#<procedure (char-alphabetic? c705)> #\space)  ==> #f
    383 (#<procedure (char-alphabetic? c705)> #\;)  ==> #f
    384 (#<procedure (char-numeric? c701)> #\a)  ==> #f
    385 (#<procedure (char-numeric? c701)> #\A)  ==> #f
    386 (#<procedure (char-numeric? c701)> #\z)  ==> #f
    387 (#<procedure (char-numeric? c701)> #\Z)  ==> #f
    388 (#<procedure (char-numeric? c701)> #\0)  ==> #t
    389 (#<procedure (char-numeric? c701)> #\9)  ==> #t
    390 (#<procedure (char-numeric? c701)> #\space)  ==> #f
    391 (#<procedure (char-numeric? c701)> #\;)  ==> #f
    392 (#<procedure (char-whitespace? c703)> #\a)  ==> #f
    393 (#<procedure (char-whitespace? c703)> #\A)  ==> #f
    394 (#<procedure (char-whitespace? c703)> #\z)  ==> #f
    395 (#<procedure (char-whitespace? c703)> #\Z)  ==> #f
    396 (#<procedure (char-whitespace? c703)> #\0)  ==> #f
    397 (#<procedure (char-whitespace? c703)> #\9)  ==> #f
    398 (#<procedure (char-whitespace? c703)> #\space)  ==> #t
    399 (#<procedure (char-whitespace? c703)> #\;)  ==> #f
    400 (#<procedure (char-upper-case? c697)> #\0)  ==> #f
    401 (#<procedure (char-upper-case? c697)> #\9)  ==> #f
    402 (#<procedure (char-upper-case? c697)> #\space)  ==> #f
    403 (#<procedure (char-upper-case? c697)> #\;)  ==> #f
    404 (#<procedure (char-lower-case? c699)> #\0)  ==> #f
    405 (#<procedure (char-lower-case? c699)> #\9)  ==> #f
    406 (#<procedure (char-lower-case? c699)> #\space)  ==> #f
    407 (#<procedure (char-lower-case? c699)> #\;)  ==> #f
    408 (#<procedure (integer->char n656)> 46)  ==> #\.
    409 (#<procedure (integer->char n656)> 65)  ==> #\A
    410 (#<procedure (integer->char n656)> 97)  ==> #\a
    411 (#<procedure (char-upcase c678)> #\A)  ==> #\A
    412 (#<procedure (char-upcase c678)> #\a)  ==> #\A
    413 (#<procedure (char-downcase c680)> #\A)  ==> #\a
    414 (#<procedure (char-downcase c680)> #\a)  ==> #\a
     317(#<procedure> #\a)  ==> #t
     318(#<procedure> #\()  ==> #t
     319(#<procedure> #\space)  ==> #t
     320(#<procedure> #\newline)  ==> #t
     321(#<procedure> #\A #\B)  ==> #f
     322(#<procedure> #\a #\b)  ==> #f
     323(#<procedure> #\9 #\0)  ==> #f
     324(#<procedure> #\A #\A)  ==> #t
     325(#<procedure> #\A #\B)  ==> #t
     326(#<procedure> #\a #\b)  ==> #t
     327(#<procedure> #\9 #\0)  ==> #f
     328(#<procedure> #\A #\A)  ==> #f
     329(#<procedure> #\A #\B)  ==> #f
     330(#<procedure> #\a #\b)  ==> #f
     331(#<procedure> #\9 #\0)  ==> #t
     332(#<procedure> #\A #\A)  ==> #f
     333(#<procedure> #\A #\B)  ==> #t
     334(#<procedure> #\a #\b)  ==> #t
     335(#<procedure> #\9 #\0)  ==> #f
     336(#<procedure> #\A #\A)  ==> #t
     337(#<procedure> #\A #\B)  ==> #f
     338(#<procedure> #\a #\b)  ==> #f
     339(#<procedure> #\9 #\0)  ==> #t
     340(#<procedure> #\A #\A)  ==> #t
     341(#<procedure> #\A #\B)  ==> #f
     342(#<procedure> #\a #\B)  ==> #f
     343(#<procedure> #\A #\b)  ==> #f
     344(#<procedure> #\a #\b)  ==> #f
     345(#<procedure> #\9 #\0)  ==> #f
     346(#<procedure> #\A #\A)  ==> #t
     347(#<procedure> #\A #\a)  ==> #t
     348(#<procedure> #\A #\B)  ==> #t
     349(#<procedure> #\a #\B)  ==> #t
     350(#<procedure> #\A #\b)  ==> #t
     351(#<procedure> #\a #\b)  ==> #t
     352(#<procedure> #\9 #\0)  ==> #f
     353(#<procedure> #\A #\A)  ==> #f
     354(#<procedure> #\A #\a)  ==> #f
     355(#<procedure> #\A #\B)  ==> #f
     356(#<procedure> #\a #\B)  ==> #f
     357(#<procedure> #\A #\b)  ==> #f
     358(#<procedure> #\a #\b)  ==> #f
     359(#<procedure> #\9 #\0)  ==> #t
     360(#<procedure> #\A #\A)  ==> #f
     361(#<procedure> #\A #\a)  ==> #f
     362(#<procedure> #\A #\B)  ==> #t
     363(#<procedure> #\a #\B)  ==> #t
     364(#<procedure> #\A #\b)  ==> #t
     365(#<procedure> #\a #\b)  ==> #t
     366(#<procedure> #\9 #\0)  ==> #f
     367(#<procedure> #\A #\A)  ==> #t
     368(#<procedure> #\A #\a)  ==> #t
     369(#<procedure> #\A #\B)  ==> #f
     370(#<procedure> #\a #\B)  ==> #f
     371(#<procedure> #\A #\b)  ==> #f
     372(#<procedure> #\a #\b)  ==> #f
     373(#<procedure> #\9 #\0)  ==> #t
     374(#<procedure> #\A #\A)  ==> #t
     375(#<procedure> #\A #\a)  ==> #t
     376(#<procedure> #\a)  ==> #t
     377(#<procedure> #\A)  ==> #t
     378(#<procedure> #\z)  ==> #t
     379(#<procedure> #\Z)  ==> #t
     380(#<procedure> #\0)  ==> #f
     381(#<procedure> #\9)  ==> #f
     382(#<procedure> #\space)  ==> #f
     383(#<procedure> #\;)  ==> #f
     384(#<procedure> #\a)  ==> #f
     385(#<procedure> #\A)  ==> #f
     386(#<procedure> #\z)  ==> #f
     387(#<procedure> #\Z)  ==> #f
     388(#<procedure> #\0)  ==> #t
     389(#<procedure> #\9)  ==> #t
     390(#<procedure> #\space)  ==> #f
     391(#<procedure> #\;)  ==> #f
     392(#<procedure> #\a)  ==> #f
     393(#<procedure> #\A)  ==> #f
     394(#<procedure> #\z)  ==> #f
     395(#<procedure> #\Z)  ==> #f
     396(#<procedure> #\0)  ==> #f
     397(#<procedure> #\9)  ==> #f
     398(#<procedure> #\space)  ==> #t
     399(#<procedure> #\;)  ==> #f
     400(#<procedure> #\0)  ==> #f
     401(#<procedure> #\9)  ==> #f
     402(#<procedure> #\space)  ==> #f
     403(#<procedure> #\;)  ==> #f
     404(#<procedure> #\0)  ==> #f
     405(#<procedure> #\9)  ==> #f
     406(#<procedure> #\space)  ==> #f
     407(#<procedure> #\;)  ==> #f
     408(#<procedure> 46)  ==> #\.
     409(#<procedure> 65)  ==> #\A
     410(#<procedure> 97)  ==> #\a
     411(#<procedure> #\A)  ==> #\A
     412(#<procedure> #\a)  ==> #\A
     413(#<procedure> #\A)  ==> #\a
     414(#<procedure> #\a)  ==> #\a
    415415SECTION(6 7)
    416 (#<procedure (string? x158)> "The word \"recursion\\\" has many meanings.")  ==> #t
     416(#<procedure> "The word \"recursion\\\" has many meanings.")  ==> #t
    417417(string-set! "?**")  ==> "?**"
    418 (#<procedure (string . chars333)> #\a #\b #\c)  ==> "abc"
    419 (#<procedure (string . chars333)>)  ==> ""
    420 (#<procedure (string-length s159)> "abc")  ==> 3
    421 (#<procedure (f_4309 s160 i161)> "abc" 0)  ==> #\a
    422 (#<procedure (f_4309 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
     418(#<procedure> #\a #\b #\c)  ==> "abc"
     419(#<procedure>)  ==> ""
     420(#<procedure> "abc")  ==> 3
     421(#<procedure> "abc" 0)  ==> #\a
     422(#<procedure> "abc" 2)  ==> #\c
     423(#<procedure> "")  ==> 0
     424(#<procedure> "ab" 0 0)  ==> ""
     425(#<procedure> "ab" 1 1)  ==> ""
     426(#<procedure> "ab" 2 2)  ==> ""
     427(#<procedure> "ab" 0 1)  ==> "a"
     428(#<procedure> "ab" 1 2)  ==> "b"
     429(#<procedure> "ab" 0 2)  ==> "ab"
     430(#<procedure> "foo" "bar")  ==> "foobar"
     431(#<procedure> "foo")  ==> "foo"
     432(#<procedure> "foo" "")  ==> "foo"
     433(#<procedure> "" "foo")  ==> "foo"
     434(#<procedure>)  ==> ""
     435(#<procedure> 0)  ==> ""
     436(#<procedure> "" "")  ==> #t
     437(#<procedure> "" "")  ==> #f
     438(#<procedure> "" "")  ==> #f
     439(#<procedure> "" "")  ==> #t
     440(#<procedure> "" "")  ==> #t
     441(#<procedure> "" "")  ==> #t
     442(#<procedure> "" "")  ==> #f
     443(#<procedure> "" "")  ==> #f
     444(#<procedure> "" "")  ==> #t
     445(#<procedure> "" "")  ==> #t
     446(#<procedure> "A" "B")  ==> #f
     447(#<procedure> "a" "b")  ==> #f
     448(#<procedure> "9" "0")  ==> #f
     449(#<procedure> "A" "A")  ==> #t
     450(#<procedure> "A" "B")  ==> #t
     451(#<procedure> "a" "b")  ==> #t
     452(#<procedure> "9" "0")  ==> #f
     453(#<procedure> "A" "A")  ==> #f
     454(#<procedure> "A" "B")  ==> #f
     455(#<procedure> "a" "b")  ==> #f
     456(#<procedure> "9" "0")  ==> #t
     457(#<procedure> "A" "A")  ==> #f
     458(#<procedure> "A" "B")  ==> #t
     459(#<procedure> "a" "b")  ==> #t
     460(#<procedure> "9" "0")  ==> #f
     461(#<procedure> "A" "A")  ==> #t
     462(#<procedure> "A" "B")  ==> #f
     463(#<procedure> "a" "b")  ==> #f
     464(#<procedure> "9" "0")  ==> #t
     465(#<procedure> "A" "A")  ==> #t
     466(#<procedure> "A" "B")  ==> #f
     467(#<procedure> "a" "B")  ==> #f
     468(#<procedure> "A" "b")  ==> #f
     469(#<procedure> "a" "b")  ==> #f
     470(#<procedure> "9" "0")  ==> #f
     471(#<procedure> "A" "A")  ==> #t
     472(#<procedure> "A" "a")  ==> #t
     473(#<procedure> "A" "B")  ==> #t
     474(#<procedure> "a" "B")  ==> #t
     475(#<procedure> "A" "b")  ==> #t
     476(#<procedure> "a" "b")  ==> #t
     477(#<procedure> "9" "0")  ==> #f
     478(#<procedure> "A" "A")  ==> #f
     479(#<procedure> "A" "a")  ==> #f
     480(#<procedure> "A" "B")  ==> #f
     481(#<procedure> "a" "B")  ==> #f
     482(#<procedure> "A" "b")  ==> #f
     483(#<procedure> "a" "b")  ==> #f
     484(#<procedure> "9" "0")  ==> #t
     485(#<procedure> "A" "A")  ==> #f
     486(#<procedure> "A" "a")  ==> #f
     487(#<procedure> "A" "B")  ==> #t
     488(#<procedure> "a" "B")  ==> #t
     489(#<procedure> "A" "b")  ==> #t
     490(#<procedure> "a" "b")  ==> #t
     491(#<procedure> "9" "0")  ==> #f
     492(#<procedure> "A" "A")  ==> #t
     493(#<procedure> "A" "a")  ==> #t
     494(#<procedure> "A" "B")  ==> #f
     495(#<procedure> "a" "B")  ==> #f
     496(#<procedure> "A" "b")  ==> #f
     497(#<procedure> "a" "b")  ==> #f
     498(#<procedure> "9" "0")  ==> #t
     499(#<procedure> "A" "A")  ==> #t
     500(#<procedure> "A" "a")  ==> #t
    501501SECTION(6 8)
    502 (#<procedure (vector? x582)> #(0 (2 2 2 2) "Anna"))  ==> #t
    503 (#<procedure (vector . xs607)> a b c)  ==> #(a b c)
    504 (#<procedure (vector . xs607)>)  ==> #()
    505 (#<procedure (vector-length v583)> #(0 (2 2 2 2) "Anna"))  ==> 3
    506 (#<procedure (vector-length v583)> #())  ==> 0
    507 (#<procedure (f_6088 v584 i585)> #(1 1 2 3 5 8 13 21) 5)  ==> 8
     502(#<procedure> #(0 (2 2 2 2) "Anna"))  ==> #t
     503(#<procedure> a b c)  ==> #(a b c)
     504(#<procedure>)  ==> #()
     505(#<procedure> #(0 (2 2 2 2) "Anna"))  ==> 3
     506(#<procedure> #())  ==> 0
     507(#<procedure> #(1 1 2 3 5 8 13 21) 5)  ==> 8
    508508(vector-set #(0 ("Sue" "Sue") "Anna"))  ==> #(0 ("Sue" "Sue") "Anna")
    509 (#<procedure (##sys#make-vector size589 . fill590)> 2 hi)  ==> #(hi hi)
    510 (#<procedure (##sys#make-vector size589 . fill590)> 0)  ==> #()
    511 (#<procedure (##sys#make-vector size589 . fill590)> 0 a)  ==> #()
     509(#<procedure> 2 hi)  ==> #(hi hi)
     510(#<procedure> 0)  ==> #()
     511(#<procedure> 0 a)  ==> #()
    512512SECTION(6 9)
    513 (#<procedure (procedure? x732)> #<procedure (f_3801 x85)>)  ==> #t
    514 (#<procedure (procedure? x732)> #<procedure (? x)>)  ==> #t
    515 (#<procedure (procedure? x732)> (lambda (x) (* x x)))  ==> #f
    516 (#<procedure (call-with-current-continuation proc791)> #<procedure (procedure? x732)>)  ==> #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 fn772 lst1773 . lsts774)> #<procedure (f_3813 x91)> ((a b) (d e) (g h)))  ==> (b e h)
    523 (#<procedure (map fn772 lst1773 . lsts774)> #<procedure C_plus> (1 2 3) (4 5 6))  ==> (5 7 9)
    524 (#<procedure (map fn772 lst1773 . lsts774)> #<procedure C_plus> (1 2 3))  ==> (1 2 3)
    525 (#<procedure (map fn772 lst1773 . lsts774)> #<procedure C_times> (1 2 3))  ==> (1 2 3)
    526 (#<procedure (map fn772 lst1773 . lsts774)> #<procedure C_minus> (1 2 3))  ==> (-1 -2 -3)
     513(#<procedure> #<procedure>)  ==> #t
     514(#<procedure> #<procedure>)  ==> #t
     515(#<procedure> (lambda (x) (* x x)))  ==> #f
     516(#<procedure> #<procedure>)  ==> #t
     517(#<procedure> #<procedure> (3 4))  ==> 7
     518(#<procedure> #<procedure> (3 4))  ==> 7
     519(#<procedure> #<procedure> 10 (3 4))  ==> 17
     520(#<procedure> #<procedure> ())  ==> ()
     521(#<procedure> 12 75)  ==> 30
     522(#<procedure> #<procedure> ((a b) (d e) (g h)))  ==> (b e h)
     523(#<procedure> #<procedure> (1 2 3) (4 5 6))  ==> (5 7 9)
     524(#<procedure> #<procedure> (1 2 3))  ==> (1 2 3)
     525(#<procedure> #<procedure> (1 2 3))  ==> (1 2 3)
     526(#<procedure> #<procedure> (1 2 3))  ==> (-1 -2 -3)
    527527(for-each #(0 1 4 9 16))  ==> #(0 1 4 9 16)
    528 (#<procedure (call-with-current-continuation proc791)> #<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 fn772 lst1773 . lsts774)> #<procedure (f_3813 x91)> ())  ==> ()
     528(#<procedure> #<procedure>)  ==> -3
     529(#<procedure> (1 2 3 4))  ==> 4
     530(#<procedure> (a b . c))  ==> #f
     531(#<procedure> #<procedure> ())  ==> ()
    532532SECTION(6 10 1)
    533 (#<procedure (input-port? x819)> #<input port "(stdin)">)  ==> #t
    534 (#<procedure (output-port? x820)> #<output port "(stdout)">)  ==> #t
    535 (#<procedure (call-with-input-file name943 p944 . mode945)> "r4rstest.scm" #<procedure (input-port? x819)>)  ==> #t
    536 (#<procedure (input-port? x819)> #<input port "r4rstest.scm">)  ==> #t
     533(#<procedure> #<input port "(stdin)">)  ==> #t
     534(#<procedure> #<output port "(stdout)">)  ==> #t
     535(#<procedure> "r4rstest.scm" #<procedure>)  ==> #t
     536(#<procedure> #<input port "r4rstest.scm">)  ==> #t
    537537SECTION(6 10 2)
    538 (#<procedure (peek-char . g10551056)> #<input port "r4rstest.scm">)  ==> #\;
    539 (#<procedure (read-char . g10421043)> #<input port "r4rstest.scm">)  ==> #\;
    540 (#<procedure (read . g10651066)> #<input port "r4rstest.scm">)  ==> (define cur-section (quote ()))
    541 (#<procedure (peek-char . g10551056)> #<input port "r4rstest.scm">)  ==> #\(
    542 (#<procedure (read . g10651066)> #<input port "r4rstest.scm">)  ==> (define errs (quote ()))
     538(#<procedure> #<input port "r4rstest.scm">)  ==> #\;
     539(#<procedure> #<input port "r4rstest.scm">)  ==> #\;
     540(#<procedure> #<input port "r4rstest.scm">)  ==> (define cur-section (quote ()))
     541(#<procedure> #<input port "r4rstest.scm">)  ==> #\(
     542(#<procedure> #<input port "r4rstest.scm">)  ==> (define errs (quote ()))
    543543SECTION(6 10 3)
    544 (#<procedure (call-with-output-file name951 p952 . mode953)> "tmp1" #<procedure (? test-file)>)  ==> #t
    545 (#<procedure (read . g10651066)> #<input port "tmp1">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
    546 (#<procedure (eof-object? x1034)> #!eof)  ==> #t
    547 (#<procedure (eof-object? x1034)> #!eof)  ==> #t
     544(#<procedure> "tmp1" #<procedure>)  ==> #t
     545(#<procedure> #<input port "tmp1">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
     546(#<procedure> #!eof)  ==> #t
     547(#<procedure> #!eof)  ==> #t
    548548(input-port? #t)  ==> #t
    549 (#<procedure (read-char . g10421043)> #<input port "tmp1">)  ==> #\;
    550 (#<procedure (read-char . g10421043)> #<input port "tmp1">)  ==> #\;
    551 (#<procedure (read-char . g10421043)> #<input port "tmp1">)  ==> #\;
    552 (#<procedure (read . g10651066)> #<input port "tmp1">)  ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
    553 (#<procedure (read . g10651066)> #<input port "tmp1">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
    554 (#<procedure (output-port? x820)> #<output port "tmp2">)  ==> #t
    555 (#<procedure (read . g10651066)> #<input port "tmp2">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
    556 (#<procedure (eof-object? x1034)> #!eof)  ==> #t
    557 (#<procedure (eof-object? x1034)> #!eof)  ==> #t
     549(#<procedure> #<input port "tmp1">)  ==> #\;
     550(#<procedure> #<input port "tmp1">)  ==> #\;
     551(#<procedure> #<input port "tmp1">)  ==> #\;
     552(#<procedure> #<input port "tmp1">)  ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
     553(#<procedure> #<input port "tmp1">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
     554(#<procedure> #<output port "tmp2">)  ==> #t
     555(#<procedure> #<input port "tmp2">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
     556(#<procedure> #!eof)  ==> #t
     557(#<procedure> #!eof)  ==> #t
    558558(input-port? #t)  ==> #t
    559 (#<procedure (read-char . g10421043)> #<input port "tmp2">)  ==> #\;
    560 (#<procedure (read-char . g10421043)> #<input port "tmp2">)  ==> #\;
    561 (#<procedure (read-char . g10421043)> #<input port "tmp2">)  ==> #\;
    562 (#<procedure (read . g10651066)> #<input port "tmp2">)  ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
    563 (#<procedure (read . g10651066)> #<input port "tmp2">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
     559(#<procedure> #<input port "tmp2">)  ==> #\;
     560(#<procedure> #<input port "tmp2">)  ==> #\;
     561(#<procedure> #<input port "tmp2">)  ==> #\;
     562(#<procedure> #<input port "tmp2">)  ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
     563(#<procedure> #<input port "tmp2">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
    564564
    565565Passed all tests
     
    567567;testing inexact numbers;
    568568SECTION(6 2)
    569 (#<procedure (eqv? x78 y79)> 1 1.0)  ==> #f
    570 (#<procedure (eqv? x78 y79)> 0 0.0)  ==> #f
     569(#<procedure> 1 1.0)  ==> #f
     570(#<procedure> 0 0.0)  ==> #f
    571571SECTION(6 5 5)
    572 (#<procedure (##sys#inexact? x412)> 3.9)  ==> #t
     572(#<procedure> 3.9)  ==> #t
    573573(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 name951 p952 . mode953)> "tmp3" #<procedure (? test-file)>)  ==> #t
    591 (#<procedure (read . g10651066)> #<input port "tmp3">)  ==> (define foo (quote (0.25 -3.25)))
    592 (#<procedure (eof-object? x1034)> #!eof)  ==> #t
    593 (#<procedure (eof-object? x1034)> #!eof)  ==> #t
     574(#<procedure> 3.9 4)  ==> 4.0
     575(#<procedure> 4)  ==> 4.0
     576(#<procedure> 4.0)  ==> 4.0
     577(#<procedure> 4)  ==> 4
     578(#<procedure> 4.0)  ==> 4
     579(#<procedure> -4.5)  ==> -4.0
     580(#<procedure> -3.5)  ==> -4.0
     581(#<procedure> -3.9)  ==> -4.0
     582(#<procedure> 0.0)  ==> 0.0
     583(#<procedure> 0.25)  ==> 0.0
     584(#<procedure> 0.8)  ==> 1.0
     585(#<procedure> 3.5)  ==> 4.0
     586(#<procedure> 4.5)  ==> 4.0
     587(#<procedure> 0 0)  ==> 1
     588(#<procedure> 0 1)  ==> 0
     589(#<procedure> 1 1)  ==> 0.785398163397448
     590(#<procedure> "tmp3" #<procedure>)  ==> #t
     591(#<procedure> #<input port "tmp3">)  ==> (define foo (quote (0.25 -3.25)))
     592(#<procedure> #!eof)  ==> #t
     593(#<procedure> #!eof)  ==> #t
    594594(input-port? #t)  ==> #t
    595 (#<procedure (read-char . g10421043)> #<input port "tmp3">)  ==> #\;
    596 (#<procedure (read-char . g10421043)> #<input port "tmp3">)  ==> #\;
    597 (#<procedure (read-char . g10421043)> #<input port "tmp3">)  ==> #\;
    598 (#<procedure (read . g10651066)> #<input port "tmp3">)  ==> (0.25 -3.25)
    599 (#<procedure (read . g10651066)> #<input port "tmp3">)  ==> (define foo (quote (0.25 -3.25)))
     595(#<procedure> #<input port "tmp3">)  ==> #\;
     596(#<procedure> #<input port "tmp3">)  ==> #\;
     597(#<procedure> #<input port "tmp3">)  ==> #\;
     598(#<procedure> #<input port "tmp3">)  ==> (0.25 -3.25)
     599(#<procedure> #<input port "tmp3">)  ==> (define foo (quote (0.25 -3.25)))
    600600(pentium-fdiv-bug #t)  ==> #t
    601601
     
    739739;testing continuations;
    740740SECTION(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
     741(#<procedure> (a (b (c))) ((a) b c))  ==> #t
     742(#<procedure> (a (b (c))) ((a) b c d))  ==> #f
    743743
    744744errors were:
     
    753753;testing scheme 4 functions;
    754754SECTION(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)> ())  ==> ""
     755(#<procedure> "P l")  ==> (#\P #\space #\l)
     756(#<procedure> "")  ==> ()
     757(#<procedure> (#\1 #\\ #\"))  ==> "1\\\""
     758(#<procedure> ())  ==> ""
    759759SECTION(6 8)
    760 (#<procedure (vector->list v601)> #(dah dah didah))  ==> (dah dah didah)
    761 (#<procedure (vector->list v601)> #())  ==> ()
    762 (#<procedure (list->vector lst0593)> (dididit dah))  ==> #(dididit dah)
    763 (#<procedure (list->vector lst0593)> ())  ==> #()
     760(#<procedure> #(dah dah didah))  ==> (dah dah didah)
     761(#<procedure> #())  ==> ()
     762(#<procedure> (dididit dah))  ==> #(dididit dah)
     763(#<procedure> ())  ==> #()
    764764SECTION(6 10 4)
    765765(load (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))  ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
     
    779779(delay (3 3))  ==> (3 3)
    780780(delay 2)  ==> 2
    781 (#<procedure (##sys#force promise69)> #<promise>)  ==> 6
    782 (#<procedure (##sys#force promise69)> #<promise>)  ==> 6
     781(#<procedure> #<promise>)  ==> 6
     782(#<procedure> #<promise>)  ==> 6
    783783(force 3)  ==> 3
    784784
  • chicken/trunk/tests/runtests.sh

    r7898 r7972  
    2828
    2929echo "======================================== r4rstest ..."
    30 ../csi -i -s r4rstest.scm >r4rstest.log
    31 ../csi -s fix-gensyms.scm r4rstest.out r4rstest.out.fixed
    32 ../csi -s fix-gensyms.scm r4rstest.log r4rstest.log.fixed
    33 diff -u r4rstest.out.fixed r4rstest.log.fixed
     30../csi -e '(set! ##sys#procedure->string (constantly "#<procedure>"))' \
     31  -i -s r4rstest.scm >r4rstest.log
     32diff -u r4rstest.out r4rstest.log
    3433
    3534echo "======================================== locative stress test ..."
Note: See TracChangeset for help on using the changeset viewer.