nendo 0.5.1 → 0.5.2

Sign up to get free protection for your applications and to get access to all the features.
Files changed (21) hide show
  1. data/benchmark/benchmark.nnd +62 -3
  2. data/benchmark/nendo_benchmark_code.nnd +22 -0
  3. data/benchmark/ruby_benchmark_code.rb +9 -2
  4. data/lib/debug/syslog.nndc +6 -14
  5. data/lib/init.nnd +7 -5
  6. data/lib/init.nndc +6666 -13966
  7. data/lib/nendo.rb +144 -97
  8. data/lib/nendo/test.nndc +279 -511
  9. data/lib/rfc/json.nndc +79 -167
  10. data/lib/srfi-1.nndc +3004 -6516
  11. data/lib/srfi-2.nndc +314 -914
  12. data/lib/srfi-26.nndc +1094 -2742
  13. data/lib/text/html-lite.nndc +465 -897
  14. data/lib/text/tree.nndc +27 -67
  15. data/lib/util/combinations.nndc +1253 -3317
  16. data/lib/util/list.nnd +0 -4
  17. data/lib/util/list.nndc +1411 -3419
  18. data/lib/util/match.nndc +21344 -61648
  19. data/test/nendo-util-test.nnd +5 -13
  20. data/test/nendo_spec.rb +134 -13
  21. metadata +3 -3
data/lib/srfi-2.nndc CHANGED
@@ -5,7 +5,7 @@
5
5
 
