Changeset 14123 in project


Ignore:
Timestamp:
04/06/09 22:15:21 (11 years ago)
Author:
Kon Lovett
Message:

Added syntax.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • wiki/eggref/4/check-errors

    r14119 r14123  
    8181</enscript>
    8282
    83 ==== error-type-fixnum
    84 
    85 <procedure>(error-type-fixnum LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
    86 
    87 ==== error-type-positive-fixnum
    88 
    89 <procedure>(error-type-positive-fixnum LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
    90 
    91 ==== error-type-cardinal-fixnum
    92 
    93 <procedure>(error-type-cardinal-fixnum LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
    94 
    95 ==== error-type-flonum
    96 
    97 <procedure>(error-type-flonum LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
    98 
    99 ==== error-type-integer
    100 
    101 <procedure>(error-type-integer LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
    102 
    103 ==== error-type-positive-integer
    104 
    105 <procedure>(error-type-positive-integer LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
    106 
    107 ==== error-type-cardinal-integer
    108 
    109 <procedure>(error-type-cardinal-integer LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
    110 
    111 ==== error-type-number
    112 
    113 <procedure>(error-type-number LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
    114 
    115 ==== error-type-positive-number
    116 
    117 <procedure>(error-type-positive-number LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
    118 
    119 ==== error-type-cardinal-number
    120 
    121 <procedure>(error-type-cardinal-number LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
    122 
    123 ==== error-type-procedure
    124 
    125 <procedure>(error-type-procedure LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
    126 
    127 ==== error-type-input-port
    128 
    129 <procedure>(error-type-input-port LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
    130 
    131 ==== error-type-output-port
    132 
    133 <procedure>(error-type-output-port LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
    134 
    135 ==== error-type-list
    136 
    137 <procedure>(error-type-list LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
    138 
    139 ==== error-type-pair
    140 
    141 <procedure>(error-type-pair LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
    142 
    143 ==== error-type-blob
    144 
    145 <procedure>(error-type-blob LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
    146 
    147 ==== error-type-vector
    148 
    149 <procedure>(error-type-vector LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
    150 
    151 ==== error-type-structure
    152 
    153 <procedure>(error-type-structure LOCATION OBJECT TAG [ARGUMENT-NAME])</procedure>
    154 
    155 ==== error-type-symbol
    156 
    157 <procedure>(error-type-symbol LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
    158 
    159 ==== error-type-keyword
    160 
    161 <procedure>(error-type-keyword LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
    162 
    163 ==== error-type-string
    164 
    165 <procedure>(error-type-string LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
    166 
    167 ==== error-type-char
    168 
    169 <procedure>(error-type-char LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
    170 
    171 ==== error-type-boolean
    172 
    173 <procedure>(error-type-boolean LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
     83==== error-fixnum
     84
     85<procedure>(error-fixnum LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
     86
     87==== error-positive-fixnum
     88
     89<procedure>(error-positive-fixnum LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
     90
     91==== error-cardinal-fixnum
     92
     93<procedure>(error-cardinal-fixnum LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
     94
     95==== error-flonum
     96
     97<procedure>(error-flonum LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
     98
     99==== error-integer
     100
     101<procedure>(error-integer LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
     102
     103==== error-positive-integer
     104
     105<procedure>(error-positive-integer LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
     106
     107==== error-cardinal-integer
     108
     109<procedure>(error-cardinal-integer LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
     110
     111==== error-number
     112
     113<procedure>(error-number LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
     114
     115==== error-positive-number
     116
     117<procedure>(error-positive-number LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
     118
     119==== error-cardinal-number
     120
     121<procedure>(error-cardinal-number LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
     122
     123==== error-procedure
     124
     125<procedure>(error-procedure LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
     126
     127==== error-input-port
     128
     129<procedure>(error-input-port LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
     130
     131==== error-output-port
     132
     133<procedure>(error-output-port LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
     134
     135==== error-list
     136
     137<procedure>(error-list LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
     138
     139==== error-pair
     140
     141<procedure>(error-pair LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
     142
     143==== error-blob
     144
     145<procedure>(error-blob LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
     146
     147==== error-vector
     148
     149<procedure>(error-vector LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
     150
     151==== error-structure
     152
     153<procedure>(error-structure LOCATION OBJECT TAG [ARGUMENT-NAME])</procedure>
     154
     155==== error-symbol
     156
     157<procedure>(error-symbol LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
     158
     159==== error-keyword
     160
     161<procedure>(error-keyword LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
     162
     163==== error-string
     164
     165<procedure>(error-string LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
     166
     167==== error-char
     168
     169<procedure>(error-char LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
     170
     171==== error-boolean
     172
     173<procedure>(error-boolean LOCATION OBJECT TYPE-NAME [ARGUMENT-NAME])</procedure>
     174
     175==== define-error-type
     176
     177<syntax>(define-error-type TYPE [MESSAGE])</syntax>
     178
     179Creates a procedure definition for {{error-TYPE}} with the signature of the
     180above error procedures. The error message is either {{MESSAGE}}, when present,
     181or {{"TYPE"}}.
     182
     183<enscript language=scheme>
     184(define-error-type hash-table)
     185;=> (define (error-hash-table loc obj #!optional argnam)
     186;     (error-argument-type loc obj "hash-table" argnam) )
     187</enscript>
    174188
    175189
     
    273287
    274288<procedure>(check-boolean LOCATION OBJECT [ARGUMENT-NAME])</procedure>
     289
     290==== define-check-type
     291
     292<syntax>(define-check-type TYPE [PREDICATE])</syntax>
     293
     294Creates a procedure definition for {{check-TYPE}} with the signature of the
     295above check procedures. The predicate is either {{PREDICATE}}, when present,
     296or {{TYPE?}}.
     297
     298<enscript language=scheme>
     299(define-check-type hash-table)
     300;=> (define (check-hash-table loc obj #!optional argnam)
     301;     (unless (hash-table? obj)
     302;       (error-hash-table loc obj argnam) ) )
     303</enscript>
     304
     305==== define-check+error-type
     306
     307<syntax>(define-check+error-type TYPE [PREDICATE])</syntax>
     308
     309Creates a procedure definition for {{check-TYPE}} with the signature of the
     310above check procedures. The predicate is either {{PREDICATE}}, when present,
     311or {{TYPE?}}.
     312
     313<enscript language=scheme>
     314(define-check+error-type hash-table)
     315;=> (define (check-hash-table loc obj #!optional argnam)
     316;     (unless (hash-table? obj)
     317;       (error-hash-table loc obj argnam) ) )
     318</enscript>
    275319
    276320
Note: See TracChangeset for help on using the changeset viewer.