Changeset 34718 in project for release/5


Ignore:
Timestamp:
10/16/17 17:04:36 (13 months ago)
Author:
sjamaan
Message:

release/5: Replace use by import in eggs

Location:
release/5
Files:
27 edited

Legend:

Unmodified
Added
Removed
  • release/5/binary-search/trunk/binary-search.types

    r31384 r34718  
    1 (binary-search#binary-search
    2                 (#(procedure #:enforce) binary-search#binary-search
    3                 ((or vector list fixnum) (procedure (*) *)) *))
     1; GENERATED BY CHICKEN 5.0.0 FROM /home/sjamaan/src/chicken-eggs/release/5/binary-search/trunk/binary-search.scm
     2
     3; END OF FILE
  • release/5/binary-search/trunk/tests/run.scm

    r33353 r34718  
    1 (use binary-search)
    2 (use chicken.random)
     1(import (chicken random) binary-search)
    32
    43;; fill and search vector
  • release/5/compile-file/trunk/compile-file.scm

    r33879 r34718  
    99
    1010(import (chicken)
    11         (chicken data-structures)
    1211        (chicken file)
    1312        (chicken foreign)
     
    1514        (chicken pathname)
    1615        (chicken process)
     16        (chicken string)
    1717        ;; rename "load" to avoid conflict with keyword argument
    1818        (rename (scheme) (load load-file)))
     
    2828             (tmpfile (and (not output-file) (create-temporary-file "so")))
    2929             (crapshell (eq? (build-platform) 'mingw32))
    30              (cmd (sprintf "~a~a -s ~a ~a -o ~a~a" 
     30             (cmd (sprintf "~a~a -s ~a ~a -o ~a~a"
    3131                    (if crapshell "\"" "")
    3232                    (qs cscpath)
     
    4040        (let ((status (system cmd)))
    4141          (cond ((zero? status)
    42                  (unless output-file 
     42                 (unless output-file
    4343                   (on-exit
    4444                    (lambda ()
  • release/5/memory-mapped-files/trunk/memory-mapped-files.types

    r31384 r34718  
    1 (map-file-to-memory (#(procedure #:clean #:enforce) map-file-to-memory (* fixnum fixnum fixnum fixnum #!optional fixnum) (struct mmap)))
    2 (map/anonymous fixnum)
    3 (map/file fixnum)
    4 (map/fixed fixnum)
    5 (map/private fixnum)
    6 (map/shared fixnum)
    7 (memory-mapped-file-pointer (#(procedure #:clean #:enforce) memory-mapped-file-pointer ((struct mmap)) pointer))
    8 (memory-mapped-file? (#(procedure #:clean #:predicate (struct mmap)) memory-mapped-file? (*) boolean))
     1; GENERATED BY CHICKEN 5.0.0 FROM /home/sjamaan/src/chicken-eggs/release/5/memory-mapped-files/trunk/memory-mapped-files.scm
     2
     3; END OF FILE
  • release/5/memory-mapped-files/trunk/tests/run.scm

    r33430 r34718  
    1 (use memory-mapped-files files posix (chicken memory))
     1(import (chicken file) (chicken file posix) (chicken memory)
     2        (chicken blob) memory-mapped-files)
    23
    34
  • release/5/object-evict/trunk/object-evict.types

    r31384 r34718  
    1 (object-evict (#(procedure #:clean #:enforce) object-evict (* #!optional (procedure (fixnum) pointer)) *))
    2 (object-evict-to-location (#(procedure #:clean #:enforce) object-evict-to-location (* (or pointer locative procedure port) #!optional fixnum) * pointer))
    3 (object-evicted? (#(procedure #:pure) object-evicted? (*) boolean))
    4 (object-release (#(procedure #:enforce) object-release (* #!optional (procedure (pointer) *)) *))
    5 (object-size (#(procedure #:clean) object-size (*) fixnum))
    6 (object-unevict (procedure object-unevict (* #!optional *) *))
     1; GENERATED BY CHICKEN 5.0.0 FROM /home/sjamaan/src/chicken-eggs/release/5/object-evict/trunk/object-evict.scm
     2
     3; END OF FILE
  • release/5/object-evict/trunk/tests/run.scm

    r31138 r34718  
    1 (use object-evict)
    2 
     1(import object-evict)
    32
    43; object-evict
  • release/5/posix-groups/trunk/posix-groups.types

    r33427 r34718  
    1 (posix-groups#initialize-groups (#(procedure #:clean #:enforce) posix-groups#initialize-groups (string fixnum) undefined))
    2 (posix-groups#group-information (#(procedure #:clean #:enforce) posix-groups#group-information (fixnum #!optional *) *))
    3 (posix-groups#get-groups (#(procedure #:clean) posix-groups#get-groups () list))
    4 (posix-groups#set-groups! (#(procedure #:clean #:enforce) posix-groups#set-groups! ((list-of fixnum)) undefined))
     1; GENERATED BY CHICKEN 5.0.0 FROM /home/sjamaan/src/chicken-eggs/release/5/posix-groups/trunk/posix-groups.scm
     2
     3; END OF FILE
  • release/5/queues/trunk/queues.types

    r31384 r34718  
    1 (list->queue (#(procedure #:clean #:enforce) list->queue (list) (struct queue)))
    2 (make-queue (#(procedure #:pure) make-queue () (struct queue)))
    3 (queue->list (#(procedure #:clean #:enforce) queue->list ((struct queue)) list))
    4 (queue-add! (#(procedure #:clean #:enforce) queue-add! ((struct queue) *) undefined))
     1; GENERATED BY CHICKEN 5.0.0 FROM /home/sjamaan/src/chicken-eggs/release/5/queues/trunk/queues.scm
    52
    6 (queue-empty? (#(procedure #:clean #:enforce) queue-empty? ((struct queue)) boolean)
    7               (((struct queue)) (##core#inline "C_i_nullp" (##sys#slot #(1) '1))))
    8 
    9 (queue-first (#(procedure #:clean #:enforce) queue-first ((struct queue)) *))
    10 (queue-last (#(procedure #:clean #:enforce) queue-last ((struct queue)) *))
    11 
    12 (queue-length (#(procedure #:clean #:enforce) queue-length ((struct queue)) fixnum)
    13               (((struct queue)) (##sys#slot #(1) '3)))
    14 
    15 (queue-push-back! (#(procedure #:clean #:enforce) queue-push-back! ((struct queue) *) undefined))
    16 (queue-push-back-list! (#(procedure #:clean #:enforce) queue-push-back-list! ((struct queue) list) undefined))
    17 (queue-remove! (#(procedure #:clean #:enforce) queue-remove! ((struct queue)) *))
    18 (queue? (#(procedure #:pure #:predicate (struct queue)) queue? (*) boolean))
     3; END OF FILE
  • release/5/queues/trunk/tests/run.scm

    r31138 r34718  
    1 (use queues)
    2 
    3 
     1(import queues)
    42
    53(define-syntax assert-error
     
    75    ((_ expr)
    86     (assert (handle-exceptions _ #t expr #f)))))
    9 
    107
    118;; Queues.
  • release/5/scan-input-lines/trunk/scan-input-lines.types

    r33085 r34718  
    1 (scan-input-lines#scan-input-lines
    2  (#(procedure #:enforce) scan-input-lines#scan-input-lines (* #!optional input-port) *))
     1; GENERATED BY CHICKEN 5.0.0 FROM /home/sjamaan/src/chicken-eggs/release/5/scan-input-lines/trunk/scan-input-lines.scm
     2
     3; END OF FILE
  • release/5/srfi-1/trunk/srfi-1.types

    r33182 r34718  
    1 ;; srfi-1 -*- Scheme -*-
     1; GENERATED BY CHICKEN 5.0.0 FROM /home/sjamaan/src/chicken-eggs/release/5/srfi-1/trunk/srfi-1.scm
    22
    3 (srfi-1#alist-cons
    4  (forall (a b c) (#(procedure #:pure) srfi-1#alist-cons (a b (list-of c))
    5                   (pair (pair a b) (list-of c)))))
    6 (srfi-1#alist-copy
    7  (forall (a b) (#(procedure #:clean #:enforce) srfi-1#alist-copy
    8                 ((list-of (pair a b))) (list-of (pair a b)))))
    9 (srfi-1#alist-delete
    10  (forall (a b c) (#(procedure #:clean) srfi-1#alist-delete
    11                   (a (list-of (pair b c)) #!optional (procedure (a b) *))
    12                   (list-of (pair b c)))))
    13 (srfi-1#alist-delete!
    14  (forall (a b c) (#(procedure) srfi-1#alist-delete!
    15                   (a (list-of (pair b c)) #!optional (procedure (a b) *))
    16                   (list-of (pair b c)))))
    17 (srfi-1#any (forall (a) (#(procedure #:enforce) srfi-1#any ((procedure (a #!rest) *) (list-of a) #!rest list) *)))
    18 (srfi-1#append! (#(procedure #:enforce) srfi-1#append! (#!rest list) list))
    19 
    20 (srfi-1#append-map
    21  (forall (a b) (#(procedure #:enforce) srfi-1#append-map ((procedure (a #!rest) (list-of b)) (list-of a) #!rest list)
    22                            (list-of b))))
    23 
    24 (srfi-1#append-map!
    25  (forall (a b) (#(procedure #:enforce) srfi-1#append-map! ((procedure (a #!rest) (list-of b)) (list-of a) #!rest list)
    26                            (list-of b))))
    27 
    28 (srfi-1#append-reverse (#(procedure #:clean #:enforce) srfi-1#append-reverse (list list) list))
    29 (srfi-1#append-reverse! (#(procedure #:enforce) srfi-1#append-reverse! (list list) list))
    30 (srfi-1#assoc
    31  (forall (a b c) (#(procedure #:clean #:foldable) srfi-1#assoc
    32                   (a (list-of (pair b c)) #!optional (procedure (a b) *))
    33                   (or false (pair b c)))) ; sic
    34  ((* null) (let ((#(tmp) #(1))) '#f))
    35  (((or symbol procedure immediate) (list-of pair))
    36   (##core#inline "C_u_i_assq" #(1) #(2)))
    37  ((* (list-of (pair (or symbol procedure immediate) *)))
    38   (##core#inline "C_u_i_assq" #(1) #(2))))
    39 
    40 (srfi-1#break (forall (a) (#(procedure #:enforce) srfi-1#break ((procedure (a) *) (list-of a)) (list-of a) (list-of a))))
    41 (srfi-1#break! (forall (a) (#(procedure #:enforce) srfi-1#break! ((procedure (a) *) (list-of a)) (list-of a) (list-of a))))
    42 (srfi-1#car+cdr (forall (a b) (#(procedure #:clean #:enforce) srfi-1#car+cdr ((pair a b)) a b)))
    43 (srfi-1#circular-list (#(procedure #:clean) srfi-1#circular-list (#!rest) list))
    44 
    45 (srfi-1#circular-list? (#(procedure #:clean #:foldable) srfi-1#circular-list? (*) boolean)
    46                 ((null) (let ((#(tmp) #(1))) '#f)))
    47 
    48 (srfi-1#concatenate (#(procedure #:clean #:enforce) srfi-1#concatenate ((list-of list)) list))
    49 (srfi-1#concatenate! (#(procedure #:enforce) srfi-1#concatenate! ((list-of list)) list))
    50 (srfi-1#cons* (forall (a) (#(procedure #:clean) srfi-1#cons* (a #!rest) (pair a *))))
    51 (srfi-1#count (forall (a) (#(procedure #:enforce) srfi-1#count ((procedure (a #!rest) *) (list-of a) #!rest list) fixnum)))
    52 (srfi-1#delete (forall (a b) (#(procedure #:enforce) srfi-1#delete (a (list-of b) #!optional (procedure (a *) *)) (list-of b))))
    53 (srfi-1#delete! (forall (a b) (#(procedure #:enforce) srfi-1#delete! (a (list-of b) #!optional (procedure (a *) *)) (list-of b))))
    54 
    55 (srfi-1#delete-duplicates
    56  (forall (a) (#(procedure #:enforce) srfi-1#delete-duplicates ((list-of a) #!optional (procedure (a *) *)) (list-of a))))
    57 
    58 (srfi-1#delete-duplicates!
    59  (forall (a) (#(procedure #:enforce) srfi-1#delete-duplicates! ((list-of a) #!optional (procedure (a *) *)) (list-of a))))
    60 
    61 (srfi-1#dotted-list? (#(procedure #:clean #:foldable) srfi-1#dotted-list? (*) boolean))
    62 (srfi-1#drop (forall (a) (#(procedure #:enforce) srfi-1#drop ((list-of a) fixnum) (list-of a))))
    63 (srfi-1#drop-right (forall (a) (#(procedure #:enforce) srfi-1#drop-right ((list-of a) fixnum) (list-of a))))
    64 (srfi-1#drop-right! (forall (a) (#(procedure #:enforce) srfi-1#drop-right! ((list-of a) fixnum) (list-of a))))
    65 (srfi-1#drop-while (forall (a) (#(procedure #:enforce) srfi-1#drop-while ((procedure (a) *) (list-of a)) (list-of a))))
    66 (srfi-1#eighth (#(procedure #:clean #:enforce #:foldable) srfi-1#eighth (pair) *))
    67 
    68 (srfi-1#every
    69  (forall (a) (#(procedure #:enforce) srfi-1#every ((procedure (a #!rest) *) (list-of a) #!rest list) *)))
    70 
    71 (srfi-1#fifth (#(procedure #:clean #:enforce #:foldable) srfi-1#fifth (pair) *))
    72 (srfi-1#filter (forall (a) (#(procedure #:enforce) srfi-1#filter ((procedure (a) *) (list-of a)) (list-of a))))
    73 (srfi-1#filter! (forall (a) (#(procedure #:enforce) srfi-1#filter! ((procedure (a) *) (list-of a)) (list-of a))))
    74 
    75 (srfi-1#filter-map
    76  (forall (a b) (#(procedure #:enforce) srfi-1#filter-map ((procedure (a #!rest) b) (list-of a) #!rest list) (list-of b))))
    77 
    78 (srfi-1#find (forall (a) (#(procedure #:enforce) srfi-1#find ((procedure (a) *) (list-of a)) *)))
    79 (srfi-1#find-tail (forall (a) (#(procedure #:enforce) srfi-1#find-tail ((procedure (a) *) (list-of a)) *)))
    80 
    81 (srfi-1#first (forall (a) (#(procedure #:clean #:enforce #:foldable) srfi-1#first ((pair a *)) a))
    82        ((pair) (##core#inline "C_u_i_car" #(1))))
    83 
    84 (srfi-1#fold (#(procedure #:enforce) srfi-1#fold ((procedure (* #!rest) *) * #!rest list) *)) ;XXX
    85 (srfi-1#fold-right (#(procedure #:enforce) srfi-1#fold-right ((procedure (* #!rest) *) * #!rest list) *)) ;XXX
    86 
    87 (srfi-1#fourth (forall (a) (#(procedure #:clean #:enforce #:foldable) srfi-1#fourth ((pair * (pair * (pair * (pair a *))))) a))
    88         (((pair * (pair * (pair * (pair * *)))))
    89          (##core#inline "C_u_i_car"
    90                         (##core#inline "C_u_i_cdr"
    91                                        (##core#inline "C_u_i_cdr"
    92                                                       (##core#inline "C_u_i_cdr" #(1)))))))
    93 
    94 (srfi-1#iota (#(procedure #:clean #:enforce) srfi-1#iota (fixnum #!optional fixnum fixnum) (list-of number)))
    95 (srfi-1#last (#(procedure #:clean #:enforce #:foldable) srfi-1#last (pair) *))
    96 (srfi-1#last-pair (#(procedure #:clean #:enforce #:foldable) srfi-1#last-pair (pair) *))
    97 (srfi-1#length+ (#(procedure #:clean #:enforce #:foldable) srfi-1#length+ (list) *))
    98 (srfi-1#list-copy (forall (a) (#(procedure #:pure) srfi-1#list-copy (a) a)))
    99 (srfi-1#list-index (forall (a) (#(procedure #:enforce) srfi-1#list-index ((procedure (a #!rest) *) (list-of a) #!rest list) *)))
    100 (srfi-1#list-tabulate (forall (a) (#(procedure #:enforce) srfi-1#list-tabulate (fixnum (procedure (fixnum) a)) (list-of a))))
    101 (srfi-1#list= (#(procedure #:clean #:enforce) srfi-1#list= (#!optional (procedure (list list) *) #!rest list) boolean)
    102        (() '#t)
    103        ((procedure) (let ((#(tmp) #(1))) '#t)))
    104 
    105 (srfi-1#lset-adjoin
    106  (forall (a) (#(procedure #:enforce) srfi-1#lset-adjoin ((procedure (a a) *) (list-of a) #!rest a) (list-of a)))
    107  ((procedure list) (let ((#(tmp) #(1))) #(2))))
    108 
    109 (srfi-1#lset-diff+intersection
    110  (forall (a)
    111          (#(procedure #:enforce) srfi-1#lset-diff+intersection ((procedure (a a) *) (list-of a) #!rest (list-of a))
    112                      (list-of a) (list-of a)))
    113  ((procedure list) (let ((#(tmp) #(1))) (##sys#values #(2) '()))))
    114 
    115 (srfi-1#lset-diff+intersection!
    116  (forall (a)
    117          (#(procedure #:enforce) srfi-1#lset-diff+intersection! ((procedure (a a) *) (list-of a) #!rest (list-of a))
    118                      (list-of a) (list-of a)))
    119  ((procedure list) (let ((#(tmp) #(1))) (##sys#values #(2) '()))))
    120 
    121 (srfi-1#lset-difference
    122  (forall (a) (#(procedure #:enforce) srfi-1#lset-difference ((procedure (a a) *) (list-of a) #!rest (list-of a)) (list-of a)))
    123  ((procedure list) (let ((#(tmp) #(1))) #(2))))
    124 
    125 (srfi-1#lset-difference!
    126  (forall (a) (#(procedure #:enforce) srfi-1#lset-difference! ((procedure (a a) *) (list-of a) #!rest (list-of a)) (list-of a)))
    127  ((procedure list) (let ((#(tmp) #(1))) #(2))))
    128 
    129 (srfi-1#lset-intersection
    130  (forall (a) (#(procedure #:enforce) srfi-1#lset-intersection ((procedure (a a) *) (list-of a) #!rest (list-of a)) (list-of a)))
    131  ((procedure list) (let ((#(tmp) #(1))) #(2))))
    132 
    133 (srfi-1#lset-intersection!
    134  (forall (a) (#(procedure #:enforce) srfi-1#lset-intersection! ((procedure (a a) *) (list-of a) #!rest (list-of a)) (list-of a)))
    135  ((procedure list) (let ((#(tmp) #(1))) #(2))))
    136 
    137 (srfi-1#lset-union
    138  (forall (a) (#(procedure #:enforce) srfi-1#lset-union ((procedure (a a) *) #!rest (list-of a)) (list-of a)))
    139  ((procedure) (let ((#(tmp) #(1))) '()))
    140  ((procedure list) (let ((#(tmp) #(1))) #(2))))
    141 
    142 (srfi-1#lset-union!
    143  (forall (a) (#(procedure #:enforce) srfi-1#lset-union! ((procedure (a a) *) #!rest (list-of a)) (list-of a)))
    144  ((procedure) (let ((#(tmp) #(1))) '()))
    145  ((procedure list) (let ((#(tmp) #(1))) #(2))))
    146 
    147 (srfi-1#lset-xor
    148  (forall (a) (#(procedure #:enforce) srfi-1#lset-xor ((procedure (a a) *) #!rest (list-of a)) (list-of a)))
    149  ((procedure) (let ((#(tmp) #(1))) '()))
    150  ((procedure list) (let ((#(tmp) #(1))) #(2))))
    151 
    152 (srfi-1#lset-xor!
    153  (forall (a) (#(procedure #:enforce) srfi-1#lset-xor! ((procedure (a a) *) #!rest (list-of a)) (list-of a)))
    154  ((procedure) (let ((#(tmp) #(1))) '()))
    155  ((procedure list) (let ((#(tmp) #(1))) #(2))))
    156 
    157 (srfi-1#lset<=
    158  (forall (a) (#(procedure #:enforce) srfi-1#lset<= ((procedure (a a) *) #!rest (list-of a)) boolean))
    159  ((procedure) (let ((#(tmp) #(1))) '#t))
    160  ((procedure list) (let ((#(tmp1) #(1)) (#(tmp2) #(2))) '#t)))
    161 
    162 (srfi-1#lset=
    163  (forall (a) (#(procedure #:enforce) srfi-1#lset= ((procedure (a a) *) #!rest (list-of a)) boolean))
    164  ((procedure) (let ((#(tmp) #(1))) '#t))
    165  ((procedure list) (let ((#(tmp1) #(1)) (#(tmp2) #(2))) '#t)))
    166 
    167 (srfi-1#make-list (forall (a) (#(procedure #:clean #:enforce) srfi-1#make-list (fixnum #!optional a) (list-of a))))
    168 
    169 (srfi-1#map!
    170  (forall (a b) (#(procedure #:enforce) srfi-1#map! ((procedure (a #!rest) b) (list-of a) #!rest list) (list-of b))))
    171 
    172 (srfi-1#map-in-order
    173  (forall
    174   (a b)
    175   (#(procedure #:enforce) srfi-1#map-in-order ((procedure (a #!rest) b) (list-of a) #!rest list) (list-of b))))
    176 
    177 (srfi-1#member
    178  (forall (a b) (#(procedure #:clean #:foldable) srfi-1#member
    179                 (a (list-of b) #!optional (procedure (a b) *)) ; sic
    180                 (or false (list-of b))))
    181  ((* null) (let ((#(tmp) #(1))) '#f))
    182  (((or symbol procedure immediate) list)
    183   (##core#inline "C_u_i_memq" #(1) #(2)))
    184  ((* (list-of (or symbol procedure immediate)))
    185   (##core#inline "C_u_i_memq" #(1) #(2))))
    186 
    187 (srfi-1#ninth (#(procedure #:clean #:enforce #:foldable) srfi-1#ninth (pair) *))
    188 
    189 (srfi-1#not-pair? (#(procedure #:clean #:foldable) srfi-1#not-pair? (*) boolean)
    190            ((pair) (let ((#(tmp) #(1))) '#f))
    191            (((not (or pair list))) (let ((#(tmp) #(1))) '#t)))
    192 
    193 (srfi-1#null-list? (#(procedure #:clean #:enforce #:foldable) srfi-1#null-list? (list) boolean)
    194             ((pair) (let ((#(tmp) #(1))) '#f))
    195             ((list) (let ((#(tmp) #(1))) '#f))
    196             ((null) (let ((#(tmp) #(1))) '#t)))
    197 
    198 (srfi-1#pair-fold (#(procedure #:enforce) srfi-1#pair-fold (procedure * list #!rest list) *)) ;XXX do this
    199 (srfi-1#pair-fold-right (#(procedure #:enforce) srfi-1#pair-fold-right (procedure * list #!rest list) *)) ;XXX
    200 (srfi-1#pair-for-each (#(procedure #:enforce) srfi-1#pair-for-each ((procedure (#!rest) . *) list #!rest list) undefined)) ;XXX
    201 (srfi-1#partition (forall (a) (#(procedure #:enforce) srfi-1#partition ((procedure (a) *) (list-of a)) (list-of a) (list-of a))))
    202 (srfi-1#partition! (forall (a) (#(procedure #:enforce) srfi-1#partition! ((procedure (a) *) (list-of a)) (list-of a) (list-of a))))
    203 
    204 (srfi-1#proper-list? (#(procedure #:clean #:foldable) proper-list? (*) boolean)
    205               ((null) (let ((#(tmp) #(1))) '#t)))
    206 
    207 (srfi-1#reduce (#(procedure #:enforce) srfi-1#reduce ((procedure (* *) *) * list) *)) ;XXX
    208 (srfi-1#reduce-right (#(procedure #:enforce) srfi-1#reduce-right ((procedure (* *) *) * list) *)) ;XXX
    209 (srfi-1#remove (forall (a) (#(procedure #:enforce) srfi-1#remove ((procedure (a) *) (list-of a)) (list-of a))))
    210 (srfi-1#remove! (forall (a) (#(procedure #:enforce) srfi-1#remove! ((procedure (a) *) (list-of a)) (list-of a))))
    211 (srfi-1#reverse! (forall (a) (#(procedure #:enforce) srfi-1#reverse! ((list-of a)) (list-of a))))
    212 
    213 (srfi-1#second (forall (a) (#(procedure #:clean #:enforce #:foldable) srfi-1#second ((pair * (pair a *))) a))
    214         (((pair * (pair * *))) (##core#inline "C_u_i_car" (##core#inline "C_u_i_cdr" #(1)))))
    215 
    216 (srfi-1#seventh (#(procedure #:clean #:enforce #:foldable) srfi-1#seventh (pair) *))
    217 (srfi-1#sixth (#(procedure #:clean #:enforce #:foldable) srfi-1#sixth (pair) *))
    218 (srfi-1#span (forall (a) (#(procedure #:enforce) srfi-1#span ((procedure (a) *) (list-of a)) (list-of a) (list-of a))))
    219 (srfi-1#span! (forall (a) (#(procedure #:enforce) srfi-1#span! ((procedure (a) *) (list-of a)) (list-of a) (list-of a))))
    220 (srfi-1#split-at (forall (a) (#(procedure #:enforce) srfi-1#split-at ((list-of a) fixnum) (list-of a) (list-of a))))
    221 (srfi-1#split-at! (forall (a) (#(procedure #:enforce) srfi-1#split-at! ((list-of a) fixnum) (list-of a) (list-of a))))
    222 (srfi-1#take (forall (a) (#(procedure #:enforce) srfi-1#take ((list-of a) fixnum) (list-of a))))
    223 (srfi-1#take! (forall (a) (#(procedure #:enforce) srfi-1#take! ((list-of a) fixnum) (list-of a))))
    224 (srfi-1#take-right (forall (a) (#(procedure #:enforce) srfi-1#take-right ((list-of a) fixnum) (list-of a))))
    225 (srfi-1#take-while (forall (a) (#(procedure #:enforce) srfi-1#take-while ((procedure (a) *) (list-of a)) (list-of a))))
    226 (srfi-1#take-while! (forall (a) (#(procedure #:enforce) srfi-1#take-while! ((procedure (a) *) (list-of a)) (list-of a))))
    227 (srfi-1#tenth (#(procedure #:clean #:enforce #:foldable) srfi-1#tenth (pair) *))
    228 
    229 (srfi-1#third (forall (a) (#(procedure #:clean #:enforce #:foldable) srfi-1#third ((pair * (pair * (pair a *)))) a))
    230        (((pair * (pair * (pair * *))))
    231         (##core#inline "C_u_i_car"
    232                        (##core#inline "C_u_i_cdr" (##core#inline "C_u_i_cdr" #(1))))))
    233 
    234 (srfi-1#unfold (#(procedure #:enforce) srfi-1#unfold ((procedure (*) *) (procedure (*) *) (procedure (*) *) * #!optional (procedure (*) *)) *)) ;XXX
    235 (srfi-1#unfold-right (#(procedure #:enforce) srfi-1#unfold-right ((procedure (*) *) (procedure (*) *) (procedure (*) *) * #!optional (procedure (*) *)) *)) ;XXX
    236 (srfi-1#unzip1 (forall (a) (#(procedure #:clean #:enforce) srfi-1#unzip1 ((list-of (pair a *))) (list-of a))))
    237 (srfi-1#unzip2 (forall (a b) (#(procedure #:clean #:enforce) srfi-1#unzip2 ((list-of (pair a (pair b *)))) (list-of a) (list-of b))))
    238 
    239 (srfi-1#unzip3
    240  (forall (a b c) (#(procedure #:clean #:enforce) srfi-1#unzip3 ((list-of (pair a (pair b (pair c *))))) (list-of a) (list-of b) (list-of c))))
    241 
    242 (srfi-1#unzip4 (#(procedure #:clean #:enforce) srfi-1#unzip4 (list) list list list list)) ; yeah
    243 (srfi-1#unzip5 (#(procedure #:clean #:enforce) srfi-1#unzip5 (list) list list list list list)) ; yeah, too
    244 (srfi-1#xcons (forall (a b) (#(procedure #:pure) srfi-1#xcons (a b) (pair b a))))
    245 (srfi-1#zip (forall (a) (#(procedure #:clean #:enforce) srfi-1#zip ((list-of a) #!rest list) (list-of (pair a *)))))
     3; END OF FILE
  • release/5/srfi-1/trunk/tests/larceny.scm

    r33193 r34718  
    4747; the CDR changed, ie, values are never moved from one cell to another.
    4848
    49 (use srfi-1 test)
     49(import srfi-1 test)
    5050
    5151; Test cases are ordered as in the spec.  R5RS procedures are left out.
  • release/5/srfi-1/trunk/tests/run.scm

    r33193 r34718  
    1 (use test)
     1(import test)
    22
    33;; SRFI 116 tests adapted for SRFI 1
  • release/5/srfi-1/trunk/tests/srfi-116.scm

    r33193 r34718  
    2424;;;
    2525
    26 (use srfi-1 test)
     26(import srfi-1 test)
    2727
    2828(test-group "lists"
  • release/5/srfi-13/trunk/srfi-13.scm

    r34334 r34718  
    9696(import chicken
    9797        (except scheme string-copy string-fill! string->list)
    98         (only (chicken string) reverse-list->string))
    99 (use srfi-14)
     98        (only (chicken string) reverse-list->string)
     99        srfi-14)
    100100
    101101(register-feature! 'srfi-13)
  • release/5/srfi-13/trunk/srfi-13.types

    r31408 r34718  
    1 (check-substring-spec (#(procedure #:clean #:enforce) check-substring-spec (* string fixnum fixnum) undefined))
    2 (kmp-step (#(procedure #:enforce) kmp-step (string vector char fixnum (procedure (char char) *) fixnum) fixnum))
    3 (make-kmp-restart-vector (#(procedure #:clean #:enforce) make-kmp-restart-vector (string #!optional (procedure (* *) *) fixnum fixnum) vector))
     1; GENERATED BY CHICKEN 5.0.0 FROM /home/sjamaan/src/chicken-eggs/release/5/srfi-13/trunk/srfi-13.scm
    42
    5 (string-any
    6  (forall (a)
    7   (#(procedure #:enforce)
    8    string-any
    9    ((or char (struct char-set) (procedure (char) a)) string #!optional fixnum fixnum)
    10    (or boolean a))))
    11 
    12 (string-append/shared (#(procedure #:clean #:enforce) string-append/shared (#!rest string) string)
    13                       ((string string) (##sys#string-append #(1) #(2))))
    14 
    15 (string-ci< (#(procedure #:clean #:enforce) string-ci< (string string #!optional fixnum fixnum) boolean)
    16             ((string string) (string-ci<? #(1) #(2))))
    17 
    18 (string-ci<= (#(procedure #:clean #:enforce) string-ci<= (string string #!optional fixnum fixnum) boolean)
    19              ((string string) (string-ci<=? #(1) #(2))))
    20 
    21 (string-ci<> (#(procedure #:clean #:enforce) string-ci<> (string string #!optional fixnum fixnum) boolean)
    22              ((string string) (not (##core#inline "C_i_string_ci_equal_p" #(1) #(2)))))
    23 
    24 (string-ci= (#(procedure #:clean #:enforce) string-ci= (string string #!optional fixnum fixnum) boolean)
    25             ((string string) (##core#inline "C_i_string_ci_equal_p" #(1) #(2))))
    26 
    27 (string-ci> (#(procedure #:clean #:enforce) string-ci> (string string #!optional fixnum fixnum) boolean)
    28             ((string string) (string-ci>? #(1) #(2))))
    29 
    30 (string-ci>= (#(procedure #:clean #:enforce) string-ci>= (string string #!optional fixnum fixnum) boolean)
    31              ((string string) (string-ci>=? #(1) #(2))))
    32 
    33 (string-compare (#(procedure #:enforce) string-compare (string string (procedure (fixnum) *) (procedure (fixnum) *) (procedure (fixnum) *) #!optional fixnum fixnum fixnum fixnum) *))
    34 (string-compare-ci (#(procedure #:enforce) string-compare (string string (procedure (fixnum) *) (procedure (fixnum) *) (procedure (fixnum) *) #!optional fixnum fixnum fixnum fixnum) *))
    35 (string-concatenate (#(procedure #:clean #:enforce) string-concatenate ((list-of string)) string))
    36 (string-concatenate-reverse (#(procedure #:clean #:enforce) string-concatenate-reverse ((list-of string) #!optional string fixnum) string))
    37 (string-concatenate-reverse/shared (#(procedure #:clean #:enforce) string-concatenate-reverse/shared ((list-of string) #!optional string fixnum) string))
    38 (string-concatenate/shared (#(procedure #:clean #:enforce) string-concatenate/shared ((list-of string)) string))
    39 (string-contains (#(procedure #:clean #:enforce) string-contains (string string #!optional fixnum fixnum fixnum fixnum) (or fixnum false)))
    40 (string-contains-ci (#(procedure #:clean #:enforce) string-contains-ci (string string #!optional fixnum fixnum fixnum fixnum) (or fixnum false)))
    41 (string-copy (#(procedure #:clean #:enforce) string-copy (string #!optional fixnum fixnum) string))
    42 (string-copy! (#(procedure #:clean #:enforce) string-copy! (string fixnum string #!optional fixnum fixnum) undefined))
    43 (string-count (#(procedure #:clean #:enforce) string-count (string * #!optional fixnum fixnum) fixnum))
    44 (string-delete (#(procedure #:clean #:enforce) string-delete (* string #!optional fixnum fixnum) string))
    45 (string-downcase (#(procedure #:clean #:enforce) string-downcase (string #!optional fixnum fixnum) string))
    46 (string-downcase! (#(procedure #:clean #:enforce) string-downcase! (string #!optional fixnum fixnum) string))
    47 (string-drop (#(procedure #:clean #:enforce) string-drop (string fixnum) string))
    48 (string-drop-right (#(procedure #:clean #:enforce) string-drop-right (string fixnum) string))
    49 
    50 (string-every
    51  (forall (a)
    52   (#(procedure #:enforce)
    53    string-every
    54    ((or char (struct char-set) (procedure (char) a)) string #!optional fixnum fixnum)
    55    (or boolean a))))
    56 
    57 (string-fill! (#(procedure #:clean #:enforce) string-fill! (string char #!optional fixnum fixnum) string))
    58 
    59 (string-filter
    60  (#(procedure #:enforce)
    61   string-filter
    62   ((or char (struct char-set) (procedure (char) *)) string #!optional fixnum fixnum)
    63   string))
    64 
    65 (string-fold (#(procedure #:enforce) string-fold ((procedure (char *) *) * string #!optional fixnum fixnum) *)) ;XXX
    66 
    67 (string-fold-right (#(procedure #:enforce) string-fold-right ((procedure (char *) *) * string #!optional fixnum fixnum) *)) ;XXX
    68 (string-for-each (#(procedure #:enforce) string-for-each ((procedure (char) . *) string #!optional fixnum fixnum) undefined))
    69 (string-for-each-index (#(procedure #:enforce) string-for-each-index ((procedure (fixnum) . *) string #!optional fixnum fixnum) undefined))
    70 
    71 (string-index
    72  (#(procedure #:enforce)
    73   string-index
    74   (string (or char (struct char-set) (procedure (char) *)) #!optional fixnum fixnum)
    75   (or fixnum false)))
    76 
    77 (string-index-right
    78  (#(procedure #:enforce)
    79   string-index-right
    80   (string (or char (struct char-set) (procedure (char) *)) #!optional fixnum fixnum)
    81   (or fixnum false)))
    82 
    83 (string-join (#(procedure #:clean #:enforce) string-join (list #!optional string symbol) string))
    84 (string-kmp-partial-search (#(procedure #:enforce) string-kmp-partial-search (string vector string fixnum #!optional (procedure (char char) *) fixnum fixnum fixnum) fixnum))
    85 (string-map (#(procedure #:enforce) string-map ((procedure (char) char) string #!optional fixnum fixnum) string))
    86 (string-map! (#(procedure #:enforce) string-map! ((procedure (char) char) string #!optional fixnum fixnum) string))
    87 
    88 (string-null? (#(procedure #:clean #:enforce) string-null? (string) boolean)
    89               ((string) (##core#inline "C_zero_length_p" #(1))))
    90 
    91 (string-pad (#(procedure #:clean #:enforce) string-pad (string fixnum #!optional char fixnum fixnum) string))
    92 (string-pad-right (#(procedure #:clean #:enforce) string-pad-right (string fixnum #!optional char fixnum fixnum) string))
    93 (string-parse-final-start+end (#(procedure #:enforce) string-parse-final-start+end (procedure string #!rest) . *))
    94 (string-parse-start+end (#(procedure #:enforce) string-parse-start+end (procedure string #!rest) . *))
    95 (string-prefix-ci? (#(procedure #:clean #:enforce) string-prefix-ci? (string string #!optional fixnum fixnum fixnum fixnum) boolean))
    96 (string-prefix-length (#(procedure #:clean #:enforce) string-prefix-length (string string #!optional fixnum fixnum fixnum fixnum) fixnum))
    97 (string-prefix-length-ci (#(procedure #:clean #:enforce) string-prefix-length-ci (string string #!optional fixnum fixnum fixnum fixnum) fixnum))
    98 (string-prefix? (#(procedure #:clean #:enforce) string-prefix? (string string #!optional fixnum fixnum fixnum fixnum) boolean))
    99 (string-replace (#(procedure #:clean #:enforce) string-replace (string string fixnum fixnum #!optional fixnum fixnum) string))
    100 (string-reverse (#(procedure #:clean #:enforce) string-reverse (string #!optional fixnum fixnum) string))
    101 (string-reverse! (#(procedure #:clean #:enforce) string-reverse! (string #!optional fixnum fixnum) string))
    102 
    103 (string-skip
    104  (#(procedure #:enforce)
    105   string-skip
    106   (string (or char (struct char-set) (procedure (char) *)) #!optional fixnum fixnum)
    107   (or fixnum false)))
    108 
    109 (string-skip-right
    110  (#(procedure #:enforce)
    111   string-skip-right
    112   (string (or char (struct char-set) (procedure (char) *)) #!optional fixnum fixnum)
    113   (or fixnum false)))
    114 
    115 (string-suffix-ci? (#(procedure #:clean #:enforce) string-suffix-ci? (string string #!optional fixnum fixnum fixnum fixnum) boolean))
    116 (string-suffix-length (#(procedure #:clean #:enforce) string-suffix-length (string string #!optional fixnum fixnum fixnum fixnum) fixnum))
    117 (string-suffix-length-ci (#(procedure #:clean #:enforce) string-suffix-length-ci (string string #!optional fixnum fixnum fixnum fixnum) fixnum))
    118 (string-suffix? (#(procedure #:clean #:enforce) string-suffix? (string string #!optional fixnum fixnum fixnum fixnum) boolean))
    119 (string-tabulate (#(procedure #:enforce) string-tabulate ((procedure (fixnum) char) fixnum) string))
    120 (string-take (#(procedure #:clean #:enforce) string-take (string fixnum) string))
    121 (string-take-right (#(procedure #:clean #:enforce) string-take-right (string fixnum) string))
    122 (string-titlecase (#(procedure #:clean #:enforce) string-titlecase (string #!optional fixnum fixnum) string))
    123 (string-titlecase! (#(procedure #:clean #:enforce) string-titlecase! (string #!optional fixnum fixnum) string))
    124 
    125 (string-tokenize
    126  (#(procedure #:clean #:enforce) string-tokenize (string #!optional (struct char-set) fixnum fixnum) list))
    127 
    128 (string-trim
    129  (#(procedure #:enforce)
    130   string-trim
    131   (string #!optional (or char (struct char-set) (procedure (char) *)) fixnum fixnum)
    132   string))
    133 
    134 (string-trim-both
    135  (#(procedure #:enforce)
    136   string-trim-both
    137   (string #!optional (or char (struct char-set) (procedure (char) *)) fixnum fixnum)
    138   string))
    139 
    140 (string-trim-right
    141  (#(procedure #:enforce)
    142   string-trim-right
    143   (string #!optional (or char (struct char-set) (procedure (char) *)) fixnum fixnum)
    144   string))
    145 
    146 (string-unfold (#(procedure #:enforce) string-unfold (procedure procedure procedure * #!optional * procedure) string)) ;XXX
    147 (string-unfold-right (#(procedure #:enforce) string-unfold-right (procedure procedure procedure * #!optional * procedure) string)) ;XXX
    148 (string-upcase (#(procedure #:clean #:enforce) string-upcase (string #!optional fixnum fixnum) string))
    149 (string-upcase! (#(procedure #:clean #:enforce) string-upcase! (string #!optional fixnum fixnum) string))
    150 (string-xcopy! (#(procedure #:clean #:enforce) string-xcopy! (string string string fixnum #!optional fixnum fixnum fixnum) string))
    151 
    152 (string< (#(procedure #:clean #:enforce) string< (string string #!optional fixnum fixnum fixnum fixnum) boolean)
    153          ((string string) (string<? #(1) #(2))))
    154 
    155 (string<= (#(procedure #:clean #:enforce) string<= (string string #!optional fixnum fixnum fixnum fixnum) boolean)
    156           ((string string) (string<=? #(1) #(2))))
    157 
    158 (string<> (#(procedure #:clean #:enforce) string<> (string string #!optional fixnum fixnum fixnum fixnum) boolean)
    159           ((string string) (not (##core#inline "C_i_string_equal_p" #(1) #(2)))))
    160 
    161 (string= (#(procedure #:clean #:enforce) string= (string string #!optional fixnum fixnum fixnum fixnum) boolean)
    162          ((string string) (##core#inline "C_i_string_equal_p" #(1) #(2))))
    163 
    164 (string> (#(procedure #:clean #:enforce) string> (string string #!optional fixnum fixnum fixnum fixnum) boolean)
    165          ((string string) (string>? #(1) #(2))))
    166 
    167 (string>= (#(procedure #:clean #:enforce) string>= (string string #!optional fixnum fixnum fixnum fixnum) boolean)
    168           ((string string) (string>=? #(1) #(2))))
    169 
    170 (substring-spec-ok? (#(procedure #:clean #:enforce) substring-spec-ok? (string fixnum fixnum) boolean))
    171 (substring/shared (#(procedure #:clean #:enforce) substring/shared (string fixnum #!optional fixnum) string))
    172 (xsubstring (#(procedure #:clean #:enforce) xsubstring (string fixnum #!optional fixnum fixnum fixnum) string))
     3; END OF FILE
  • release/5/srfi-13/trunk/tests/run.scm

    r33353 r34718  
    1 (use chicken.format srfi-13 srfi-14 test)
     1(import (chicken format) srfi-13 srfi-14 test)
    22
    33(define (fill text)
  • release/5/srfi-14/trunk/srfi-14.types

    r31665 r34718  
    1 (srfi-14#->char-set (procedure srfi-14#->char-set (*) (struct char-set))
    2                     (((struct char-set)) #(1))
    3                     ((string) (string->char-set #(1)))
    4                     ((char) (char-set #(1))))
     1; GENERATED BY CHICKEN 5.0.0 FROM /home/sjamaan/src/chicken-eggs/release/5/srfi-14/trunk/srfi-14.scm
    52
    6 (srfi-14#char-set (#(procedure #:enforce) srfi-14#char-set (#!rest char) (struct char-set)))
    7 (srfi-14#char-set->list (#(procedure #:clean #:enforce) srfi-14#char-set->list ((struct char-set)) list))
    8 (srfi-14#char-set->string (#(procedure #:clean #:enforce) srfi-14#char-set->string ((struct char-set)) string))
    9 (srfi-14#char-set-adjoin (#(procedure #:clean #:enforce) srfi-14#char-set-adjoin ((struct char-set) #!rest char) (struct char-set)))
    10 (srfi-14#char-set-adjoin! (#(procedure #:clean #:enforce) srfi-14#char-set-adjoin! ((struct char-set) #!rest char) (struct char-set)))
    11 (srfi-14#char-set-any (#(procedure #:enforce) srfi-14#char-set-any ((procedure (char) *) (struct char-set)) *))
    12 (srfi-14#char-set-complement (#(procedure #:clean #:enforce) srfi-14#char-set-complement ((struct char-set)) (struct char-set)))
    13 (srfi-14#char-set-complement! (#(procedure #:clean #:enforce) srfi-14#char-set-complement! ((struct char-set)) (struct char-set)))
    14 (srfi-14#char-set-contains? (#(procedure #:clean #:enforce) srfi-14#char-set-contains? ((struct char-set) char) boolean))
    15 (srfi-14#char-set-copy (#(procedure #:clean #:enforce) srfi-14#char-set-copy ((struct char-set)) (struct char-set)))
    16 (srfi-14#char-set-count (#(procedure #:clean #:enforce) srfi-14#char-set-count ((procedure (char) *) (struct char-set)) fixnum))
    17 (srfi-14#char-set-cursor (#(procedure #:clean #:enforce) srfi-14#char-set-cursor ((struct char-set)) fixnum))
    18 (srfi-14#char-set-cursor-next (#(procedure #:clean #:enforce) srfi-14#char-set-cursor-next ((struct char-set) fixnum) fixnum))
    19 (srfi-14#char-set-delete (#(procedure #:clean #:enforce) srfi-14#char-set-delete ((struct char-set) #!rest char) (struct char-set)))
    20 (srfi-14#char-set-delete! (#(procedure #:clean #:enforce) srfi-14#char-set-delete! ((struct char-set) #!rest char) (struct char-set)))
    21 (srfi-14#char-set-diff+intersection (#(procedure #:clean #:enforce) srfi-14#char-set-diff+intersection ((struct char-set) #!rest (struct char-set)) (struct char-set) (struct char-set)))
    22 (srfi-14#char-set-diff+intersection! (#(procedure #:clean #:enforce) srfi-14#char-set-diff+intersection! ((struct char-set) #!rest (struct char-set)) (struct char-set) (struct char-set)))
    23 (srfi-14#char-set-difference (#(procedure #:clean #:enforce) srfi-14#char-set-difference ((struct char-set) #!rest (struct char-set)) (struct char-set)))
    24 (srfi-14#char-set-difference! (#(procedure #:clean #:enforce) srfi-14#char-set-difference! ((struct char-set) #!rest (struct char-set)) (struct char-set)))
    25 (srfi-14#char-set-every (#(procedure #:enforce) srfi-14#char-set-every ((procedure (char) *) (struct char-set)) boolean))
    26 (srfi-14#char-set-filter (#(procedure #:enforce) srfi-14#char-set-filter ((procedure (char) *) (struct char-set) #!optional (struct char-set)) (struct char-set)))
    27 (srfi-14#char-set-filter! (#(procedure #:enforce) srfi-14#char-set-filter! ((procedure (char) *) (struct char-set) #!optional (struct char-set)) (struct char-set)))
    28 (srfi-14#char-set-fold (#(procedure #:enforce) srfi-14#char-set-fold ((procedure (char *) *) * (struct char-set)) *))
    29 (srfi-14#char-set-for-each (#(procedure #:enforce) srfi-14#char-set-for-each ((procedure (char) . *) (struct char-set)) undefined))
    30 (srfi-14#char-set-hash (#(procedure #:clean #:enforce) srfi-14#char-set-hash ((struct char-set) #!optional number) number))
    31 (srfi-14#char-set-intersection (#(procedure #:clean #:enforce) srfi-14#char-set-intersection (#!rest (struct char-set)) (struct char-set)))
    32 (srfi-14#char-set-intersection! (#(procedure #:clean #:enforce) srfi-14#char-set-intersection! (#!rest (struct char-set)) (struct char-set)))
    33 (srfi-14#char-set-map (#(procedure #:enforce) srfi-14#char-set-map ((procedure (char) char) (struct char-set)) (struct char-set)))
    34 (srfi-14#char-set-ref (#(procedure #:clean #:enforce) srfi-14#char-set-ref ((struct char-set) fixnum) char))
    35 (srfi-14#char-set-size (#(procedure #:clean #:enforce) srfi-14#char-set-size ((struct char-set)) fixnum))
    36 (srfi-14#char-set-unfold (#(procedure #:enforce) srfi-14#char-set-unfold (procedure procedure procedure * #!optional (struct char-set)) (struct char-set)))
    37 (srfi-14#char-set-unfold! (#(procedure #:enforce) srfi-14#char-set-unfold! (procedure procedure procedure * (struct char-set)) (struct char-set)))
    38 (srfi-14#char-set-union (#(procedure #:clean #:enforce) srfi-14#char-set-union (#!rest (struct char-set)) (struct char-set)))
    39 (srfi-14#char-set-union! (#(procedure #:clean #:enforce) srfi-14#char-set-union! (#!rest (struct char-set)) (struct char-set)))
    40 (srfi-14#char-set-xor (#(procedure #:clean #:enforce) srfi-14#char-set-xor (#!rest (struct char-set)) (struct char-set)))
    41 (srfi-14#char-set-xor! (#(procedure #:clean #:enforce) srfi-14#char-set-xor! (#!rest (struct char-set)) (struct char-set)))
    42 (srfi-14#char-set:ascii (struct char-set))
    43 (srfi-14#char-set:blank (struct char-set))
    44 (srfi-14#char-set:digit (struct char-set))
    45 (srfi-14#char-set:empty (struct char-set))
    46 (srfi-14#char-set:full (struct char-set))
    47 (srfi-14#char-set:graphic (struct char-set))
    48 (srfi-14#char-set:hex-digit (struct char-set))
    49 (srfi-14#char-set:iso-control (struct char-set))
    50 (srfi-14#char-set:letter (struct char-set))
    51 (srfi-14#char-set:letter+digit (struct char-set))
    52 (srfi-14#char-set:lower-case (struct char-set))
    53 (srfi-14#char-set:printing (struct char-set))
    54 (srfi-14#char-set:punctuation (struct char-set))
    55 (srfi-14#char-set:symbol (struct char-set))
    56 (srfi-14#char-set:title-case (struct char-set))
    57 (srfi-14#char-set:upper-case (struct char-set))
    58 (srfi-14#char-set:whitespace (struct char-set))
    59 
    60 (srfi-14#char-set= (#(procedure #:clean #:enforce) srfi-14#char-set= (#!rest (struct char-set)) boolean)
    61                    (() '#t)
    62                    (((struct char-set)) (let ((#(tmp) #(1))) '#t)))
    63 (srfi-14#char-set<= (#(procedure #:clean #:enforce) srfi-14#char-set<= (#!rest (struct char-set)) boolean)
    64                     (() '#t)
    65                     (((struct char-set)) (let ((#(tmp) #(1))) '#t)))
    66 
    67 (srfi-14#char-set? (#(procedure #:pure #:predicate (struct char-set)) srfi-14#char-set? (*) boolean))
    68 (srfi-14#end-of-char-set? (#(procedure #:clean #:enforce) srfi-14#end-of-char-set? (fixnum) boolean))
    69 (srfi-14#list->char-set (#(procedure #:clean #:enforce) srfi-14#list->char-set ((list-of char) #!optional (struct char-set)) (struct char-set)))
    70 (srfi-14#list->char-set! (#(procedure #:clean #:enforce) srfi-14#list->char-set! ((list-of char) #!optional (struct char-set)) (struct char-set)))
    71 (srfi-14#string->char-set (#(procedure #:clean #:enforce) srfi-14#string->char-set (string #!optional (struct char-set)) (struct char-set)))
    72 (srfi-14#string->char-set! (#(procedure #:clean #:enforce) srfi-14#string->char-set! (string #!optional (struct char-set)) (struct char-set)))
    73 (srfi-14#ucs-range->char-set (#(procedure #:clean #:enforce) srfi-14#ucs-range->char-set (fixnum fixnum #!optional * (struct char-set)) (struct char-set)))
    74 (srfi-14#ucs-range->char-set! (#(procedure #:clean #:enforce) srfi-14#ucs-range->char-set! (fixnum fixnum #!optional * (struct char-set)) (struct char-set)))
     3; END OF FILE
  • release/5/srfi-14/trunk/tests/run.scm

    r31665 r34718  
    22;;; Olin Shivers
    33
    4 (use srfi-14)
     4(import srfi-14)
    55
    66(let-syntax ((test (syntax-rules ()
  • release/5/srfi-18/trunk/tests/mutex-test.scm

    r34686 r34718  
    11;;;; mutex-test.scm
    22
    3 (use chicken.format chicken.time srfi-18)
     3(import (chicken format) (chicken time) srfi-18)
    44
    55(define test-has-failed #f)
  • release/5/srfi-18/trunk/tests/run.scm

    r34686 r34718  
    1 (use (compile-file))
     1(import (compile-file))
    22
    33(load "simple-thread-test.scm")
  • release/5/srfi-18/trunk/tests/signal-tests.scm

    r33353 r34718  
    88
    99
    10 (use chicken.random posix srfi-18)
     10(import srfi-18
     11        (chicken random) (chicken format)
     12        (chicken process-context)
     13        (chicken process) (chicken process signal))
    1114
    1215(define all-go? (make-parameter #f))
  • release/5/srfi-18/trunk/tests/simple-thread-test.scm

    r33353 r34718  
    22
    33
    4 (use chicken.random srfi-18)
     4(import (chicken random) srfi-18)
    55
    66
  • release/5/srfi-18/trunk/tests/srfi-18-signal-test.scm

    r33353 r34718  
    44  (exit))
    55
    6 (use posix srfi-18)
     6(import posix srfi-18)
    77
    88(define done #f)
  • release/5/srfi-69/trunk/srfi-69.scm

    r34252 r34718  
    134134(define-inline (%subbyte bytvec i)
    135135  (##core#inline "C_subbyte" bytvec i) )
    136 
    137 (define-inline (exactify n)
    138   (if (##sys#immediate? n)
    139       n
    140       (##core#inline_allocate ("C_s_a_u_i_flo_to_int" 5) n)))
    141136
    142137
     
    716711        [max-load (##sys#slot ht 6)] )
    717712    (let ([len (##sys#size vec)] )
    718       (let ([min-load-len (exactify (floor (* len min-load)))]
    719             [max-load-len (exactify (floor (* len max-load)))] )
     713      (let ([min-load-len (inexact->exact (floor (* len min-load)))]
     714            [max-load-len (inexact->exact (floor (* len max-load)))] )
    720715        (if (and (fx< len hash-table-max-length)
    721716                 (fx<= min-load-len newsiz) (fx<= newsiz max-load-len))
  • release/5/srfi-69/trunk/srfi-69.types

    r31403 r34718  
    1 (alist->hash-table (#(procedure #:clean #:enforce) alist->hash-table ((list-of pair) #!rest) (struct hash-table)))
    2 (eq?-hash (#(procedure #:clean #:enforce) eq?-hash (* #!optional fixnum fixnum) fixnum))
    3 (equal?-hash (#(procedure #:clean #:enforce) equal?-hash (* #!optional fixnum fixnum) fixnum))
    4 (eqv?-hash (#(procedure #:clean #:enforce) eqv?-hash (* #!optional fixnum fixnum) fixnum))
    5 (hash (#(procedure #:pure #:enforce) hash (* #!optional fixnum fixnum) fixnum))
    6 (hash-by-identity (#(procedure #:pure #:enforce) hash-by-identity (* #!optional fixnum fixnum) fixnum))
    7 (hash-table->alist (#(procedure #:clean #:enforce) hash-table->alist ((struct hash-table)) (list-of pair)))
    8 (hash-table-clear! (#(procedure #:clean #:enforce) hash-table-clear! ((struct hash-table)) undefined))
    9 (hash-table-copy (#(procedure #:clean #:enforce) hash-table-copy ((struct hash-table)) (struct hash-table)))
    10 (hash-table-delete! (#(procedure #:clean #:enforce) hash-table-delete! ((struct hash-table) *) boolean))
    11 (hash-table-equivalence-function (#(procedure #:clean #:enforce) hash-table-equivalence-function ((struct hash-table)) (procedure (* *) *)))
    12 (hash-table-exists? (#(procedure #:clean #:enforce) hash-table-exists? ((struct hash-table) *) boolean))
    13 (hash-table-fold (#(procedure #:enforce) hash-table-fold ((struct hash-table) (procedure (* * *) *) *) *))
    14 (hash-table-for-each (#(procedure #:enforce) hash-table-for-each ((struct hash-table) (procedure (* *) . *)) undefined))
     1; GENERATED BY CHICKEN 5.0.0 FROM /home/sjamaan/src/chicken-eggs/release/5/srfi-69/trunk/srfi-69.scm
    152
    16 (hash-table-has-initial? (#(procedure #:clean #:enforce) hash-table-has-initial? ((struct hash-table)) boolean)
    17                          (((struct hash-table)) (##sys#slot #(1) '9))) ;XXX might return other than #t
    18 
    19 (hash-table-hash-function (#(procedure #:clean #:enforce) hash-table-hash-function ((struct hash-table)) (procedure (* fixnum) fixnum))
    20                           (((struct hash-table)) (##sys#slot #(1) '4)))
    21 
    22 (hash-table-initial (#(procedure #:clean #:enforce) hash-table-initial ((struct hash-table)) *))
    23 (hash-table-keys (#(procedure #:clean #:enforce) hash-table-keys ((struct hash-table)) list))
    24 (hash-table-map (#(procedure #:clean #:enforce) hash-table-map ((struct hash-table) (procedure (* *) *)) list))
    25 
    26 (hash-table-max-load (#(procedure #:clean #:enforce) hash-table-max-load ((struct hash-table)) fixnum)
    27                      (((struct hash-table)) (##sys#slot #(1) '6)))
    28 
    29 (hash-table-merge (#(procedure #:clean #:enforce) hash-table-merge ((struct hash-table) (struct hash-table)) (struct hash-table)))
    30 (hash-table-merge! (#(procedure #:clean #:enforce) hash-table-merge! ((struct hash-table) (struct hash-table)) undefined))
    31 
    32 (hash-table-min-load (#(procedure #:clean #:enforce) hash-table-min-load ((struct hash-table)) fixnum)
    33                      (((struct hash-table)) (##sys#slot #(1) '5)))
    34 
    35 (hash-table-ref (#(procedure #:clean #:enforce) hash-table-ref ((struct hash-table) * #!optional (procedure () *)) *))
    36 (hash-table-ref/default (#(procedure #:clean #:enforce) hash-table-ref/default ((struct hash-table) * *) *))
    37 (hash-table-remove! (#(procedure #:clean #:enforce) hash-table-remove! ((struct hash-table) (procedure (* *) *)) undefined))
    38 (hash-table-set! (#(procedure #:clean #:enforce) hash-table-set! ((struct hash-table) * *) undefined))
    39 
    40 (hash-table-size (#(procedure #:clean #:enforce) hash-table-size ((struct hash-table)) fixnum)
    41                  (((struct hash-table)) (##sys#slot #(1) '2)))
    42 
    43 (hash-table-update! (#(procedure #:enforce) hash-table-update! ((struct hash-table) * (procedure (*) *) #!optional (procedure () *)) *))
    44 (hash-table-update!/default (#(procedure #:clean #:enforce) hash-table-update!/default ((struct hash-table) * (procedure (*) *) *) *))
    45 (hash-table-values (#(procedure #:clean #:enforce) hash-table-values ((struct hash-table)) list))
    46 (hash-table-walk (#(procedure #:enforce) hash-table-walk ((struct hash-table) (procedure (* *) . *)) undefined))
    47 
    48 (hash-table-weak-keys (#(procedure #:clean #:enforce) hash-table-weak-keys ((struct hash-table)) boolean)
    49                       (((struct hash-table)) (##sys#slot #(1) '7)))
    50 
    51 (hash-table-weak-values (#(procedure #:clean #:enforce) hash-table-weak-values ((struct hash-table)) boolean)
    52                         (((struct hash-table)) (##sys#slot #(1) '8)))
    53 
    54 (hash-table? (#(procedure #:pure #:predicate (struct hash-table)) hash-table? (*) boolean))
    55 
    56 ;;XXX if we want to hardcode hash-default-bound here, we could rewrite the 1-arg case...
    57 ;     (applies to all hash-functions)
    58 (keyword-hash (#(procedure #:clean #:enforce) keyword-hash (* #!optional fixnum fixnum) fixnum))
    59 
    60 (make-hash-table (#(procedure #:clean #:enforce) make-hash-table (#!rest) (struct hash-table)))
    61 (number-hash (#(procedure #:clean #:enforce) number-hash (fixnum #!optional fixnum fixnum) fixnum))
    62 (object-uid-hash (#(procedure #:clean #:enforce) object-uid-hash (* #!optional fixnum fixnum) fixnum))
    63 (symbol-hash (#(procedure #:clean #:enforce) symbol-hash (symbol #!optional fixnum fixnum) fixnum))
    64 (string-hash (#(procedure #:clean #:enforce) string-hash (string #!optional fixnum fixnum fixnum fixnum) number))
    65 (string-hash-ci (#(procedure #:clean #:enforce) string-hash-ci (string #!optional fixnum fixnum fixnum fixnum) number))
    66 (string-ci-hash (#(procedure #:clean #:enforce) string-ci-hash (string #!optional fixnum fixnum fixnum fixnum) number))
     3; END OF FILE
Note: See TracChangeset for help on using the changeset viewer.