6
6
  trampCall(
7
7
  begin
8
- def self._and_MIMARKlet_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
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(
@@ -99,110 +99,38 @@ trampCall(
99
99
  begin
100
100
  ___lambda = lambda { |__v__13__gensym__de5653c32c493c653ee6557b7cf108e127448746_20052|
101
101
  if (
102
- trampCall( self._not_METHOD( 'not',
103
- begin
104
- if @global_lisp_binding.has_key?('_not') then
105
- trampCall(@_not)
106
- else raise NameError.new( "Error: undefined variable _not", "_not" ) end
107
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
108
- end ,
109
- [
110
- trampCall( self._eq_QUMARK_METHOD( 'eq?',
111
- begin
112
- if @global_lisp_binding.has_key?('_eq_QUMARK') then
113
- trampCall(@_eq_QUMARK)
114
- else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
115
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
116
- end ,
117
- [
118
- false ,
119
- trampCall( self._pair_QUMARK_METHOD( 'pair?',
120
- begin
121
- if @global_lisp_binding.has_key?('_pair_QUMARK') then
122
- trampCall(@_pair_QUMARK)
123
- else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
124
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
125
- end ,
126
- [
127
- __v__13__gensym__de5653c32c493c653ee6557b7cf108e127448746_20052
128
- ]
129
- ))
130
- ]
131
- ))
132
- ]
133
- ))
102
+ _not(
103
+ _eq_QUMARK(
104
+ false ,
105
+ _pair_QUMARK(
106
+ __v__13__gensym__de5653c32c493c653ee6557b7cf108e127448746_20052
107
+ )
108
+ )
109
+ )
134
110
  ) then
135
111
  begin
136
112
  ___lambda = lambda { |__v__14__gensym__de5653c32c493c653ee6557b7cf108e127448746_20053|
137
113
  if (
138
- trampCall( self._not_METHOD( 'not',
139
- begin
140
- if @global_lisp_binding.has_key?('_not') then
141
- trampCall(@_not)
142
- else raise NameError.new( "Error: undefined variable _not", "_not" ) end
143
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
144
- end ,
145
- [
146
- trampCall( self._eq_QUMARK_METHOD( 'eq?',
147
- begin
148
- if @global_lisp_binding.has_key?('_eq_QUMARK') then
149
- trampCall(@_eq_QUMARK)
150
- else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
151
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
152
- end ,
153
- [
154
- false ,
155
- trampCall( self._pair_QUMARK_METHOD( 'pair?',
156
- begin
157
- if @global_lisp_binding.has_key?('_pair_QUMARK') then
158
- trampCall(@_pair_QUMARK)
159
- else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
160
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
161
- end ,
162
- [
163
- __v__14__gensym__de5653c32c493c653ee6557b7cf108e127448746_20053
164
- ]
165
- ))
166
- ]
167
- ))
168
- ]
169
- ))
114
+ _not(
115
+ _eq_QUMARK(
116
+ false ,
117
+ _pair_QUMARK(
118
+ __v__14__gensym__de5653c32c493c653ee6557b7cf108e127448746_20053
119
+ )
120
+ )
121
+ )
170
122
  ) then
171
123
  begin
172
124
  ___lambda = lambda { |__v__15__gensym__de5653c32c493c653ee6557b7cf108e127448746_20054|
173
125
  if (
174
- trampCall( self._not_METHOD( 'not',
175
- begin
176
- if @global_lisp_binding.has_key?('_not') then
177
- trampCall(@_not)
178
- else raise NameError.new( "Error: undefined variable _not", "_not" ) end
179
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
180
- end ,
181
- [
182
- trampCall( self._eq_QUMARK_METHOD( 'eq?',
183
- begin
184
- if @global_lisp_binding.has_key?('_eq_QUMARK') then
185
- trampCall(@_eq_QUMARK)
186
- else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
187
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
188
- end ,
189
- [
190
- false ,
191
- trampCall( self._pair_QUMARK_METHOD( 'pair?',
192
- begin
193
- if @global_lisp_binding.has_key?('_pair_QUMARK') then
194
- trampCall(@_pair_QUMARK)
195
- else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
196
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
197
- end ,
198
- [
199
- __v__15__gensym__de5653c32c493c653ee6557b7cf108e127448746_20054
200
- ]
201
- ))
202
- ]
203
- ))
204
- ]
205
- ))
126
+ _not(
127
+ _eq_QUMARK(
128
+ false ,
129
+ _pair_QUMARK(
130
+ __v__15__gensym__de5653c32c493c653ee6557b7cf108e127448746_20054
131
+ )
132
+ )
133
+ )
206
134
  ) then
207
135
  begin
208
136
  ___lambda = lambda { |__v__16__gensym__de5653c32c493c653ee6557b7cf108e127448746_20055|
@@ -211,38 +139,14 @@ trampCall(
211
139
  begin
212
140
  ___lambda = lambda { |__v__17__gensym__de5653c32c493c653ee6557b7cf108e127448746_20056|
213
141
  if (
214
- trampCall( self._not_METHOD( 'not',
215
- begin
216
- if @global_lisp_binding.has_key?('_not') then
217
- trampCall(@_not)
218
- else raise NameError.new( "Error: undefined variable _not", "_not" ) end
219
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
220
- end ,
221
- [
222
- trampCall( self._eq_QUMARK_METHOD( 'eq?',
223
- begin
224
- if @global_lisp_binding.has_key?('_eq_QUMARK') then
225
- trampCall(@_eq_QUMARK)
226
- else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
227
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
228
- end ,
229
- [
230
- false ,
231
- trampCall( self._null_QUMARK_METHOD( 'null?',
232
- begin
233
- if @global_lisp_binding.has_key?('_null_QUMARK') then
234
- trampCall(@_null_QUMARK)
235
- else raise NameError.new( "Error: undefined variable _null_QUMARK", "_null_QUMARK" ) end
236
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
237
- end ,
238
- [
239
- __v__17__gensym__de5653c32c493c653ee6557b7cf108e127448746_20056
240
- ]
241
- ))
242
- ]
243
- ))
244
- ]
245
- ))
142
+ _not(
143
+ _eq_QUMARK(
144
+ false ,
145
+ _null_QUMARK(
146
+ __v__17__gensym__de5653c32c493c653ee6557b7cf108e127448746_20056
147
+ )
148
+ )
149
+ )
246
150
  ) then
247
151
  begin
248
152
  ___lambda = lambda { |__v__18__gensym__de5653c32c493c653ee6557b7cf108e127448746_20057|
@@ -252,193 +156,97 @@ trampCall(
252
156
  ___lambda = lambda { |__v__19__gensym__de5653c32c493c653ee6557b7cf108e127448746_20058|
253
157
  begin
254
158
  ___lambda = lambda { |_body|
255
- trampCall( self._cons_METHOD( 'cons',
256
- begin
257
- if @global_lisp_binding.has_key?('_cons') then
258
- trampCall(@_cons)
259
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
260
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
261
- end ,
262
- [
263
- trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
264
- begin
265
- trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
266
- rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
267
- end ,
268
- [
269
- :"let"
270
- ]
271
- )) ,
272
- trampCall( self._cons_METHOD( 'cons',
273
- begin
274
- if @global_lisp_binding.has_key?('_cons') then
275
- trampCall(@_cons)
276
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
277
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
278
- end ,
279
- [
280
- trampCall( self._cons_METHOD( 'cons',
281
- begin
282
- if @global_lisp_binding.has_key?('_cons') then
283
- trampCall(@_cons)
284
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
285
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
286
- end ,
287
- [
288
- trampCall( self._cons_METHOD( 'cons',
289
- begin
290
- if @global_lisp_binding.has_key?('_cons') then
291
- trampCall(@_cons)
292
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
293
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
294
- end ,
295
- [
296
- trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
297
- begin
298
- trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
299
- rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
300
- end ,
301
- [
302
- :"tmp"
303
- ]
304
- )) ,
305
- trampCall( self._cons_METHOD( 'cons',
306
- begin
307
- if @global_lisp_binding.has_key?('_cons') then
308
- trampCall(@_cons)
309
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
310
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
311
- end ,
312
- [
313
- begin
314
- trampCall(_expr)
315
- rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:41"] + __e.backtrace ) ; raise __e
316
- end ,
317
- Cell.new()
318
- ]
319
- ))
320
- ]
321
- )) ,
322
- Cell.new()
323
- ]
324
- )) ,
325
- trampCall( self._cons_METHOD( 'cons',
326
- begin
327
- if @global_lisp_binding.has_key?('_cons') then
328
- trampCall(@_cons)
329
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
330
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
331
- end ,
332
- [
333
- trampCall( self._cons_METHOD( 'cons',
334
- begin
335
- if @global_lisp_binding.has_key?('_cons') then
336
- trampCall(@_cons)
337
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
338
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
339
- end ,
340
- [
341
- trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
342
- begin
343
- trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
344
- rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
345
- end ,
346
- [
347
- :"and"
348
- ]
349
- )) ,
350
- trampCall( self._cons_METHOD( 'cons',
351
- begin
352
- if @global_lisp_binding.has_key?('_cons') then
353
- trampCall(@_cons)
354
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
355
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
356
- end ,
357
- [
358
- trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
359
- begin
360
- trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
361
- rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
362
- end ,
363
- [
364
- :"tmp"
365
- ]
366
- )) ,
367
- trampCall( self._cons_METHOD( 'cons',
368
- begin
369
- if @global_lisp_binding.has_key?('_cons') then
370
- trampCall(@_cons)
371
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
372
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
373
- end ,
374
- [
375
- trampCall( self._cons_METHOD( 'cons',
376
- begin
377
- if @global_lisp_binding.has_key?('_cons') then
378
- trampCall(@_cons)
379
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
380
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
381
- end ,
382
- [
383
- trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
384
- begin
385
- trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
386
- rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
387
- end ,
388
- [
389
- :"and-let*"
390
- ]
391
- )) ,
392
- trampCall( self._cons_METHOD( 'cons',
393
- begin
394
- if @global_lisp_binding.has_key?('_cons') then
395
- trampCall(@_cons)
396
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
397
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
398
- end ,
399
- [
400
- begin
401
- trampCall(_rest)
402
- rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
403
- end ,
404
- begin
405
- trampCall(_body)
406
- rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
407
- end
408
- ]
409
- ))
410
- ]
411
- )) ,
412
- Cell.new()
413
- ]
414
- ))
415
- ]
416
- ))
417
- ]
418
- )) ,
419
- Cell.new()
420
- ]
421
- ))
422
- ]
423
- ))
424
- ]
425
- ))
159
+ _cons(
160
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
161
+ begin
162
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
163
+ rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
164
+ end ,
165
+ [
166
+ :"let"
167
+ ]
168
+ )) ,
169
+ _cons(
170
+ _cons(
171
+ _cons(
172
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
173
+ begin
174
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
175
+ rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
176
+ end ,
177
+ [
178
+ :"tmp"
179
+ ]
180
+ )) ,
181
+ _cons(
182
+ begin
183
+ trampCall(_expr)
184
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:41"] + __e.backtrace ) ; raise __e
185
+ end ,
186
+ Cell.new()
187
+ )
188
+ ) ,
189
+ Cell.new()
190
+ ) ,
191
+ _cons(
192
+ _cons(
193
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
194
+ begin
195
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
196
+ rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
197
+ end ,
198
+ [
199
+ :"and"
200
+ ]
201
+ )) ,
202
+ _cons(
203
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
204
+ begin
205
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
206
+ rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
207
+ end ,
208
+ [
209
+ :"tmp"
210
+ ]
211
+ )) ,
212
+ _cons(
213
+ _cons(
214
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
215
+ begin
216
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
217
+ rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
218
+ end ,
219
+ [
220
+ :"and-let*"
221
+ ]
222
+ )) ,
223
+ _cons(
224
+ begin
225
+ trampCall(_rest)
226
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
227
+ end ,
228
+ begin
229
+ trampCall(_body)
230
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
231
+ end
232
+ )
233
+ ) ,
234
+ Cell.new()
235
+ )
236
+ )
237
+ ) ,
238
+ Cell.new()
239
+ )
240
+ )
241
+ )
426
242
  } ; ___lambda.call(
427
243
  __v__19__gensym__de5653c32c493c653ee6557b7cf108e127448746_20058
428
244
  )
