nendo 0.6.5 → 0.6.6

Sign up to get free protection for your applications and to get access to all the features.
Files changed (23) hide show
  1. checksums.yaml +8 -8
  2. data/README.md +13 -0
  3. data/Rakefile +5 -3
  4. data/VERSION.yml +1 -1
  5. data/benchmark/benchmark.nnd +46 -31
  6. data/bin/nendo +8 -0
  7. data/lib/nendo/debug/syslog.nndc +0 -10
  8. data/lib/nendo/init.nndc +0 -5012
  9. data/lib/nendo/nendo/experimental.nndc +0 -994
  10. data/lib/nendo/nendo/test.nndc +0 -474
  11. data/lib/nendo/rfc/json.nndc +0 -150
  12. data/lib/nendo/ruby/core.rb +5 -1
  13. data/lib/nendo/ruby/evaluator.rb +35 -14
  14. data/lib/nendo/srfi-1.nndc +0 -3375
  15. data/lib/nendo/srfi-2.nndc +0 -118
  16. data/lib/nendo/srfi-26.nndc +0 -431
  17. data/lib/nendo/text/html-lite.nndc +0 -625
  18. data/lib/nendo/text/tree.nndc +0 -40
  19. data/lib/nendo/util/combinations.nndc +0 -1178
  20. data/lib/nendo/util/list.nndc +0 -706
  21. data/lib/nendo/util/match.nndc +0 -8094
  22. metadata +9 -6
  23. data/README +0 -10
data/lib/nendo/rfc/json.nndc CHANGED
@@ -5,13 +5,9 @@
5
5
 
