-
Notifications
You must be signed in to change notification settings - Fork 0
/
r6rs-args.scm
218 lines (218 loc) · 10.9 KB
/
r6rs-args.scm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
(procedure "fixnum?" (arg "obj"))
(procedure "fixnum-width")
(procedure "least-fixnum")
(procedure "greatest-fixnum")
(procedure "fx=?" (arg "fx") (arg "fx") (arg "fx") (arg "..." rest))
(procedure "fx>?" (arg "fx") (arg "fx") (arg "fx") (arg "..." rest))
(procedure "fx<?" (arg "fx") (arg "fx") (arg "fx") (arg "..." rest))
(procedure "fx>=?" (arg "fx") (arg "fx") (arg "fx") (arg "..." rest))
(procedure "fx<=?" (arg "fx") (arg "fx") (arg "fx") (arg "..." rest))
(procedure "fxzero?" (arg "fx"))
(procedure "fxpositive?" (arg "fx"))
(procedure "fxnegative?" (arg "fx"))
(procedure "fxodd?" (arg "fx"))
(procedure "fxeven?" (arg "fx"))
(procedure "fxmax" (arg "fx") (arg "fx") (arg "..." rest))
(procedure "fxmin" (arg "fx") (arg "fx") (arg "..." rest))
(procedure "fx+" (arg "fx") (arg "fx"))
(procedure "fx*" (arg "fx") (arg "fx"))
(procedure "fx-" (arg "fx") (arg "fx"))
(procedure "fx-" (arg "fx"))
(procedure "fxdiv-and-mod" (arg "fx") (arg "fx"))
(procedure "fxdiv" (arg "fx") (arg "fx"))
(procedure "fxmod" (arg "fx") (arg "fx"))
(procedure "fxdiv0-and-mod0" (arg "fx") (arg "fx"))
(procedure "fxdiv0" (arg "fx") (arg "fx"))
(procedure "fxmod0" (arg "fx") (arg "fx"))
(syntax "define" (arg "variable") (arg "expression"))
(syntax "define" (arg "variable"))
(syntax "define-syntax" (arg "keyword") (arg "expression"))
(syntax "quote" (arg "datum"))
(syntax "lambda" (arg "formals") (arg "body"))
(syntax "if" (arg "test") (arg "consequent") (arg "alternate"))
(syntax "if" (arg "test") (arg "consequent"))
(syntax "set!" (arg "variable") (arg "expression"))
(syntax "cond" (arg "cond clause") (arg "cond clause") (arg "..." rest))
(syntax "case" (arg "key") (arg "case clause") (arg "case clause") (arg "..." rest))
(syntax "and" (arg "test") (arg "..." rest))
(syntax "or" (arg "test") (arg "..." rest))
(syntax "let" (arg "bindings") (arg "body"))
(syntax "let*" (arg "bindings") (arg "body"))
(syntax "letrec" (arg "bindings") (arg "body"))
(syntax "letrec*" (arg "bindings") (arg "body"))
(syntax "let-values" (arg "mv-bindings") (arg "body"))
(syntax "let*-values" (arg "mv-bindings") (arg "body"))
(syntax "begin" (arg "form") (arg "..." rest))
(syntax "begin" (arg "expression") (arg "expression") (arg "..." rest))
(procedure "eqv?" (arg "obj") (arg "obj"))
(procedure "eq?" (arg "obj") (arg "obj"))
(procedure "equal?" (arg "obj") (arg "obj"))
(procedure "procedure?" (arg "obj"))
(syntax "when" (arg "test") (arg "expression") (arg "expression") (arg "..." rest))
(syntax "unless" (arg "test") (arg "expression") (arg "expression") (arg "..." rest))
(procedure "eof-object")
(procedure "eof-object?" (arg "obj"))
(procedure "call-with-input-file" (arg "filename") (arg "proc"))
(procedure "call-with-output-file" (arg "filename") (arg "proc"))
(procedure "input-port?" (arg "obj"))
(procedure "output-port?" (arg "obj"))
(procedure "current-input-port")
(procedure "current-output-port")
(procedure "current-error-port")
(procedure "with-input-from-file" (arg "filename") (arg "thunk"))
(procedure "with-output-to-file" (arg "filename") (arg "thunk"))
(procedure "open-input-file" (arg "filename"))
(procedure "open-output-file" (arg "filename"))
(procedure "close-input-port" (arg "input-port"))
(procedure "close-output-port" (arg "output-port"))
(procedure "read-char")
(procedure "read-char" (arg "textual-input-port"))
(procedure "peek-char")
(procedure "peek-char" (arg "textual-input-port"))
(procedure "read")
(procedure "read" (arg "textual-input-port"))
(procedure "write-char" (arg "char"))
(procedure "write-char" (arg "char") (arg "textual-output-port"))
(procedure "newline")
(procedure "newline" (arg "textual-output-port"))
(procedure "display" (arg "obj"))
(procedure "display" (arg "obj") (arg "textual-output-port"))
(procedure "write" (arg "obj"))
(procedure "write" (arg "obj") (arg "textual-output-port"))
(procedure "make-enumeration" (arg "symbol-list"))
(procedure "enum-set-universe" (arg "enum-set"))
(procedure "enum-set-indexer" (arg "enum-set"))
(procedure "enum-set-constructor" (arg "enum-set"))
(procedure "enum-set->list" (arg "enum-set"))
(procedure "enum-set-member?" (arg "symbol") (arg "enum-set"))
(procedure "enum-set-subset?" (arg "enum-set") (arg "enum-set"))
(procedure "enum-set=?" (arg "enum-set") (arg "enum-set"))
(procedure "enum-set-union" (arg "enum-set") (arg "enum-set"))
(procedure "enum-set-intersection" (arg "enum-set") (arg "enum-set"))
(procedure "enum-set-difference" (arg "enum-set") (arg "enum-set"))
(procedure "enum-set-complement" (arg "enum-set"))
(procedure "enum-set-projection" (arg "enum-set") (arg "enum-set"))
(procedure "eval" (arg "expression") (arg "environment"))
(procedure "environment" (arg "import-spec") (arg "..." rest))
(procedure "with-exception-handler" (arg "handler") (arg "thunk"))
(procedure "file-exists?" (arg "filename"))
(procedure "delete-file" (arg "filename"))
(procedure "make-eq-hashtable")
(procedure "make-eq-hashtable" (arg "k"))
(procedure "make-eqv-hashtable")
(procedure "make-eqv-hashtable" (arg "k"))
(procedure "make-hashtable" (arg "hash-function") (arg "equiv"))
(procedure "make-hashtable" (arg "hash-function") (arg "equiv") (arg "k"))
(procedure "hashtable?" (arg "obj"))
(procedure "hashtable-size" (arg "hashtable"))
(procedure "hashtable-ref" (arg "hashtable") (arg "key") (arg "default"))
(procedure "hashtable-set!" (arg "hashtable") (arg "key") (arg "obj"))
(procedure "hashtable-delete!" (arg "hashtable") (arg "key"))
(procedure "hashtable-contains?" (arg "hashtable") (arg "key"))
(procedure "hashtable-update!" (arg "hashtable") (arg "key") (arg "proc") (arg "default"))
(procedure "hashtable-copy" (arg "hashtable"))
(procedure "hashtable-copy" (arg "hashtable") (arg "mutable"))
(procedure "hashtable-clear!" (arg "hashtable"))
(procedure "hashtable-clear!" (arg "hashtable") (arg "k"))
(procedure "hashtable-keys" (arg "hashtable"))
(procedure "hashtable-entries" (arg "hashtable"))
(procedure "make-i/o-error")
(procedure "i/o-error?" (arg "obj"))
(procedure "make-i/o-read-error")
(procedure "i/o-read-error?" (arg "obj"))
(procedure "make-i/o-write-error")
(procedure "i/o-write-error?" (arg "obj"))
(procedure "make-i/o-invalid-position-error" (arg "position"))
(procedure "i/o-invalid-position-error?" (arg "obj"))
(procedure "i/o-error-position" (arg "condition"))
(procedure "make-i/o-filename-error" (arg "filename"))
(procedure "i/o-filename-error?" (arg "obj"))
(procedure "i/o-error-filename" (arg "condition"))
(procedure "make-i/o-file-protection-error" (arg "filename"))
(procedure "i/o-file-protection-error?" (arg "obj"))
(procedure "make-i/o-file-is-read-only-error" (arg "filename"))
(procedure "i/o-file-is-read-only-error?" (arg "obj"))
(procedure "make-i/o-file-already-exists-error" (arg "filename"))
(procedure "i/o-file-already-exists-error?" (arg "obj"))
(procedure "make-i/o-file-does-not-exist-error" (arg "filename"))
(procedure "i/o-file-does-not-exist-error?" (arg "obj"))
(procedure "make-i/o-port-error" (arg "pobj"))
(procedure "i/o-port-error?" (arg "obj"))
(procedure "i/o-error-port" (arg "condition"))
(procedure "find" (arg "proc") (arg "list"))
(procedure "for-all" (arg "proc") (arg "list") (arg "list") (arg "..." rest) (arg "list"))
(procedure "exists" (arg "proc") (arg "list") (arg "list") (arg "..." rest) (arg "list"))
(procedure "filter" (arg "proc") (arg "list"))
(procedure "partition" (arg "proc") (arg "list"))
(procedure "fold-left" (arg "combine") (arg "nil") (arg "list") (arg "list") (arg "..." rest) (arg "list"))
(procedure "fold-right" (arg "combine") (arg "nil") (arg "list") (arg "list") (arg "..." rest) (arg "list"))
(procedure "remp" (arg "proc") (arg "list"))
(procedure "remove" (arg "obj") (arg "list"))
(procedure "remv" (arg "obj") (arg "list"))
(procedure "remq" (arg "obj") (arg "list"))
(procedure "memp" (arg "proc") (arg "list"))
(procedure "member" (arg "obj") (arg "list"))
(procedure "memv" (arg "obj") (arg "list"))
(procedure "memq" (arg "obj") (arg "list"))
(procedure "assp" (arg "proc") (arg "alist"))
(procedure "assoc" (arg "obj") (arg "alist"))
(procedure "assv" (arg "obj") (arg "alist"))
(procedure "assq" (arg "obj") (arg "alist"))
(procedure "cons*" (arg "obj") (arg "..." rest) (arg "obj") (arg "obj"))
(procedure "cons*" (arg "obj"))
(syntax "file-options" (arg "file-options symbol") (arg "..." rest))
(syntax "buffer-mode" (arg "buffer-mode symbol"))
(procedure "buffer-mode?" (arg "obj"))
(procedure "latin-1-codec")
(procedure "utf-8-codec")
(procedure "utf-16-codec")
(syntax "eol-style" (arg "eol-style symbol"))
(procedure "command-line")
(procedure "exit")
(procedure "exit" (arg "obj"))
(procedure "exact->inexact" (arg "z"))
(procedure "inexact->exact" (arg "z"))
(procedure "quotient" (arg "n") (arg "n"))
(procedure "remainder" (arg "n") (arg "n"))
(procedure "modulo" (arg "n") (arg "n"))
(syntax "delay" (arg "expression"))
(procedure "force" (arg "promise"))
(procedure "null-environment" (arg "n"))
(procedure "scheme-report-environment" (arg "n"))
(syntax "define-record-type" (arg "name spec") (arg "record clause"))
(procedure "set-car!" (arg "pair") (arg "obj"))
(procedure "list-sort" (arg "proc") (arg "list"))
(procedure "vector-sort" (arg "proc") (arg "vector"))
(procedure "vector-sort!" (arg "proc") (arg "vector"))
(procedure "string-set!" (arg "string") (arg "k") (arg "char"))
(procedure "string-fill!" (arg "string") (arg "char"))
(procedure "make-variable-transformer" (arg "proc"))
(procedure "char-upcase" (arg "char"))
(procedure "char-downcase" (arg "char"))
(procedure "char-titlecase" (arg "char"))
(procedure "char-foldcase" (arg "char"))
(procedure "char-ci=?" (arg "char") (arg "char") (arg "char") (arg "..." rest))
(procedure "char-ci<?" (arg "char") (arg "char") (arg "char") (arg "..." rest))
(procedure "char-ci>?" (arg "char") (arg "char") (arg "char") (arg "..." rest))
(procedure "char-ci<=?" (arg "char") (arg "char") (arg "char") (arg "..." rest))
(procedure "char-ci>=?" (arg "char") (arg "char") (arg "char") (arg "..." rest))
(procedure "char-alphabetic?" (arg "char"))
(procedure "char-numeric?" (arg "char"))
(procedure "char-whitespace?" (arg "char"))
(procedure "char-upper-case?" (arg "char"))
(procedure "char-lower-case?" (arg "char"))
(procedure "char-title-case?" (arg "char"))
(procedure "char-general-category" (arg "char"))
(procedure "string-upcase" (arg "string"))
(procedure "string-downcase" (arg "string"))
(procedure "string-titlecase" (arg "string"))
(procedure "string-foldcase" (arg "string"))
(procedure "string-ci=?" (arg "string") (arg "string") (arg "string") (arg "..." rest))
(procedure "string-ci<?" (arg "string") (arg "string") (arg "string") (arg "..." rest))
(procedure "string-ci>?" (arg "string") (arg "string") (arg "string") (arg "..." rest))
(procedure "string-ci<=?" (arg "string") (arg "string") (arg "string") (arg "..." rest))
(procedure "string-ci>=?" (arg "string") (arg "string") (arg "string") (arg "..." rest))
(procedure "string-normalize-nfd" (arg "string"))
(procedure "string-normalize-nfkd" (arg "string"))
(procedure "string-normalize-nfc" (arg "string"))
(procedure "string-normalize-nfkc" (arg "string"))