429
245
  end
430
246
  } ; ___lambda.call(
431
- trampCall( self._cdr_METHOD( 'cdr',
432
- begin
433
- if @global_lisp_binding.has_key?('_cdr') then
434
- trampCall(@_cdr)
435
- else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
436
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
437
- end ,
438
- [
439
- __v__13__gensym__de5653c32c493c653ee6557b7cf108e127448746_20052
440
- ]
441
- ))
247
+ _cdr(
248
+ __v__13__gensym__de5653c32c493c653ee6557b7cf108e127448746_20052
249
+ )
442
250
  )
443
251
  end
444
252
  } ; ___lambda.call(
@@ -446,34 +254,18 @@ trampCall(
446
254
  )
447
255
  end
448
256
  } ; ___lambda.call(
449
- trampCall( self._cdr_METHOD( 'cdr',
450
- begin
451
- if @global_lisp_binding.has_key?('_cdr') then
452
- trampCall(@_cdr)
453
- else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
454
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
455
- end ,
456
- [
457
- __v__14__gensym__de5653c32c493c653ee6557b7cf108e127448746_20053
458
- ]
459
- ))
257
+ _cdr(
258
+ __v__14__gensym__de5653c32c493c653ee6557b7cf108e127448746_20053
259
+ )
460
260
  )
461
261
  end
462
262
  else
463
263
  false
464
264
  end
465
265
  } ; ___lambda.call(
466
- trampCall( self._cdr_METHOD( 'cdr',
467
- begin
468
- if @global_lisp_binding.has_key?('_cdr') then
469
- trampCall(@_cdr)
470
- else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
471
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
472
- end ,
473
- [
474
- __v__15__gensym__de5653c32c493c653ee6557b7cf108e127448746_20054
475
- ]
476
- ))
266
+ _cdr(
267
+ __v__15__gensym__de5653c32c493c653ee6557b7cf108e127448746_20054
268
+ )
477
269
  )
478
270
  end
479
271
  } ; ___lambda.call(
@@ -481,68 +273,36 @@ trampCall(
481
273
  )
482
274
  end
483
275
  } ; ___lambda.call(
484
- trampCall( self._car_METHOD( 'car',
485
- begin
486
- if @global_lisp_binding.has_key?('_car') then
487
- trampCall(@_car)
488
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
489
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
490
- end ,
491
- [
492
- __v__15__gensym__de5653c32c493c653ee6557b7cf108e127448746_20054
493
- ]
494
- ))
276
+ _car(
277
+ __v__15__gensym__de5653c32c493c653ee6557b7cf108e127448746_20054
278
+ )
495
279
  )
496
280
  end
497
281
  else
498
282
  false
499
283
  end