6
6
  trampCall(
7
7
  begin
8
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 37 );
9
8
  delayCall( '_require', 'require',
10
9
  begin
11
- if @global_lisp_binding.has_key?('_require') then
12
10
  trampCall(@_require)
13
- else raise NameError.new( "Error: undefined variable _require", "_require" ) end
14
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:37"] + __e.backtrace ) ; raise __e
15
11
  end ,
16
12
  [
17
13
  "json"
@@ -23,13 +19,9 @@ trampCall(
23
19
 
24
20
  trampCall(
25
21
  begin
26
- embedBacktraceInfo( "", 1 );
27
22
  delayCall( '_load', 'load',
28
23
  begin
29
- if @global_lisp_binding.has_key?('_load') then
30
24
  trampCall(@_load)
31
- else raise NameError.new( "Error: undefined variable _load", "_load" ) end
32
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
33
25
  end ,
34
26
  [
35
27
  "util/list"
@@ -48,11 +40,9 @@ trampCall(
48
40
  Proc.new { |_obj|
49
41
  if (
50
42
  begin
51
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 43 );
52
43
  _null_QUMARK(
53
44
  begin
54
45
  trampCall(_obj)
55
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:58"] + __e.backtrace ) ; raise __e
56
46
  end
57
47
  )
58
48
  end
@@ -60,24 +50,18 @@ trampCall(
60
50
  begin
61
51
  begin
62
52
  trampCall(_obj)
63
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:58"] + __e.backtrace ) ; raise __e
64
53
  end
65
54
  end
66
55
  else
67
56
  if (
68
57
  begin
69
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 45 );
70
58
  trampCall( self._vector_QUMARK_METHOD( 'vector?',
71
59
  begin
72
- if @global_lisp_binding.has_key?('_vector_QUMARK') then
73
60
  trampCall(@_vector_QUMARK)
74
- else raise NameError.new( "Error: undefined variable _vector_QUMARK", "_vector_QUMARK" ) end
75
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:45"] + __e.backtrace ) ; raise __e
76
61
  end ,
77
62
  [
78
63
  begin
79
64
  trampCall(_obj)
80
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:58"] + __e.backtrace ) ; raise __e
81
65
  end
82
66
  ]
83
67
  ))
@@ -85,57 +69,39 @@ trampCall(
85
69
  ) then
86
70
  begin
87
71
  begin
88
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 46 );
89
72
  delayCall( '_list_MIMARK_GTMARKvector', 'list->vector',
90
73
  begin
91
- if @global_lisp_binding.has_key?('_list_MIMARK_GTMARKvector') then
92
74
  trampCall(@_list_MIMARK_GTMARKvector)
93
- else raise NameError.new( "Error: undefined variable _list_MIMARK_GTMARKvector", "_list_MIMARK_GTMARKvector" ) end
94
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:46"] + __e.backtrace ) ; raise __e
95
75
  end ,
96
76
  [
97
77
  begin
98
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 52 );
99
78
  trampCall( self._map_METHOD( 'map',
100
79
  begin
101
- if @global_lisp_binding.has_key?('_map') then
102
80
  trampCall(@_map)
103
- else raise NameError.new( "Error: undefined variable _map", "_map" ) end
104
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:52"] + __e.backtrace ) ; raise __e
105
81
  end ,
106
82
  [
107
83
  Proc.new { |_x|
108
84
  begin
109
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 55 );
110
85
  trampCall( self.__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist_METHOD( '%json:hash-table->alist',
111
86
  begin
112
- if @global_lisp_binding.has_key?('__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist') then
113
87
  trampCall(@__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist)
114
- else raise NameError.new( "Error: undefined variable __PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist", "__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist" ) end
115
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:55"] + __e.backtrace ) ; raise __e
116
88
  end ,
117
89
  [
118
90
  begin
119
91
  trampCall(_x)
120
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:49"] + __e.backtrace ) ; raise __e
121
92
  end
122
93
  ]
123
94
  ))
124
95
  end
125
96
  } ,
126
97
  begin
127
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 50 );
128
98
  trampCall( self._vector_MIMARK_GTMARKlist_METHOD( 'vector->list',
129
99
  begin
130
- if @global_lisp_binding.has_key?('_vector_MIMARK_GTMARKlist') then
131
100
  trampCall(@_vector_MIMARK_GTMARKlist)
132
- else raise NameError.new( "Error: undefined variable _vector_MIMARK_GTMARKlist", "_vector_MIMARK_GTMARKlist" ) end
133
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:50"] + __e.backtrace ) ; raise __e
134
101
  end ,
135
102
  [
136
103
  begin
137
104
  trampCall(_obj)
138
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:58"] + __e.backtrace ) ; raise __e
139
105
  end
140
106
  ]
141
107
  ))
@@ -150,18 +116,13 @@ trampCall(
150
116
  else
151
117
  if (
152
118
  begin
153
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 51 );
154
119
  trampCall( self._hash_MIMARKtable_QUMARK_METHOD( 'hash-table?',
155
120
  begin
156
- if @global_lisp_binding.has_key?('_hash_MIMARKtable_QUMARK') then
157
121
  trampCall(@_hash_MIMARKtable_QUMARK)
158
- else raise NameError.new( "Error: undefined variable _hash_MIMARKtable_QUMARK", "_hash_MIMARKtable_QUMARK" ) end
159
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:51"] + __e.backtrace ) ; raise __e
160
122
  end ,
161
123
  [
162
124
  begin
163
125
  trampCall(_obj)
164
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:58"] + __e.backtrace ) ; raise __e
165
126
  end
166
127
  ]
167
128
  ))
@@ -169,44 +130,31 @@ trampCall(
169
130
  ) then
170
131
  begin
171
132
  begin
172
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 52 );
173
133
  delayCall( '_map', 'map',
174
134
  begin
175
- if @global_lisp_binding.has_key?('_map') then
176
135
  trampCall(@_map)
177
- else raise NameError.new( "Error: undefined variable _map", "_map" ) end
178
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:52"] + __e.backtrace ) ; raise __e
179
136
  end ,
180
137
  [
181
138
  Proc.new { |_entry|
182
139
  begin
183
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 54 );
184
140
  _cons(
185
141
  begin
186
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 54 );
187
142
  _car(
188
143
  begin
189
144
  trampCall(_entry)
190
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:55"] + __e.backtrace ) ; raise __e
191
145
  end
192
146
  )
193
147
  end ,
194
148
  begin
195
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 55 );
196
149
  trampCall( self.__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist_METHOD( '%json:hash-table->alist',
197
150
  begin
198
- if @global_lisp_binding.has_key?('__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist') then
199
151
  trampCall(@__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist)
200
- else raise NameError.new( "Error: undefined variable __PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist", "__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist" ) end
201
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:55"] + __e.backtrace ) ; raise __e
202
152
  end ,
203
153
  [
204
154
  begin
205
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 55 );
206
155
  _cdr(
207
156
  begin
208
157
  trampCall(_entry)
209
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:55"] + __e.backtrace ) ; raise __e
210
158
  end
211
159
  )
212
160
  end
@@ -217,18 +165,13 @@ trampCall(
217
165
  end
218
166
  } ,
219
167
  begin
220
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 56 );
221
168
  trampCall( self._hash_MIMARKtable_MIMARK_GTMARKalist_METHOD( 'hash-table->alist',
222
169
  begin
223
- if @global_lisp_binding.has_key?('_hash_MIMARKtable_MIMARK_GTMARKalist') then
224
170
  trampCall(@_hash_MIMARKtable_MIMARK_GTMARKalist)
225
- else raise NameError.new( "Error: undefined variable _hash_MIMARKtable_MIMARK_GTMARKalist", "_hash_MIMARKtable_MIMARK_GTMARKalist" ) end
226
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:56"] + __e.backtrace ) ; raise __e
227
171
  end ,
228
172
  [
229
173
  begin
230
174
  trampCall(_obj)
231
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:58"] + __e.backtrace ) ; raise __e
232
175
  end
233
176
  ]
234
177
  ))
@@ -244,7 +187,6 @@ trampCall(
244
187
  begin
245
188
  begin
246
189
  trampCall(_obj)
247
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:58"] + __e.backtrace ) ; raise __e
248
190
  end
249
191
  end
250
192
  else
@@ -268,24 +210,18 @@ trampCall(
268
210
  Proc.new { |_obj|
269
211
  if (
270
212
  begin
271
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 62 );
272
213
  _null_QUMARK(
273
214
  begin
274
215
  trampCall(_obj)
275
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:78"] + __e.backtrace ) ; raise __e
276
216
  end
277
217
  )
278
218
  end
279
219
  ) then
280
220
  begin
281
221
  begin
282
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 63 );
283
222
  delayCall( '_make_MIMARKhash_MIMARKtable', 'make-hash-table',
284
223
  begin
285
- if @global_lisp_binding.has_key?('_make_MIMARKhash_MIMARKtable') then
286
224
  trampCall(@_make_MIMARKhash_MIMARKtable)
287
- else raise NameError.new( "Error: undefined variable _make_MIMARKhash_MIMARKtable", "_make_MIMARKhash_MIMARKtable" ) end
288
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:63"] + __e.backtrace ) ; raise __e
289
225
  end ,
290
226
  [
291
227
  ]
@@ -295,18 +231,13 @@ trampCall(
295
231
  else
296
232
  if (
297
233
  begin
298
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 64 );
299
234
  trampCall( self._vector_QUMARK_METHOD( 'vector?',
300
235
  begin
301
- if @global_lisp_binding.has_key?('_vector_QUMARK') then
302
236
  trampCall(@_vector_QUMARK)
303
- else raise NameError.new( "Error: undefined variable _vector_QUMARK", "_vector_QUMARK" ) end
304
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:64"] + __e.backtrace ) ; raise __e
305
237
  end ,
306
238
  [
307
239
  begin
308
240
  trampCall(_obj)
309
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:78"] + __e.backtrace ) ; raise __e
310
241
  end
311
242
  ]
312
243
  ))
@@ -314,57 +245,39 @@ trampCall(
314
245
  ) then
315
246
  begin
316
247
  begin
317
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 65 );
318
248
  delayCall( '_list_MIMARK_GTMARKvector', 'list->vector',
319
249
  begin
320
- if @global_lisp_binding.has_key?('_list_MIMARK_GTMARKvector') then
321
250
  trampCall(@_list_MIMARK_GTMARKvector)
322
- else raise NameError.new( "Error: undefined variable _list_MIMARK_GTMARKvector", "_list_MIMARK_GTMARKvector" ) end
323
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:65"] + __e.backtrace ) ; raise __e
324
251
  end ,
325
252
  [
326
253
  begin
327
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 72 );
328
254
  trampCall( self._map_METHOD( 'map',
329
255
  begin
330
- if @global_lisp_binding.has_key?('_map') then
331
256
  trampCall(@_map)
332
- else raise NameError.new( "Error: undefined variable _map", "_map" ) end
333
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:72"] + __e.backtrace ) ; raise __e
334
257
  end ,
335
258
  [
336
259
  Proc.new { |_x|
337
260
  begin
338
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 75 );
339
261
  trampCall( self.__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable_METHOD( '%json:alist->hash-table',
340
262
  begin
341
- if @global_lisp_binding.has_key?('__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable') then
342
263
  trampCall(@__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable)
343
- else raise NameError.new( "Error: undefined variable __PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable", "__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable" ) end
344
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:75"] + __e.backtrace ) ; raise __e
345
264
  end ,
346
265
  [
347
266
  begin
348
267
  trampCall(_x)
349
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:68"] + __e.backtrace ) ; raise __e
350
268
  end
351
269
  ]
352
270
  ))
353
271
  end
354
272
  } ,
355
273
  begin
356
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 69 );
357
274
  trampCall( self._vector_MIMARK_GTMARKlist_METHOD( 'vector->list',
358
275
  begin
359
- if @global_lisp_binding.has_key?('_vector_MIMARK_GTMARKlist') then
360
276
  trampCall(@_vector_MIMARK_GTMARKlist)
361
- else raise NameError.new( "Error: undefined variable _vector_MIMARK_GTMARKlist", "_vector_MIMARK_GTMARKlist" ) end
362
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:69"] + __e.backtrace ) ; raise __e
363
277
  end ,
364
278
  [
365
279
  begin
366
280
  trampCall(_obj)
367
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:78"] + __e.backtrace ) ; raise __e
368
281
  end
369
282
  ]
370
283
  ))
@@ -379,65 +292,46 @@ trampCall(
379
292
  else
380
293
  if (
381
294
  begin
382
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 70 );
383
295
  _pair_QUMARK(
384
296
  begin
385
297
  trampCall(_obj)
386
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:78"] + __e.backtrace ) ; raise __e
387
298
  end
388
299
  )
389
300
  end
390
301
  ) then
391
302
  begin
392
303
  begin
393
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 71 );
394
304
  delayCall( '_alist_MIMARK_GTMARKhash_MIMARKtable', 'alist->hash-table',
395
305
  begin
396
- if @global_lisp_binding.has_key?('_alist_MIMARK_GTMARKhash_MIMARKtable') then
397
306
  trampCall(@_alist_MIMARK_GTMARKhash_MIMARKtable)
398
- else raise NameError.new( "Error: undefined variable _alist_MIMARK_GTMARKhash_MIMARKtable", "_alist_MIMARK_GTMARKhash_MIMARKtable" ) end
399
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:71"] + __e.backtrace ) ; raise __e
400
307
  end ,
401
308
  [
402
309
  begin
403
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 72 );
404
310
  trampCall( self._map_METHOD( 'map',
405
311
  begin
406
- if @global_lisp_binding.has_key?('_map') then
407
312
  trampCall(@_map)
408
- else raise NameError.new( "Error: undefined variable _map", "_map" ) end
409
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:72"] + __e.backtrace ) ; raise __e
410
313
  end ,
411
314
  [
412
315
  Proc.new { |_entry|
413
316
  begin
414
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 74 );
415
317
  _cons(
416
318
  begin
417
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 74 );
418
319
  _car(
419
320
  begin
420
321
  trampCall(_entry)
421
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:75"] + __e.backtrace ) ; raise __e
422
322
  end
423
323
  )
424
324
  end ,
425
325
  begin
426
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 75 );
427
326
  trampCall( self.__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable_METHOD( '%json:alist->hash-table',
428
327
  begin
429
- if @global_lisp_binding.has_key?('__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable') then
430
328
  trampCall(@__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable)
431
- else raise NameError.new( "Error: undefined variable __PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable", "__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable" ) end
432
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:75"] + __e.backtrace ) ; raise __e
433
329
  end ,
434
330
  [
435
331
  begin
436
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 75 );
437
332
  _cdr(
438
333
  begin
439
334
  trampCall(_entry)
440
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:75"] + __e.backtrace ) ; raise __e
441
335
  end
442
336
  )
443
337
  end
@@ -449,7 +343,6 @@ trampCall(
449
343
  } ,
450
344
  begin
451
345
  trampCall(_obj)
452
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:78"] + __e.backtrace ) ; raise __e
453
346
  end
454
347
  ]
455
348
  ))
@@ -465,7 +358,6 @@ trampCall(
465
358
  begin
466
359
  begin
467
360
  trampCall(_obj)
468
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:78"] + __e.backtrace ) ; raise __e
469
361
  end
470
362
  end
471
363
  else
@@ -488,23 +380,17 @@ trampCall(
488
380
  trampCall(
489
381
  Proc.new { |_str|
490
382
  begin
491
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 85 );
492
383
  delayCall( '__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist', '%json:hash-table->alist',
493
384
  begin
494
- if @global_lisp_binding.has_key?('__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist') then
495
385
  trampCall(@__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist)
496
- else raise NameError.new( "Error: undefined variable __PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist", "__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist" ) end
497
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:85"] + __e.backtrace ) ; raise __e
498
386
  end ,
499
387
  [
500
388
  begin
501
389
  trampCall(JSON).parse(
502
390
  begin
503
391
  trampCall(_str)
504
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:86"] + __e.backtrace ) ; raise __e
505
392
  end
506
393
  )
507
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:86"] + __e.backtrace ) ; raise __e
508
394
  end
509
395
  ]
510
396
  )
@@ -527,18 +413,13 @@ trampCall(
527
413
  begin
528
414
  ___lambda = lambda { |_str|
529
415
  begin
530
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 91 );
531
416
  delayCall( '_parse_MIMARKjson_MIMARKstring', 'parse-json-string',
532
417
  begin
533
- if @global_lisp_binding.has_key?('_parse_MIMARKjson_MIMARKstring') then
534
418
  trampCall(@_parse_MIMARKjson_MIMARKstring)
535
- else raise NameError.new( "Error: undefined variable _parse_MIMARKjson_MIMARKstring", "_parse_MIMARKjson_MIMARKstring" ) end
536
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:91"] + __e.backtrace ) ; raise __e
537
419
  end ,
538
420
  [
539
421
  begin
540
422
  trampCall(_str)
541
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:91"] + __e.backtrace ) ; raise __e
542
423
  end
543
424
  ]
544
425
  )
@@ -547,7 +428,6 @@ trampCall(
547
428
  begin
548
429
  trampCall(__).read(
549
430
  )
550
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:90"] + __e.backtrace ) ; raise __e
551
431
  end
552
432
  )
553
433
  end
@@ -556,33 +436,25 @@ trampCall(
556
436
  ___lambda = lambda { |___gensym__6d159efe5170a605fc9e84dcf91a427e3f7e5718_90188|
557
437
  if (
558
438
  begin
559
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 62 );
560
439
  _null_QUMARK(
561
440
  begin
562
441
  trampCall(___gensym__6d159efe5170a605fc9e84dcf91a427e3f7e5718_90188)
563
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
564
442
  end
565
443
  )
566
444
  end
567
445
  ) then
568
446
  begin
569
447
  trampCall(STDIN)
570
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:89"] + __e.backtrace ) ; raise __e
571
448
  end
572
449
  else
573
450
  begin
574
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 74 );
575
451
  delayCall( '_car', 'car',
576
452
  begin
577
- if @global_lisp_binding.has_key?('_car') then
578
453
  trampCall(@_car)
579
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
580
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:74"] + __e.backtrace ) ; raise __e
581
454
  end ,
582
455
  [
583
456
  begin
584
457
  trampCall(___gensym__6d159efe5170a605fc9e84dcf91a427e3f7e5718_90188)
585
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
586
458
  end
587
459
  ]
588
460
  )
@@ -591,7 +463,6 @@ trampCall(
591
463
  } ; ___lambda.call(
592
464
  begin
593
465
  trampCall(_io)
594
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:89"] + __e.backtrace ) ; raise __e
595
466
  end
596
467
  )
597
468
  end
@@ -613,24 +484,18 @@ trampCall(
613
484
  begin
614
485
  trampCall(JSON).dump(
615
486
  begin
616
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 98 );
617
487
  trampCall( self.__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable_METHOD( '%json:alist->hash-table',
618
488
  begin
619
- if @global_lisp_binding.has_key?('__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable') then
620
489
  trampCall(@__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable)
621
- else raise NameError.new( "Error: undefined variable __PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable", "__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable" ) end
622
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:98"] + __e.backtrace ) ; raise __e
623
490
  end ,
624
491
  [
625
492
  begin
626
493
  trampCall(_obj)
627
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:98"] + __e.backtrace ) ; raise __e
628
494
  end
629
495
  ]
630
496
  ))
631
497
  end
632
498
  )
633
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:97"] + __e.backtrace ) ; raise __e
634
499
  end
635
500
  }
636
501
  )
@@ -650,57 +515,43 @@ trampCall(
650
515
  begin
651
516
  trampCall(__).print(
652
517
  begin
653
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 103 );
654
518
  trampCall( self._construct_MIMARKjson_MIMARKstring_METHOD( 'construct-json-string',
655
519
  begin
656
- if @global_lisp_binding.has_key?('_construct_MIMARKjson_MIMARKstring') then
657
520
  trampCall(@_construct_MIMARKjson_MIMARKstring)
658
- else raise NameError.new( "Error: undefined variable _construct_MIMARKjson_MIMARKstring", "_construct_MIMARKjson_MIMARKstring" ) end
659
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:103"] + __e.backtrace ) ; raise __e
660
521
  end ,
661
522
  [
662
523
  begin
663
524
  trampCall(_obj)
664
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:103"] + __e.backtrace ) ; raise __e
665
525
  end
666
526
  ]
667
527
  ))
668
528
  end
669
529
  )
670
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:102"] + __e.backtrace ) ; raise __e
671
530
  end
672
531
  } ; ___lambda.call(
673
532
  begin
674
533
  ___lambda = lambda { |___gensym__6d159efe5170a605fc9e84dcf91a427e3f7e5718_90189|
675
534
  if (
676
535
  begin
677
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 62 );
678
536
  _null_QUMARK(
679
537
  begin
680
538
  trampCall(___gensym__6d159efe5170a605fc9e84dcf91a427e3f7e5718_90189)
681
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
682
539
  end
683
540
  )
684
541
  end
685
542
  ) then
686
543
  begin
687
544
  trampCall(STDOUT)
688
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:101"] + __e.backtrace ) ; raise __e
689
545
  end
690
546
  else
691
547
  begin
692
- embedBacktraceInfo( "./lib/nendo/rfc/json.nnd", 74 );
693
548
  delayCall( '_car', 'car',
694
549
  begin
695
- if @global_lisp_binding.has_key?('_car') then
696
550
  trampCall(@_car)
697
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
698
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:74"] + __e.backtrace ) ; raise __e
699
551
  end ,
700
552
  [
701
553
  begin
702
554
  trampCall(___gensym__6d159efe5170a605fc9e84dcf91a427e3f7e5718_90189)
703
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
704
555
  end
705
556
  ]
706
557
  )
@@ -709,7 +560,6 @@ trampCall(
709
560
  } ; ___lambda.call(
710
561
  begin
711
562
  trampCall(_io)
712
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/rfc/json.nnd:101"] + __e.backtrace ) ; raise __e
713
563
  end
714
564
  )
715
565
  end
data/lib/nendo/ruby/core.rb CHANGED
@@ -42,7 +42,7 @@ module Nendo
42
42
  end
43
43
 
44
44
  def self.version
45
- "0.6.5" ##NENDO-VERSION
45
+ "0.6.6" ##NENDO-VERSION
46
46
  end
47
47
 
48
48
  attr_reader :evaluator
@@ -82,6 +82,10 @@ module Nendo
82
82
  @evaluator.setOptimizeLevel( level )
83
83
  end
84
84
 
85
+ def disableRuntimeCheck( )
86
+ @evaluator.runtimeCheck = false
87
+ end
88
+
85
89
  def setDisplayErrors( flag )
86
90
  @evaluator.setDisplayErrors( flag )
87
91
  end