nendo 0.7.0 → 0.7.1

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
@@ -4,765 +4,537 @@
4
4
  #
5
5
 
6
6
  trampCall(
7
- begin
7
+ begin #execFunc
8
8
  def self._and_MIMARKlet_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_and_MIMARKlet_ASMARK', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
9
9
  @global_lisp_binding['_and_MIMARKlet_ASMARK'] = self.method( :_and_MIMARKlet_ASMARK_METHOD )
10
10
  @_and_MIMARKlet_ASMARK =
11
11
  trampCall(
12
- begin
13
- trampCall( self._er_MIMARKmacro_MIMARKtransformer_METHOD( 'er-macro-transformer',
14
- begin
15
- trampCall(@_er_MIMARKmacro_MIMARKtransformer)
16
- end ,
17
- [
18
- Proc.new { |__expr__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30201,__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202,__compare__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30203|
19
- begin
20
- ___lambda = lambda { |___gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30228|
21
- if (
22
- begin
23
- trampCall(___gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30228)
24
- end
25
- ) then
26
- begin
27
- trampCall(___gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30228)
28
- end
29
- else
30
- begin
31
- ___lambda = lambda { |___gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30229|
32
- if (
33
- begin
34
- trampCall(___gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30229)
35
- end
36
- ) then
37
- begin
38
- trampCall(___gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30229)
39
- end
40
- else
41
- begin
42
- ___lambda = lambda { |___gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30230|
43
- if (
44
- begin
45
- trampCall(___gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30230)
46
- end
47
- ) then
48
- begin
49
- trampCall(___gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30230)
50
- end
51
- else
52
- begin
53
- ___lambda = lambda { |___gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30231|
54
- if (
55
- begin
56
- trampCall(___gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30231)
57
- end
58
- ) then
59
- begin
60
- trampCall(___gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30231)
61
- end
62
- else
63
- false
64
- end
65
- } ; ___lambda.call(
66
- begin raise RuntimeError,
67
- "no expansion for" ' ' +
68
- _write_MIMARKto_MIMARKstring(
69
- begin
70
- trampCall( self._strip_MIMARKsyntactic_MIMARKclosures_METHOD( 'strip-syntactic-closures',
71
- begin
72
- trampCall(@_strip_MIMARKsyntactic_MIMARKclosures)
73
- end ,
74
- [
75
- __expr__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30201
76
- ]
77
- ))
78
- end
79
- )
80
- rescue => __e
81
- __e.set_backtrace( [":1"] + __e.backtrace )
82
- raise __e
83
- end
84
- )
85
- end
86
- end
87
- } ; ___lambda.call(
88
- begin
89
- ___lambda = lambda { |__v__13__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30221|
12
+ trampCall( self._er_MIMARKmacro_MIMARKtransformer_METHOD( 'er-macro-transformer',
13
+ trampCall(@_er_MIMARKmacro_MIMARKtransformer) ,
14
+ [
15
+ Proc.new { |__expr__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30201,__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202,__compare__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30203|
16
+ begin #makeLet
17
+ ___lambda = lambda { |___gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30228|
18
+ if (
19
+ trampCall(___gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30228)
20
+ ) then
21
+ trampCall(___gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30228)
22
+ else
23
+ begin #makeLet
24
+ ___lambda = lambda { |___gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30229|
25
+ if (
26
+ trampCall(___gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30229)
27
+ ) then
28
+ trampCall(___gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30229)
29
+ else
30
+ begin #makeLet
31
+ ___lambda = lambda { |___gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30230|
32
+ if (
33
+ trampCall(___gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30230)
34
+ ) then
35
+ trampCall(___gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30230)
36
+ else
37
+ begin #makeLet
38
+ ___lambda = lambda { |___gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30231|
90
39
  if (
91
- begin
92
- _not(
93
- begin
94
- _eq_QUMARK(
95
- false ,
96
- begin
97
- _pair_QUMARK(
98
- __v__13__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30221
40
+ trampCall(___gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30231)
41
+ ) then
42
+ trampCall(___gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30231)
43
+ else
44
+ false
45
+ end
46
+ } ; ___lambda.call(
47
+ begin raise RuntimeError,
48
+ "no expansion for" ' ' +
49
+ _write_MIMARKto_MIMARKstring(
50
+ trampCall( self._strip_MIMARKsyntactic_MIMARKclosures_METHOD( 'strip-syntactic-closures',
51
+ trampCall(@_strip_MIMARKsyntactic_MIMARKclosures) ,
52
+ [
53
+ __expr__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30201
54
+ ]
55
+ ))
56
+ )
57
+ rescue => __e
58
+ __e.set_backtrace( [":1"] + __e.backtrace )
59
+ raise __e
60
+ end
61
+ )
62
+ end
63
+ end
64
+ } ; ___lambda.call(
65
+ begin #makeLet
66
+ ___lambda = lambda { |__v__13__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30221|
67
+ if (
68
+ _not(
69
+ _eq_QUMARK(
70
+ false ,
71
+ _pair_QUMARK(
72
+ __v__13__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30221
73
+ )
74
+ )
75
+ )
76
+ ) then
77
+ begin #makeLet
78
+ ___lambda = lambda { |__v__14__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30222|
79
+ if (
80
+ _not(
81
+ _eq_QUMARK(
82
+ false ,
83
+ _pair_QUMARK(
84
+ __v__14__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30222
85
+ )
86
+ )
87
+ )
88
+ ) then
89
+ begin #makeLet
90
+ ___lambda = lambda { |__v__15__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30223|
91
+ if (
92
+ _not(
93
+ _eq_QUMARK(
94
+ false ,
95
+ _pair_QUMARK(
96
+ __v__15__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30223
97
+ )
98
+ )
99
99
  )
100
+ ) then
101
+ begin #makeLet
102
+ ___lambda = lambda { |__v__16__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30224|
103
+ begin #makeLet
104
+ ___lambda = lambda { |_expr|
105
+ begin #makeLet
106
+ ___lambda = lambda { |__v__17__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30225|
107
+ if (
108
+ _not(
109
+ _eq_QUMARK(
110
+ false ,
111
+ _null_QUMARK(
112
+ __v__17__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30225
113
+ )
114
+ )
115
+ )
116
+ ) then
117
+ begin #makeLet
118
+ ___lambda = lambda { |__v__18__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30226|
119
+ begin #makeLet
120
+ ___lambda = lambda { |_rest|
121
+ begin #makeLet
122
+ ___lambda = lambda { |__v__19__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30227|
123
+ begin #makeLet
124
+ ___lambda = lambda { |_body|
125
+ _cons(
126
+ trampCall( callProcedure( '__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202', '_rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202',
127
+ trampCall(__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202) ,
128
+ [
129
+ :"let"
130
+ ]
131
+ )) ,
132
+ _cons(
133
+ _cons(
134
+ _cons(
135
+ trampCall( callProcedure( '__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202', '_rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202',
136
+ trampCall(__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202) ,
137
+ [
138
+ :"tmp"
139
+ ]
140
+ )) ,
141
+ _cons(
142
+ trampCall(_expr) ,
143
+ Cell.new()
144
+ )
145
+ ) ,
146
+ Cell.new()
147
+ ) ,
148
+ _cons(
149
+ _cons(
150
+ trampCall( callProcedure( '__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202', '_rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202',
151
+ trampCall(__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202) ,
152
+ [
153
+ :"and"
154
+ ]
155
+ )) ,
156
+ _cons(
157
+ trampCall( callProcedure( '__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202', '_rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202',
158
+ trampCall(__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202) ,
159
+ [
160
+ :"tmp"
161
+ ]
162
+ )) ,
163
+ _cons(
164
+ _cons(
165
+ trampCall( callProcedure( '__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202', '_rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202',
166
+ trampCall(__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202) ,
167
+ [
168
+ :"and-let*"
169
+ ]
170
+ )) ,
171
+ _cons(
172
+ trampCall(_rest) ,
173
+ trampCall(_body)
174
+ )
175
+ ) ,
176
+ Cell.new()
177
+ )
178
+ )
179
+ ) ,
180
+ Cell.new()
181
+ )
182
+ )
183
+ )
184
+ } ; ___lambda.call(
185
+ __v__19__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30227
186
+ )
187
+ end
188
+ } ; ___lambda.call(
189
+ _cdr(
190
+ __v__13__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30221
191
+ )
192
+ )
193
+ end
194
+ } ; ___lambda.call(
195
+ __v__18__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30226
196
+ )
197
+ end
198
+ } ; ___lambda.call(
199
+ _cdr(
200
+ __v__14__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30222
201
+ )
202
+ )
203
+ end
204
+ else
205
+ false
206
+ end
207
+ } ; ___lambda.call(
208
+ _cdr(
209
+ __v__15__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30223
210
+ )
211
+ )
212
+ end
213
+ } ; ___lambda.call(
214
+ __v__16__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30224
215
+ )
216
+ end
217
+ } ; ___lambda.call(
218
+ _car(
219
+ __v__15__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30223
220
+ )
221
+ )
222
+ end
223
+ else
224
+ false
100
225
  end
101
- )
102
- end
103
- )
226
+ } ; ___lambda.call(
227
+ _car(
228
+ __v__14__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30222
229
+ )
230
+ )
231
+ end
232
+ else
233
+ false
234
+ end
235
+ } ; ___lambda.call(
236
+ _car(
237
+ __v__13__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30221
238
+ )
239
+ )
104
240
  end
105
- ) then
106
- begin
107
- ___lambda = lambda { |__v__14__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30222|
108
- if (
109
- begin
110
- _not(
111
- begin
112
- _eq_QUMARK(
113
- false ,
114
- begin
115
- _pair_QUMARK(
116
- __v__14__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30222
117
- )
118
- end
241
+ else
242
+ false
243
+ end
244
+ } ; ___lambda.call(
245
+ _cdr(
246
+ __expr__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30201
247
+ )
248
+ )
249
+ end
250
+ )
251
+ end
252
+ end
253
+ } ; ___lambda.call(
254
+ begin #makeLet
255
+ ___lambda = lambda { |__v__4__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30212|
256
+ if (
257
+ _not(
258
+ _eq_QUMARK(
259
+ false ,
260
+ _pair_QUMARK(
261
+ __v__4__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30212
262
+ )
263
+ )
264
+ )
265
+ ) then
266
+ begin #makeLet
267
+ ___lambda = lambda { |__v__5__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30213|
268
+ if (
269
+ _not(
270
+ _eq_QUMARK(
271
+ false ,
272
+ _pair_QUMARK(
273
+ __v__5__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30213
274
+ )
275
+ )
276
+ )
277
+ ) then
278
+ begin #makeLet
279
+ ___lambda = lambda { |__v__6__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30214|
280
+ if (
281
+ _not(
282
+ _eq_QUMARK(
283
+ false ,
284
+ _pair_QUMARK(
285
+ __v__6__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30214
119
286
  )
120
- end
121
- )
122
- end
123
- ) then
124
- begin
125
- ___lambda = lambda { |__v__15__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30223|
126
- if (
127
- begin
128
- _not(
129
- begin
130
- _eq_QUMARK(
131
- false ,
132
- begin
133
- _pair_QUMARK(
134
- __v__15__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30223
135
- )
136
- end
287
+ )
288
+ )
289
+ ) then
290
+ begin #makeLet
291
+ ___lambda = lambda { |__v__7__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30215|
292
+ begin #makeLet
293
+ ___lambda = lambda { |_var|
294
+ begin #makeLet
295
+ ___lambda = lambda { |__v__8__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30216|
296
+ if (
297
+ _not(
298
+ _eq_QUMARK(
299
+ false ,
300
+ _pair_QUMARK(
301
+ __v__8__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30216
302
+ )
303
+ )
137
304
  )
138
- end
139
- )
140
- end
141
- ) then
142
- begin
143
- ___lambda = lambda { |__v__16__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30224|
144
- begin
145
- ___lambda = lambda { |_expr|
146
- begin
147
- ___lambda = lambda { |__v__17__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30225|
148
- if (
149
- begin
150
- _not(
151
- begin
152
- _eq_QUMARK(
153
- false ,
154
- begin
155
- _null_QUMARK(
156
- __v__17__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30225
157
- )
158
- end
305
+ ) then
306
+ begin #makeLet
307
+ ___lambda = lambda { |__v__9__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30217|
308
+ begin #makeLet
309
+ ___lambda = lambda { |_expr|
310
+ begin #makeLet
311
+ ___lambda = lambda { |__v__10__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30218|
312
+ if (
313
+ _not(
314
+ _eq_QUMARK(
315
+ false ,
316
+ _null_QUMARK(
317
+ __v__10__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30218
318
+ )
319
+ )
159
320
  )
160
- end
161
- )
162
- end
163
- ) then
164
- begin
165
- ___lambda = lambda { |__v__18__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30226|
166
- begin
167
- ___lambda = lambda { |_rest|
168
- begin
169
- ___lambda = lambda { |__v__19__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30227|
170
- begin
171
- ___lambda = lambda { |_body|
172
- begin
173
- _cons(
174
- begin
175
- trampCall( callProcedure( '__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202', '_rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202',
176
- begin
177
- trampCall(__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202)
178
- end ,
179
- [
180
- :"let"
181
- ]
182
- ))
183
- end ,
184
- begin
321
+ ) then
322
+ begin #makeLet
323
+ ___lambda = lambda { |__v__11__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30219|
324
+ begin #makeLet
325
+ ___lambda = lambda { |_rest|
326
+ begin #makeLet
327
+ ___lambda = lambda { |__v__12__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30220|
328
+ begin #makeLet
329
+ ___lambda = lambda { |_body|
185
330
  _cons(
186
- begin
187
- _cons(
188
- begin
189
- _cons(
190
- begin
191
- trampCall( callProcedure( '__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202', '_rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202',
192
- begin
193
- trampCall(__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202)
194
- end ,
195
- [
196
- :"tmp"
197
- ]
198
- ))
199
- end ,
200
- begin
331
+ trampCall( callProcedure( '__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202', '_rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202',
332
+ trampCall(__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202) ,
333
+ [
334
+ :"let"
335
+ ]
336
+ )) ,
337
+ _cons(
338
+ _cons(
339
+ _cons(
340
+ trampCall(_var) ,
201
341
  _cons(
202
- begin
203
- trampCall(_expr)
204
- end ,
342
+ trampCall(_expr) ,
205
343
  Cell.new()
206
344
  )
207
- end
208
- )
209
- end ,
210
- Cell.new()
211
- )
212
- end ,
213
- begin
214
- _cons(
215
- begin
216
- _cons(
217
- begin
345
+ ) ,
346
+ Cell.new()
347
+ ) ,
348
+ _cons(
349
+ _cons(
218
350
  trampCall( callProcedure( '__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202', '_rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202',
219
- begin
220
- trampCall(__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202)
221
- end ,
351
+ trampCall(__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202) ,
222
352
  [
223
353
  :"and"
224
354
  ]
225
- ))
226
- end ,
227
- begin
355
+ )) ,
228
356
  _cons(
229
- begin
230
- trampCall( callProcedure( '__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202', '_rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202',
231
- begin
232
- trampCall(__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202)
233
- end ,
234
- [
235
- :"tmp"
236
- ]
237
- ))
238
- end ,
239
- begin
240
- _cons(
241
- begin
242
- _cons(
243
- begin
244
- trampCall( callProcedure( '__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202', '_rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202',
245
- begin
246
- trampCall(__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202)
247
- end ,
248
- [
249
- :"and-let*"
250
- ]
251
- ))
252
- end ,
253
- begin
254
- _cons(
255
- begin
256
- trampCall(_rest)
257
- end ,
258
- begin
259
- trampCall(_body)
260
- end
261
- )
262
- end
263
- )
264
- end ,
265
- Cell.new()
266
- )
267
- end
357
+ trampCall(_var) ,
358
+ _cons(
359
+ _cons(
360
+ trampCall( callProcedure( '__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202', '_rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202',
361
+ trampCall(__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202) ,
362
+ [
363
+ :"and-let*"
364
+ ]
365
+ )) ,
366
+ _cons(
367
+ trampCall(_rest) ,
368
+ trampCall(_body)
369
+ )
370
+ ) ,
371
+ Cell.new()
372
+ )
268
373
  )
269
- end
270
- )
271
- end ,
272
- Cell.new()
273
- )
274
- end
374
+ ) ,
375
+ Cell.new()
376
+ )
377
+ )
275
378
  )
276
- end
277
- )
278
- end
279
- } ; ___lambda.call(
280
- __v__19__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30227
281
- )
282
- end
283
- } ; ___lambda.call(
284
- begin
285
- _cdr(
286
- __v__13__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30221
287
- )
288
- end
289
- )
290
- end
291
- } ; ___lambda.call(
292
- __v__18__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30226
293
- )
379
+ } ; ___lambda.call(
380
+ __v__12__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30220
381
+ )
382
+ end
383
+ } ; ___lambda.call(
384
+ _cdr(
385
+ __v__4__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30212
386
+ )
387
+ )
388
+ end
389
+ } ; ___lambda.call(
390
+ __v__11__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30219
391
+ )
392
+ end
393
+ } ; ___lambda.call(
394
+ _cdr(
395
+ __v__5__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30213
396
+ )
397
+ )
398
+ end
399
+ else
400
+ false
294
401
  end
295
402
  } ; ___lambda.call(
296
- begin
297
- _cdr(
298
- __v__14__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30222
299
- )
300
- end
403
+ _cdr(
404
+ __v__8__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30216
405
+ )
301
406
  )
302
407
  end
303
- else
304
- false
305
- end
306
- } ; ___lambda.call(
307
- begin
308
- _cdr(
309
- __v__15__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30223
310
- )
311
- end
312
- )
313
- end
314
- } ; ___lambda.call(
315
- __v__16__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30224
316
- )
408
+ } ; ___lambda.call(
409
+ __v__9__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30217
410
+ )
411
+ end
412
+ } ; ___lambda.call(
413
+ _car(
414
+ __v__8__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30216
415
+ )
416
+ )
417
+ end
418
+ else
419
+ false
317
420
  end
318
421
  } ; ___lambda.call(
319
- begin
320
- _car(
321
- __v__15__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30223
322
- )
323
- end
422
+ _cdr(
423
+ __v__6__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30214
424
+ )
324
425
  )
325
426
  end
326
- else
327
- false
328
- end
329
- } ; ___lambda.call(
330
- begin
331
- _car(
332
- __v__14__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30222
333
- )
334
- end
335
- )
336
- end
337
- else
338
- false
339
- end
340
- } ; ___lambda.call(
341
- begin
342
- _car(
343
- __v__13__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30221
344
- )
345
- end
346
- )
347
- end
348
- else
349
- false
350
- end
351
- } ; ___lambda.call(
352
- begin
353
- _cdr(
354
- __expr__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30201
355
- )
356
- end
357
- )
358
- end
359
- )
360
- end
361
- end
362
- } ; ___lambda.call(
363
- begin
364
- ___lambda = lambda { |__v__4__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30212|
365
- if (
366
- begin
367
- _not(
368
- begin
369
- _eq_QUMARK(
370
- false ,
371
- begin
372
- _pair_QUMARK(
373
- __v__4__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30212
374
- )
375
- end
376
- )
377
- end
378
- )
379
- end
380
- ) then
381
- begin
382
- ___lambda = lambda { |__v__5__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30213|
383
- if (
384
- begin
385
- _not(
386
- begin
387
- _eq_QUMARK(
388
- false ,
389
- begin
390
- _pair_QUMARK(
391
- __v__5__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30213
392
- )
427
+ } ; ___lambda.call(
428
+ __v__7__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30215
429
+ )
393
430
  end
394
- )
395
- end
396
- )
397
- end
398
- ) then
399
- begin
400
- ___lambda = lambda { |__v__6__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30214|
401
- if (
402
- begin
403
- _not(
404
- begin
405
- _eq_QUMARK(
406
- false ,
407
- begin
408
- _pair_QUMARK(
409
- __v__6__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30214
410
- )
411
- end
412
- )
413
- end
414
- )
415
- end
416
- ) then
417
- begin
418
- ___lambda = lambda { |__v__7__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30215|
419
- begin
420
- ___lambda = lambda { |_var|
421
- begin
422
- ___lambda = lambda { |__v__8__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30216|
423
- if (
424
- begin
425
- _not(
426
- begin
427
- _eq_QUMARK(
428
- false ,
429
- begin
430
- _pair_QUMARK(
431
- __v__8__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30216
432
- )
433
- end
434
- )
435
- end
436
- )
437
- end
438
- ) then
439
- begin
440
- ___lambda = lambda { |__v__9__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30217|
441
- begin
442
- ___lambda = lambda { |_expr|
443
- begin
444
- ___lambda = lambda { |__v__10__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30218|
445
- if (
446
- begin
447
- _not(
448
- begin
449
- _eq_QUMARK(
450
- false ,
451
- begin
452
- _null_QUMARK(
453
- __v__10__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30218
454
- )
455
- end
456
- )
457
- end
458
- )
459
- end
460
- ) then
461
- begin
462
- ___lambda = lambda { |__v__11__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30219|
463
- begin
464
- ___lambda = lambda { |_rest|
465
- begin
466
- ___lambda = lambda { |__v__12__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30220|
467
- begin
468
- ___lambda = lambda { |_body|
469
- begin
470
- _cons(
471
- begin
472
- trampCall( callProcedure( '__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202', '_rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202',
473
- begin
474
- trampCall(__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202)
475
- end ,
476
- [
477
- :"let"
478
- ]
479
- ))
480
- end ,
481
- begin
482
- _cons(
483
- begin
484
- _cons(
485
- begin
486
- _cons(
487
- begin
488
- trampCall(_var)
489
- end ,
490
- begin
491
- _cons(
492
- begin
493
- trampCall(_expr)
494
- end ,
495
- Cell.new()
496
- )
497
- end
498
- )
499
- end ,
500
- Cell.new()
501
- )
502
- end ,
503
- begin
504
- _cons(
505
- begin
506
- _cons(
507
- begin
508
- trampCall( callProcedure( '__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202', '_rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202',
509
- begin
510
- trampCall(__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202)
511
- end ,
512
- [
513
- :"and"
514
- ]
515
- ))
516
- end ,
517
- begin
518
- _cons(
519
- begin
520
- trampCall(_var)
521
- end ,
522
- begin
523
- _cons(
524
- begin
525
- _cons(
526
- begin
527
- trampCall( callProcedure( '__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202', '_rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202',
528
- begin
529
- trampCall(__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202)
530
- end ,
531
- [
532
- :"and-let*"
533
- ]
534
- ))
535
- end ,
536
- begin
537
- _cons(
538
- begin
539
- trampCall(_rest)
540
- end ,
541
- begin
542
- trampCall(_body)
543
- end
544
- )
545
- end
546
- )
547
- end ,
548
- Cell.new()
549
- )
550
- end
551
- )
552
- end
553
- )
554
- end ,
555
- Cell.new()
556
- )
557
- end
558
- )
559
- end
560
- )
561
- end
562
- } ; ___lambda.call(
563
- __v__12__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30220
564
- )
565
- end
566
- } ; ___lambda.call(
567
- begin
568
- _cdr(
569
- __v__4__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30212
570
- )
571
- end
572
- )
573
- end
574
- } ; ___lambda.call(
575
- __v__11__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30219
576
- )
577
- end
578
- } ; ___lambda.call(
579
- begin
580
- _cdr(
581
- __v__5__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30213
582
- )
583
- end
584
- )
585
- end
586
- else
587
- false
588
- end
589
- } ; ___lambda.call(
590
- begin
591
- _cdr(
592
- __v__8__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30216
593
- )
594
- end
595
- )
596
- end
597
- } ; ___lambda.call(
598
- __v__9__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30217
599
- )
600
- end
601
- } ; ___lambda.call(
602
- begin
603
- _car(
604
- __v__8__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30216
605
- )
606
- end
607
- )
608
- end
609
- else
610
- false
611
- end
612
- } ; ___lambda.call(
613
- begin
614
- _cdr(
615
- __v__6__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30214
616
- )
617
- end
618
- )
619
- end
620
- } ; ___lambda.call(
621
- __v__7__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30215
622
- )
623
- end
624
- } ; ___lambda.call(
625
- begin
626
- _car(
627
- __v__6__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30214
628
- )
629
- end
630
- )
631
- end
632
- else
633
- false
634
- end
635
- } ; ___lambda.call(
636
- begin
637
- _car(
638
- __v__5__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30213
639
- )
431
+ } ; ___lambda.call(
432
+ _car(
433
+ __v__6__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30214
434
+ )
435
+ )
640
436
  end
641
- )
642
- end
643
- else
644
- false
645
- end
646
- } ; ___lambda.call(
647
- begin
648
- _car(
649
- __v__4__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30212
650
- )
437
+ else
438
+ false
439
+ end
440
+ } ; ___lambda.call(
441
+ _car(
442
+ __v__5__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30213
443
+ )
444
+ )
651
445
  end
652
- )
653
- end
654
- else
655
- false
656
- end
657
- } ; ___lambda.call(
658
- begin
659
- _cdr(
660
- __expr__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30201
661
- )
662
- end
663
- )
664
- end
665
- )
666
- end
667
- end
668
- } ; ___lambda.call(
669
- begin
670
- ___lambda = lambda { |__v__1__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30209|
671
- if (
672
- begin
673
- _not(
674
- begin
675
- _eq_QUMARK(
676
- false ,
677
- begin
678
- _pair_QUMARK(
679
- __v__1__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30209
680
- )
446
+ else
447
+ false
681
448
  end
682
- )
683
- end
684
- )
449
+ } ; ___lambda.call(
450
+ _car(
451
+ __v__4__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30212
452
+ )
453
+ )
454
+ end
455
+ else
456
+ false
457
+ end
458
+ } ; ___lambda.call(
459
+ _cdr(
460
+ __expr__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30201
461
+ )
462
+ )
685
463
  end
686
- ) then
687
- begin
688
- ___lambda = lambda { |__v__2__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30210|
689
- if (
690
- begin
691
- _not(
692
- begin
693
- _eq_QUMARK(
694
- false ,
695
- begin
696
- _null_QUMARK(
697
- __v__2__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30210
698
- )
699
- end
464
+ )
465
+ end
466
+ end
467
+ } ; ___lambda.call(
468
+ begin #makeLet
469
+ ___lambda = lambda { |__v__1__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30209|
470
+ if (
471
+ _not(
472
+ _eq_QUMARK(
473
+ false ,
474
+ _pair_QUMARK(
475
+ __v__1__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30209
476
+ )
477
+ )
478
+ )
479
+ ) then
480
+ begin #makeLet
481
+ ___lambda = lambda { |__v__2__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30210|
482
+ if (
483
+ _not(
484
+ _eq_QUMARK(
485
+ false ,
486
+ _null_QUMARK(
487
+ __v__2__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30210
700
488
  )
701
- end
702
- )
703
- end
704
- ) then
705
- begin
706
- ___lambda = lambda { |__v__3__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30211|
707
- begin
708
- ___lambda = lambda { |_body|
709
- begin
710
- _cons(
711
- begin
712
- trampCall( callProcedure( '__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202', '_rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202',
713
- begin
714
- trampCall(__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202)
715
- end ,
716
- [
717
- :"begin"
718
- ]
719
- ))
720
- end ,
721
- begin
722
- trampCall(_body)
723
- end
724
- )
725
- end
726
- } ; ___lambda.call(
727
- __v__3__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30211
728
- )
729
- end
730
- } ; ___lambda.call(
731
- begin
732
- _cdr(
733
- __v__1__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30209
489
+ )
490
+ )
491
+ ) then
492
+ begin #makeLet
493
+ ___lambda = lambda { |__v__3__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30211|
494
+ begin #makeLet
495
+ ___lambda = lambda { |_body|
496
+ _cons(
497
+ trampCall( callProcedure( '__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202', '_rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202',
498
+ trampCall(__rename__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30202) ,
499
+ [
500
+ :"begin"
501
+ ]
502
+ )) ,
503
+ trampCall(_body)
734
504
  )
735
- end
736
- )
737
- end
738
- else
739
- false
740
- end
741
- } ; ___lambda.call(
742
- begin
743
- _car(
744
- __v__1__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30209
745
- )
505
+ } ; ___lambda.call(
506
+ __v__3__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30211
507
+ )
508
+ end
509
+ } ; ___lambda.call(
510
+ _cdr(
511
+ __v__1__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30209
512
+ )
513
+ )
746
514
  end
747
- )
748
- end
749
- else
750
- false
751
- end
752
- } ; ___lambda.call(
753
- begin
754
- _cdr(
755
- __expr__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30201
756
- )
515
+ else
516
+ false
517
+ end
518
+ } ; ___lambda.call(
519
+ _car(
520
+ __v__1__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30209
521
+ )
522
+ )
757
523
  end
758
- )
759
- end
760
- )
761
- end
762
- }
763
- ]
764
- ))
765
- end
524
+ else
525
+ false
526
+ end
527
+ } ; ___lambda.call(
528
+ _cdr(
529
+ __expr__gensym__44adcf5e9bc103ebc6f421698db2c9569e38c060_30201
530
+ )
531
+ )
532
+ end
533
+ )
534
+ end
535
+ }
536
+ ]
537
+ ))
766
538
  )
767
539
  end
768
540
  )