500
284
  } ; ___lambda.call(
501
- trampCall( self._car_METHOD( 'car',
502
- begin
503
- if @global_lisp_binding.has_key?('_car') then
504
- trampCall(@_car)
505
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
506
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
507
- end ,
508
- [
509
- __v__14__gensym__de5653c32c493c653ee6557b7cf108e127448746_20053
510
- ]
511
- ))
285
+ _car(
286
+ __v__14__gensym__de5653c32c493c653ee6557b7cf108e127448746_20053
287
+ )
512
288
  )
513
289
  end
514
290
  else
515
291
  false
516
292
  end
517
293
  } ; ___lambda.call(
518
- trampCall( self._car_METHOD( 'car',
519
- begin
520
- if @global_lisp_binding.has_key?('_car') then
521
- trampCall(@_car)
522
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
523
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
524
- end ,
525
- [
526
- __v__13__gensym__de5653c32c493c653ee6557b7cf108e127448746_20052
527
- ]
528
- ))
294
+ _car(
295
+ __v__13__gensym__de5653c32c493c653ee6557b7cf108e127448746_20052
296
+ )
529
297
  )
530
298
  end
531
299
  else
532
300
  false
533
301
  end
534
302
  } ; ___lambda.call(
535
- trampCall( self._cdr_METHOD( 'cdr',
536
- begin
537
- if @global_lisp_binding.has_key?('_cdr') then
538
- trampCall(@_cdr)
539
- else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
540
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
541
- end ,
542
- [
543
- __expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_20032
544
- ]
545
- ))
303
+ _cdr(
304
+ __expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_20032
305
+ )
546
306
  )
547
307
  end
548
308
  )
