Changeset 9957 in project


Ignore:
Timestamp:
03/20/08 19:14:15 (12 years ago)
Author:
Kon Lovett
Message:

Rel 1.1.1 w/ defered use of SRFI 69.

Location:
release/3/procedure-surface
Files:
2 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/3/procedure-surface/tags/1.1.1/signature-type.scm

    r9027 r9957  
    163163  (make-signature-type 'read-table 'object read-table?)
    164164
    165   ; SRFI-69
    166   (make-signature-type 'hash-table 'object)
    167 
    168   ; Chicken queue
    169   (make-signature-type 'queue 'object)
    170 
    171   ; SRFI-12
    172   (make-signature-type 'condition 'object)
    173 
    174165  ; Chicken builtin or numbers egg ? Treat as an extension.
    175166  (make-signature-type 'number 'object (defer-predicate number?))
     
    189180  ;; Builtin extensions (Chicken library units)
    190181
    191   ; SRFI-4
     182  ; Chicken queue
     183  (make-signature-type 'queue 'object (defer-predicate queue?))
     184
     185  ; SRFI 4
    192186  (make-signature-type 'u8vector 'object (defer-predicate u8vector?))
    193187  (make-signature-type 's8vector 'object (defer-predicate s8vector?))
     
    199193  (make-signature-type 'f64vector 'object (defer-predicate f64vector?))
    200194
    201   ; SRFI-14 or utf8-srfi-14
     195  ; SRFI 12
     196  (make-signature-type 'condition 'object (defer-predicate condition?))
     197
     198  ; SRFI 14
    202199  (make-signature-type 'char-set 'object (defer-predicate char-set?))
    203200
     
    209206  (make-signature-type 'tcp-listener 'object (defer-predicate tcp-listener?))
    210207
    211   ; SRFI-18
     208  ; SRFI 18
    212209  (make-signature-type 'thread 'object (defer-predicate thread?))
    213210  (make-signature-type 'lock 'object (defer-predicate lock?))
     
    215212  (make-signature-type 'condition-variable 'object (defer-predicate condition-variable?))
    216213
    217   ; SRFI-18 or SRFI-19 time?
     214  ; SRFI 18 (SRFI 19)
    218215  (make-signature-type 'time 'object (defer-predicate time?))
    219216
     
    231228  (make-signature-type 'record 'structure (defer-predicate record-instance?))
    232229
     230  ; SRFI 69
     231  (make-signature-type 'hash-table 'object (defer-predicate hash-table?))
     232
     233  ;; Sample extensions
     234
    233235  ; TinyCLOS
    234236  (make-signature-type 'clos-object 'object (defer-predicate instance?))
     
    238240  (make-signature-type 'c++-object 'clos-object (defer-predicate instance-of? <c++-object>))
    239241
    240   ;; Sample extensions
    241 
    242   ; SRFI-19 date?
     242  ; SRFI 19
    243243  (make-signature-type 'date 'object (defer-predicate date?))
    244244
    245   ; SRFI-25, SRFI-47, SRFI-63, or array-lib egg array?
     245  ; SRFI 25, SRFI 47, SRFI 63
    246246  (make-signature-type 'array 'object (defer-predicate array?))
    247247
  • release/3/procedure-surface/trunk/signature-type.scm

    r9027 r9957  
    163163  (make-signature-type 'read-table 'object read-table?)
    164164
    165   ; SRFI-69
    166   (make-signature-type 'hash-table 'object)
    167 
    168   ; Chicken queue
    169   (make-signature-type 'queue 'object)
    170 
    171   ; SRFI-12
    172   (make-signature-type 'condition 'object)
    173 
    174165  ; Chicken builtin or numbers egg ? Treat as an extension.
    175166  (make-signature-type 'number 'object (defer-predicate number?))
     
    189180  ;; Builtin extensions (Chicken library units)
    190181
    191   ; SRFI-4
     182  ; Chicken queue
     183  (make-signature-type 'queue 'object (defer-predicate queue?))
     184
     185  ; SRFI 4
    192186  (make-signature-type 'u8vector 'object (defer-predicate u8vector?))
    193187  (make-signature-type 's8vector 'object (defer-predicate s8vector?))
     
    199193  (make-signature-type 'f64vector 'object (defer-predicate f64vector?))
    200194
    201   ; SRFI-14 or utf8-srfi-14
     195  ; SRFI 12
     196  (make-signature-type 'condition 'object (defer-predicate condition?))
     197
     198  ; SRFI 14
    202199  (make-signature-type 'char-set 'object (defer-predicate char-set?))
    203200
     
    209206  (make-signature-type 'tcp-listener 'object (defer-predicate tcp-listener?))
    210207
    211   ; SRFI-18
     208  ; SRFI 18
    212209  (make-signature-type 'thread 'object (defer-predicate thread?))
    213210  (make-signature-type 'lock 'object (defer-predicate lock?))
     
    215212  (make-signature-type 'condition-variable 'object (defer-predicate condition-variable?))
    216213
    217   ; SRFI-18 or SRFI-19 time?
     214  ; SRFI 18 (SRFI 19)
    218215  (make-signature-type 'time 'object (defer-predicate time?))
    219216
     
    231228  (make-signature-type 'record 'structure (defer-predicate record-instance?))
    232229
     230  ; SRFI 69
     231  (make-signature-type 'hash-table 'object (defer-predicate hash-table?))
     232
     233  ;; Sample extensions
     234
    233235  ; TinyCLOS
    234236  (make-signature-type 'clos-object 'object (defer-predicate instance?))
     
    238240  (make-signature-type 'c++-object 'clos-object (defer-predicate instance-of? <c++-object>))
    239241
    240   ;; Sample extensions
    241 
    242   ; SRFI-19 date?
     242  ; SRFI 19
    243243  (make-signature-type 'date 'object (defer-predicate date?))
    244244
    245   ; SRFI-25, SRFI-47, SRFI-63, or array-lib egg array?
     245  ; SRFI 25, SRFI 47, SRFI 63
    246246  (make-signature-type 'array 'object (defer-predicate array?))
    247247
Note: See TracChangeset for help on using the changeset viewer.