@@ -552,110 +312,38 @@ trampCall(
552
312
  begin
553
313
  ___lambda = lambda { |__v__4__gensym__de5653c32c493c653ee6557b7cf108e127448746_20043|
554
314
  if (
555
- trampCall( self._not_METHOD( 'not',
556
- begin
557
- if @global_lisp_binding.has_key?('_not') then
558
- trampCall(@_not)
559
- else raise NameError.new( "Error: undefined variable _not", "_not" ) end
560
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
561
- end ,
562
- [
563
- trampCall( self._eq_QUMARK_METHOD( 'eq?',
564
- begin
565
- if @global_lisp_binding.has_key?('_eq_QUMARK') then
566
- trampCall(@_eq_QUMARK)
567
- else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
568
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
569
- end ,
570
- [
571
- false ,
572
- trampCall( self._pair_QUMARK_METHOD( 'pair?',
573
- begin
574
- if @global_lisp_binding.has_key?('_pair_QUMARK') then
575
- trampCall(@_pair_QUMARK)
576
- else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
577
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
578
- end ,
579
- [
580
- __v__4__gensym__de5653c32c493c653ee6557b7cf108e127448746_20043
581
- ]
582
- ))
583
- ]
584
- ))
585
- ]
586
- ))
315
+ _not(
316
+ _eq_QUMARK(
317
+ false ,
318
+ _pair_QUMARK(
319
+ __v__4__gensym__de5653c32c493c653ee6557b7cf108e127448746_20043
320
+ )
321
+ )
322
+ )
587
323
  ) then
588
324
  begin
589
325
  ___lambda = lambda { |__v__5__gensym__de5653c32c493c653ee6557b7cf108e127448746_20044|
590
326
  if (
591
- trampCall( self._not_METHOD( 'not',
592
- begin
593
- if @global_lisp_binding.has_key?('_not') then
594
- trampCall(@_not)
595
- else raise NameError.new( "Error: undefined variable _not", "_not" ) end
596
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
597
- end ,
598
- [
599
- trampCall( self._eq_QUMARK_METHOD( 'eq?',
600
- begin
601
- if @global_lisp_binding.has_key?('_eq_QUMARK') then
602
- trampCall(@_eq_QUMARK)
603
- else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
604
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
605
- end ,
606
- [
607
- false ,
608
- trampCall( self._pair_QUMARK_METHOD( 'pair?',
609
- begin
610
- if @global_lisp_binding.has_key?('_pair_QUMARK') then
611
- trampCall(@_pair_QUMARK)
612
- else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
613
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
614
- end ,
615
- [
616
- __v__5__gensym__de5653c32c493c653ee6557b7cf108e127448746_20044
617
- ]
618
- ))
619
- ]
620
- ))
621
- ]
622
- ))
327
+ _not(
328
+ _eq_QUMARK(
329
+ false ,
330
+ _pair_QUMARK(
331
+ __v__5__gensym__de5653c32c493c653ee6557b7cf108e127448746_20044
332
+ )
333
+ )
334
+ )
623
335
  ) then
624
336
  begin
625
337
  ___lambda = lambda { |__v__6__gensym__de5653c32c493c653ee6557b7cf108e127448746_20045|
626
338
  if (
627
- trampCall( self._not_METHOD( 'not',
628
- begin
629
- if @global_lisp_binding.has_key?('_not') then
630
- trampCall(@_not)
631
- else raise NameError.new( "Error: undefined variable _not", "_not" ) end
632
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
633
- end ,
634
- [
635
- trampCall( self._eq_QUMARK_METHOD( 'eq?',
636
- begin
637
- if @global_lisp_binding.has_key?('_eq_QUMARK') then
638
- trampCall(@_eq_QUMARK)
639
- else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
640
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
641
- end ,
642
- [
643
- false ,
644
- trampCall( self._pair_QUMARK_METHOD( 'pair?',
645
- begin
646
- if @global_lisp_binding.has_key?('_pair_QUMARK') then
647
- trampCall(@_pair_QUMARK)
648
- else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
649
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
650
- end ,
651
- [
652
- __v__6__gensym__de5653c32c493c653ee6557b7cf108e127448746_20045
653
- ]
654
- ))
655
- ]
656
- ))
657
- ]
658
- ))
339
+ _not(
340
+ _eq_QUMARK(
341
+ false ,
342
+ _pair_QUMARK(
343
+ __v__6__gensym__de5653c32c493c653ee6557b7cf108e127448746_20045
344
+ )
345
+ )
346
+ )
659
347
  ) then
660
348
  begin
661
349
  ___lambda = lambda { |__v__7__gensym__de5653c32c493c653ee6557b7cf108e127448746_20046|
@@ -664,38 +352,14 @@ trampCall(
664
352
  begin
665
353
  ___lambda = lambda { |__v__8__gensym__de5653c32c493c653ee6557b7cf108e127448746_20047|
666
354
  if (
667
- trampCall( self._not_METHOD( 'not',
668
- begin
669
- if @global_lisp_binding.has_key?('_not') then
670
- trampCall(@_not)
671
- else raise NameError.new( "Error: undefined variable _not", "_not" ) end
672
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
673
- end ,
674
- [
675
- trampCall( self._eq_QUMARK_METHOD( 'eq?',
676
- begin
677
- if @global_lisp_binding.has_key?('_eq_QUMARK') then
678
- trampCall(@_eq_QUMARK)
679
- else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
680
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
681
- end ,
682
- [
683
- false ,
684
- trampCall( self._pair_QUMARK_METHOD( 'pair?',
685
- begin
686
- if @global_lisp_binding.has_key?('_pair_QUMARK') then
687
- trampCall(@_pair_QUMARK)
688
- else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
689
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
690
- end ,
691
- [
692
- __v__8__gensym__de5653c32c493c653ee6557b7cf108e127448746_20047
693
- ]
694
- ))
695
- ]
696
- ))
697
- ]
698
- ))
355
+ _not(
356
+ _eq_QUMARK(
357
+ false ,
358
+ _pair_QUMARK(
359
+ __v__8__gensym__de5653c32c493c653ee6557b7cf108e127448746_20047
360
+ )
361
+ )
362
+ )
699
363
  ) then
700
364
  begin
701
365
  ___lambda = lambda { |__v__9__gensym__de5653c32c493c653ee6557b7cf108e127448746_20048|
@@ -704,38 +368,14 @@ trampCall(
704
368
  begin
705
369
  ___lambda = lambda { |__v__10__gensym__de5653c32c493c653ee6557b7cf108e127448746_20049|
706
370
  if (
707
- trampCall( self._not_METHOD( 'not',
708
- begin
709
- if @global_lisp_binding.has_key?('_not') then
710
- trampCall(@_not)
711
- else raise NameError.new( "Error: undefined variable _not", "_not" ) end
712
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
713
- end ,
714
- [
715
- trampCall( self._eq_QUMARK_METHOD( 'eq?',
716
- begin
717
- if @global_lisp_binding.has_key?('_eq_QUMARK') then
718
- trampCall(@_eq_QUMARK)
719
- else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
720
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
721
- end ,
722
- [
723
- false ,
724
- trampCall( self._null_QUMARK_METHOD( 'null?',
725
- begin
726
- if @global_lisp_binding.has_key?('_null_QUMARK') then
727
- trampCall(@_null_QUMARK)
728
- else raise NameError.new( "Error: undefined variable _null_QUMARK", "_null_QUMARK" ) end
729
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
730
- end ,
731
- [
732
- __v__10__gensym__de5653c32c493c653ee6557b7cf108e127448746_20049
733
- ]
734
- ))
735
- ]
736
- ))
737
- ]
738
- ))
371
+ _not(
372
+ _eq_QUMARK(
373
+ false ,
374
+ _null_QUMARK(
375
+ __v__10__gensym__de5653c32c493c653ee6557b7cf108e127448746_20049
376
+ )
377
+ )
378
+ )
739
379
  ) then
740
380
  begin
741
381
  ___lambda = lambda { |__v__11__gensym__de5653c32c493c653ee6557b7cf108e127448746_20050|
@@ -745,183 +385,87 @@ trampCall(
745
385
  ___lambda = lambda { |__v__12__gensym__de5653c32c493c653ee6557b7cf108e127448746_20051|
746
386
  begin
747
387
  ___lambda = lambda { |_body|
748
- trampCall( self._cons_METHOD( 'cons',
749
- begin
750
- if @global_lisp_binding.has_key?('_cons') then
751
- trampCall(@_cons)
752
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
753
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
754
- end ,
755
- [
756
- trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
757
- begin
758
- trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
759
- rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
760
- end ,
761
- [
762
- :"let"
763
- ]
764
- )) ,
765
- trampCall( self._cons_METHOD( 'cons',
766
- begin
767
- if @global_lisp_binding.has_key?('_cons') then
768
- trampCall(@_cons)
769
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
770
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
771
- end ,
772
- [
773
- trampCall( self._cons_METHOD( 'cons',
774
- begin
775
- if @global_lisp_binding.has_key?('_cons') then
776
- trampCall(@_cons)
777
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
778
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
779
- end ,
780
- [
781
- trampCall( self._cons_METHOD( 'cons',
782
- begin
783
- if @global_lisp_binding.has_key?('_cons') then
784
- trampCall(@_cons)
785
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
786
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
787
- end ,
788
- [
789
- begin
790
- trampCall(_var)
791
- rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:39"] + __e.backtrace ) ; raise __e
792
- end ,
793
- trampCall( self._cons_METHOD( 'cons',
794
- begin
795
- if @global_lisp_binding.has_key?('_cons') then
796
- trampCall(@_cons)
797
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
798
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
799
- end ,
800
- [
801
- begin
802
- trampCall(_expr)
803
- rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:41"] + __e.backtrace ) ; raise __e
804
- end ,
805
- Cell.new()
806
- ]
807
- ))
808
- ]
809
- )) ,
810
- Cell.new()
811
- ]
812
- )) ,
813
- trampCall( self._cons_METHOD( 'cons',
388
+ _cons(
389
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
390
+ begin
391
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
392
+ rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
393
+ end ,
394
+ [
395
+ :"let"
396
+ ]
397
+ )) ,
398
+ _cons(
399
+ _cons(
400
+ _cons(
814
401
  begin
815
- if @global_lisp_binding.has_key?('_cons') then
816
- trampCall(@_cons)
817
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
818
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
402
+ trampCall(_var)
403
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:39"] + __e.backtrace ) ; raise __e
819
404
  end ,
820
- [
821
- trampCall( self._cons_METHOD( 'cons',
822
- begin
823
- if @global_lisp_binding.has_key?('_cons') then
824
- trampCall(@_cons)
825
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
826
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
827
- end ,
828
- [
829
- trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
830
- begin
831
- trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
832
- rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
833
- end ,
834
- [
835
- :"and"
836
- ]
837
- )) ,
838
- trampCall( self._cons_METHOD( 'cons',
839
- begin
840
- if @global_lisp_binding.has_key?('_cons') then
841
- trampCall(@_cons)
842
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
843
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
844
- end ,
845
- [
846
- begin
847
- trampCall(_var)
848
- rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:39"] + __e.backtrace ) ; raise __e
849
- end ,
850
- trampCall( self._cons_METHOD( 'cons',
851
- begin
852
- if @global_lisp_binding.has_key?('_cons') then
853
- trampCall(@_cons)
854
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
855
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
856
- end ,
857
- [
858
- trampCall( self._cons_METHOD( 'cons',
859
- begin
860
- if @global_lisp_binding.has_key?('_cons') then
861
- trampCall(@_cons)
862
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
863
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
864
- end ,
865
- [
866
- trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
867
- begin
868
- trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
869
- rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
870
- end ,
871
- [
872
- :"and-let*"
873
- ]
874
- )) ,
875
- trampCall( self._cons_METHOD( 'cons',
876
- begin
877
- if @global_lisp_binding.has_key?('_cons') then
878
- trampCall(@_cons)
879
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
880
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
881
- end ,
882
- [
883
- begin
884
- trampCall(_rest)
885
- rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
886
- end ,
887
- begin
888
- trampCall(_body)
889
- rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
890
- end
891
- ]
892
- ))
893
- ]
894
- )) ,
895
- Cell.new()
896
- ]
897
- ))
898
- ]
899
- ))
900
- ]
901
- )) ,
902
- Cell.new()
903
- ]
904
- ))
905
- ]
906
- ))
907
- ]
908
- ))
405
+ _cons(
406
+ begin
407
+ trampCall(_expr)
408
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:41"] + __e.backtrace ) ; raise __e
409
+ end ,
410
+ Cell.new()
411
+ )
412
+ ) ,
413
+ Cell.new()
414
+ ) ,
415
+ _cons(
416
+ _cons(
417
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
418
+ begin
419
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
420
+ rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
421
+ end ,
422
+ [
423
+ :"and"
424
+ ]
425
+ )) ,
426
+ _cons(
427
+ begin
428
+ trampCall(_var)
429
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:39"] + __e.backtrace ) ; raise __e
430
+ end ,
431
+ _cons(
432
+ _cons(
433
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
434
+ begin
435
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
436
+ rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
437
+ end ,
438
+ [
439
+ :"and-let*"
440
+ ]
441
+ )) ,
442
+ _cons(
443
+ begin
444
+ trampCall(_rest)
445
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
446
+ end ,
447
+ begin
448
+ trampCall(_body)
449
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
450
+ end
451
+ )
452
+ ) ,
453
+ Cell.new()
454
+ )
455
+ )
456
+ ) ,
457
+ Cell.new()
458
+ )
459
+ )
460
+ )
909
461
  } ; ___lambda.call(
910
462
  __v__12__gensym__de5653c32c493c653ee6557b7cf108e127448746_20051
911
463
  )
912
464
  end
913
465
  } ; ___lambda.call(
914
- trampCall( self._cdr_METHOD( 'cdr',
915
- begin
916
- if @global_lisp_binding.has_key?('_cdr') then
917
- trampCall(@_cdr)
918
- else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
919
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
920
- end ,
921
- [
922
- __v__4__gensym__de5653c32c493c653ee6557b7cf108e127448746_20043
923
- ]
924
- ))
466
+ _cdr(
467
+ __v__4__gensym__de5653c32c493c653ee6557b7cf108e127448746_20043
468
+ )
925
469
  )
926
470
  end
927
471
  } ; ___lambda.call(
@@ -929,34 +473,18 @@ trampCall(
929
473
  )
930
474
  end
931
475
  } ; ___lambda.call(
932
- trampCall( self._cdr_METHOD( 'cdr',
933
- begin
934
- if @global_lisp_binding.has_key?('_cdr') then
935
- trampCall(@_cdr)
936
- else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
937
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
938
- end ,
939
- [
940
- __v__5__gensym__de5653c32c493c653ee6557b7cf108e127448746_20044
941
- ]
942
- ))
476
+ _cdr(
477
+ __v__5__gensym__de5653c32c493c653ee6557b7cf108e127448746_20044
478
+ )
943
479
  )
944
480
  end
945
481
  else
946
482
  false
947
483
  end
948
484
  } ; ___lambda.call(
949
- trampCall( self._cdr_METHOD( 'cdr',
950
- begin
951
- if @global_lisp_binding.has_key?('_cdr') then
952
- trampCall(@_cdr)
953
- else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
954
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
955
- end ,
956
- [
957
- __v__8__gensym__de5653c32c493c653ee6557b7cf108e127448746_20047
958
- ]
959
- ))
485
+ _cdr(
486
+ __v__8__gensym__de5653c32c493c653ee6557b7cf108e127448746_20047
487
+ )
960
488
  )
961
489
  end
962
490
  } ; ___lambda.call(
@@ -964,34 +492,18 @@ trampCall(
964
492
  )
965
493
  end
966
494
  } ; ___lambda.call(
967
- trampCall( self._car_METHOD( 'car',
968
- begin
969
- if @global_lisp_binding.has_key?('_car') then
970
- trampCall(@_car)
971
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
972
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
973
- end ,
974
- [
975
- __v__8__gensym__de5653c32c493c653ee6557b7cf108e127448746_20047
976
- ]
977
- ))
495
+ _car(
496
+ __v__8__gensym__de5653c32c493c653ee6557b7cf108e127448746_20047
497
+ )
978
498
  )
979
499
  end
980
500
  else
981
501
  false
982
502
  end
983
503
  } ; ___lambda.call(
984
- trampCall( self._cdr_METHOD( 'cdr',
985
- begin
986
- if @global_lisp_binding.has_key?('_cdr') then
987
- trampCall(@_cdr)
988
- else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
989
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
990
- end ,
991
- [
992
- __v__6__gensym__de5653c32c493c653ee6557b7cf108e127448746_20045
993
- ]
994
- ))
504
+ _cdr(
505
+ __v__6__gensym__de5653c32c493c653ee6557b7cf108e127448746_20045
506
+ )
995
507
  )
996
508
  end
997
509
  } ; ___lambda.call(
@@ -999,68 +511,36 @@ trampCall(
999
511
  )
1000
512
  end
1001
513
  } ; ___lambda.call(
1002
- trampCall( self._car_METHOD( 'car',
1003
- begin
1004
- if @global_lisp_binding.has_key?('_car') then
1005
- trampCall(@_car)
1006
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
1007
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1008
- end ,
1009
- [
1010
- __v__6__gensym__de5653c32c493c653ee6557b7cf108e127448746_20045
1011
- ]
1012
- ))
514
+ _car(
515
+ __v__6__gensym__de5653c32c493c653ee6557b7cf108e127448746_20045
516
+ )
1013
517
  )
1014
518
  end
1015
519
  else
1016
520
  false
1017
521
  end
1018
522
  } ; ___lambda.call(
1019
- trampCall( self._car_METHOD( 'car',
1020
- begin
1021
- if @global_lisp_binding.has_key?('_car') then
1022
- trampCall(@_car)
1023
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
1024
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1025
- end ,
1026
- [
1027
- __v__5__gensym__de5653c32c493c653ee6557b7cf108e127448746_20044
1028
- ]
1029
- ))
523
+ _car(
524
+ __v__5__gensym__de5653c32c493c653ee6557b7cf108e127448746_20044
525
+ )
1030
526
  )
1031
527
  end
1032
528
  else
1033
529
  false
1034
530
  end
1035
531
  } ; ___lambda.call(
1036
- trampCall( self._car_METHOD( 'car',
1037
- begin
1038
- if @global_lisp_binding.has_key?('_car') then
1039
- trampCall(@_car)
1040
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
1041
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1042
- end ,
1043
- [
1044
- __v__4__gensym__de5653c32c493c653ee6557b7cf108e127448746_20043
1045
- ]
1046
- ))
532
+ _car(
533
+ __v__4__gensym__de5653c32c493c653ee6557b7cf108e127448746_20043
534
+ )
1047
535
  )
1048
536
  end
1049
537
  else
1050
538
  false
1051
539
  end
1052
540
  } ; ___lambda.call(
1053
- trampCall( self._cdr_METHOD( 'cdr',
1054
- begin
1055
- if @global_lisp_binding.has_key?('_cdr') then
1056
- trampCall(@_cdr)
1057
- else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
1058
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1059
- end ,
1060
- [
1061
- __expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_20032
1062
- ]
1063
- ))
541
+ _cdr(
542
+ __expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_20032
543
+ )
1064
544
  )
1065
545
  end
1066
546
  )
@@ -1070,152 +550,72 @@ trampCall(
1070
550
  begin
1071
551
  ___lambda = lambda { |__v__1__gensym__de5653c32c493c653ee6557b7cf108e127448746_20040|
1072
552
  if (
1073
- trampCall( self._not_METHOD( 'not',
1074
- begin
1075
- if @global_lisp_binding.has_key?('_not') then
1076
- trampCall(@_not)
1077
- else raise NameError.new( "Error: undefined variable _not", "_not" ) end
1078
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1079
- end ,
1080
- [
1081
- trampCall( self._eq_QUMARK_METHOD( 'eq?',
1082
- begin
1083
- if @global_lisp_binding.has_key?('_eq_QUMARK') then
1084
- trampCall(@_eq_QUMARK)
1085
- else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
1086
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1087
- end ,
1088
- [
1089
- false ,
1090
- trampCall( self._pair_QUMARK_METHOD( 'pair?',
1091
- begin
1092
- if @global_lisp_binding.has_key?('_pair_QUMARK') then
1093
- trampCall(@_pair_QUMARK)
1094
- else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
1095
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1096
- end ,
1097
- [
1098
- __v__1__gensym__de5653c32c493c653ee6557b7cf108e127448746_20040
1099
- ]
1100
- ))
1101
- ]
1102
- ))
1103
- ]
1104
- ))
553
+ _not(
554
+ _eq_QUMARK(
555
+ false ,
556
+ _pair_QUMARK(
557
+ __v__1__gensym__de5653c32c493c653ee6557b7cf108e127448746_20040
558
+ )
559
+ )
560
+ )
1105
561
  ) then
1106
562
  begin
1107
563
  ___lambda = lambda { |__v__2__gensym__de5653c32c493c653ee6557b7cf108e127448746_20041|
1108
564
  if (
1109
- trampCall( self._not_METHOD( 'not',
1110
- begin
1111
- if @global_lisp_binding.has_key?('_not') then
1112
- trampCall(@_not)
1113
- else raise NameError.new( "Error: undefined variable _not", "_not" ) end
1114
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1115
- end ,
1116
- [
1117
- trampCall( self._eq_QUMARK_METHOD( 'eq?',
1118
- begin
1119
- if @global_lisp_binding.has_key?('_eq_QUMARK') then
1120
- trampCall(@_eq_QUMARK)
1121
- else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
1122
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1123
- end ,
1124
- [
1125
- false ,
1126
- trampCall( self._null_QUMARK_METHOD( 'null?',
1127
- begin
1128
- if @global_lisp_binding.has_key?('_null_QUMARK') then
1129
- trampCall(@_null_QUMARK)
1130
- else raise NameError.new( "Error: undefined variable _null_QUMARK", "_null_QUMARK" ) end
1131
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1132
- end ,
1133
- [
1134
- __v__2__gensym__de5653c32c493c653ee6557b7cf108e127448746_20041
1135
- ]
1136
- ))
1137
- ]
1138
- ))
1139
- ]
1140
- ))
565
+ _not(
566
+ _eq_QUMARK(
567
+ false ,
568
+ _null_QUMARK(
569
+ __v__2__gensym__de5653c32c493c653ee6557b7cf108e127448746_20041
570
+ )
571
+ )
572
+ )
1141
573
  ) then
1142
574
  begin
1143
575
  ___lambda = lambda { |__v__3__gensym__de5653c32c493c653ee6557b7cf108e127448746_20042|
1144
576
  begin
1145
577
  ___lambda = lambda { |_body|
1146
- trampCall( self._cons_METHOD( 'cons',
578
+ _cons(
579
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
580
+ begin
581
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
582
+ rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
583
+ end ,
584
+ [
585
+ :"begin"
586
+ ]
587
+ )) ,
1147
588
  begin
1148
- if @global_lisp_binding.has_key?('_cons') then
1149
- trampCall(@_cons)
1150
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1151
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1152
- end ,
1153
- [
1154
- trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
1155
- begin
1156
- trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
1157
- rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
1158
- end ,
1159
- [
1160
- :"begin"
1161
- ]
1162
- )) ,
1163
- begin
1164
- trampCall(_body)
1165
- rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
1166
- end
1167
- ]
1168
- ))
589
+ trampCall(_body)
590
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
591
+ end
592
+ )
1169
593
  } ; ___lambda.call(
1170
594
  __v__3__gensym__de5653c32c493c653ee6557b7cf108e127448746_20042
1171
595
  )
1172
596
  end
1173
597
  } ; ___lambda.call(
1174
- trampCall( self._cdr_METHOD( 'cdr',
1175
- begin
1176
- if @global_lisp_binding.has_key?('_cdr') then
1177
- trampCall(@_cdr)
1178
- else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
1179
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1180
- end ,
1181
- [
1182
- __v__1__gensym__de5653c32c493c653ee6557b7cf108e127448746_20040
1183
- ]
1184
- ))
598
+ _cdr(
599
+ __v__1__gensym__de5653c32c493c653ee6557b7cf108e127448746_20040
600
+ )
1185
601
  )
1186
602
  end
1187
603
  else
1188
604
  false
1189
605
  end
1190
606
  } ; ___lambda.call(
1191
- trampCall( self._car_METHOD( 'car',
1192
- begin
1193
- if @global_lisp_binding.has_key?('_car') then
1194
- trampCall(@_car)
1195
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
1196
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1197
- end ,
1198
- [
1199
- __v__1__gensym__de5653c32c493c653ee6557b7cf108e127448746_20040
1200
- ]
1201
- ))
607
+ _car(
608
+ __v__1__gensym__de5653c32c493c653ee6557b7cf108e127448746_20040
609
+ )
1202
610
  )
1203
611
  end
1204
612
  else
1205
613
  false
1206
614
  end
1207
615
  } ; ___lambda.call(
1208
- trampCall( self._cdr_METHOD( 'cdr',
1209
- begin
1210
- if @global_lisp_binding.has_key?('_cdr') then
1211
- trampCall(@_cdr)
1212
- else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
1213
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1214
- end ,
1215
- [
1216
- __expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_20032
1217
- ]
1218
- ))
616
+ _cdr(
617
+ __expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_20032
618
+ )
1219
619
  )
1220
620
  end
1221
621
  )