nendo 0.5.2 → 0.5.3

Sign up to get free protection for your applications and to get access to all the features.
Files changed (22) hide show
  1. data/benchmark/benchmark.nnd +27 -5
  2. data/lib/debug/syslog.nndc +24 -18
  3. data/lib/init.nnd +12 -28
  4. data/lib/init.nndc +18733 -14143
  5. data/lib/nendo/experimental.nnd +120 -0
  6. data/lib/nendo/experimental.nndc +1069 -0
  7. data/lib/nendo/test.nndc +1122 -879
  8. data/lib/nendo.rb +67 -16
  9. data/lib/rfc/json.nndc +486 -375
  10. data/lib/srfi-1.nndc +12775 -9853
  11. data/lib/srfi-2.nndc +810 -552
  12. data/lib/srfi-26.nndc +2615 -1838
  13. data/lib/text/html-lite.nndc +2286 -1737
  14. data/lib/text/tree.nndc +136 -103
  15. data/lib/util/combinations.nndc +4747 -3436
  16. data/lib/util/list.nndc +3417 -2355
  17. data/lib/util/match.nndc +53574 -36147
  18. data/test/nendo-util-test.nnd +318 -32
  19. data/test/nendo_spec.rb +65 -12
  20. data/test/rspec_formatter_for_emacs.rb +25 -0
  21. data/test/syntax_spec.rb +2 -0
  22. metadata +86 -12
data/lib/srfi-2.nndc CHANGED
@@ -9,620 +9,878 @@ trampCall(
9
9
  @global_lisp_binding['_and_MIMARKlet_ASMARK'] = self.method( :_and_MIMARKlet_ASMARK_METHOD )
10
10
  @_and_MIMARKlet_ASMARK =
11
11
  trampCall(
12
- trampCall( self._er_MIMARKmacro_MIMARKtransformer_METHOD( 'er-macro-transformer',
13
- begin
14
- if @global_lisp_binding.has_key?('_er_MIMARKmacro_MIMARKtransformer') then
15
- trampCall(@_er_MIMARKmacro_MIMARKtransformer)
16
- else raise NameError.new( "Error: undefined variable _er_MIMARKmacro_MIMARKtransformer", "_er_MIMARKmacro_MIMARKtransformer" ) end
17
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
18
- end ,
19
- [
20
- Proc.new { |__expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_20032,__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033,__compare__gensym__de5653c32c493c653ee6557b7cf108e127448746_20034|
21
- begin
22
- ___lambda = lambda { |___gensym__de5653c32c493c653ee6557b7cf108e127448746_20059|
23
- if (
24
- begin
25
- trampCall(___gensym__de5653c32c493c653ee6557b7cf108e127448746_20059)
26
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
27
- end
28
- ) then
29
- begin
30
- trampCall(___gensym__de5653c32c493c653ee6557b7cf108e127448746_20059)
31
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
32
- end
33
- else
34
- begin
35
- ___lambda = lambda { |___gensym__de5653c32c493c653ee6557b7cf108e127448746_20060|
36
- if (
37
- begin
38
- trampCall(___gensym__de5653c32c493c653ee6557b7cf108e127448746_20060)
39
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
40
- end
41
- ) then
42
- begin
43
- trampCall(___gensym__de5653c32c493c653ee6557b7cf108e127448746_20060)
44
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
45
- end
46
- else
47
- begin
48
- ___lambda = lambda { |___gensym__de5653c32c493c653ee6557b7cf108e127448746_20061|
49
- if (
50
- begin
51
- trampCall(___gensym__de5653c32c493c653ee6557b7cf108e127448746_20061)
52
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
53
- end
54
- ) then
55
- begin
56
- trampCall(___gensym__de5653c32c493c653ee6557b7cf108e127448746_20061)
57
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
58
- end
59
- else
60
- begin
61
- ___lambda = lambda { |___gensym__de5653c32c493c653ee6557b7cf108e127448746_20062|
62
- if (
63
- begin
64
- trampCall(___gensym__de5653c32c493c653ee6557b7cf108e127448746_20062)
65
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
66
- end
67
- ) then
68
- begin
69
- trampCall(___gensym__de5653c32c493c653ee6557b7cf108e127448746_20062)
70
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
12
+ begin
13
+ embedBacktraceInfo( "", 1 );
14
+ trampCall( self._er_MIMARKmacro_MIMARKtransformer_METHOD( 'er-macro-transformer',
15
+ begin
16
+ if @global_lisp_binding.has_key?('_er_MIMARKmacro_MIMARKtransformer') then
17
+ trampCall(@_er_MIMARKmacro_MIMARKtransformer)
18
+ else raise NameError.new( "Error: undefined variable _er_MIMARKmacro_MIMARKtransformer", "_er_MIMARKmacro_MIMARKtransformer" ) end
19
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
20
+ end ,
21
+ [
22
+ Proc.new { |__expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_30037,__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038,__compare__gensym__de5653c32c493c653ee6557b7cf108e127448746_30039|
23
+ begin
24
+ ___lambda = lambda { |___gensym__de5653c32c493c653ee6557b7cf108e127448746_30064|
25
+ if (
26
+ begin
27
+ trampCall(___gensym__de5653c32c493c653ee6557b7cf108e127448746_30064)
28
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
29
+ end
30
+ ) then
31
+ begin
32
+ trampCall(___gensym__de5653c32c493c653ee6557b7cf108e127448746_30064)
33
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
34
+ end
35
+ else
36
+ begin
37
+ ___lambda = lambda { |___gensym__de5653c32c493c653ee6557b7cf108e127448746_30065|
38
+ if (
39
+ begin
40
+ trampCall(___gensym__de5653c32c493c653ee6557b7cf108e127448746_30065)
41
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
42
+ end
43
+ ) then
44
+ begin
45
+ trampCall(___gensym__de5653c32c493c653ee6557b7cf108e127448746_30065)
46
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
47
+ end
48
+ else
49
+ begin
50
+ ___lambda = lambda { |___gensym__de5653c32c493c653ee6557b7cf108e127448746_30066|
51
+ if (
52
+ begin
53
+ trampCall(___gensym__de5653c32c493c653ee6557b7cf108e127448746_30066)
54
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
55
+ end
56
+ ) then
57
+ begin
58
+ trampCall(___gensym__de5653c32c493c653ee6557b7cf108e127448746_30066)
59
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
60
+ end
61
+ else
62
+ begin
63
+ ___lambda = lambda { |___gensym__de5653c32c493c653ee6557b7cf108e127448746_30067|
64
+ if (
65
+ begin
66
+ trampCall(___gensym__de5653c32c493c653ee6557b7cf108e127448746_30067)
67
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
68
+ end
69
+ ) then
70
+ begin
71
+ trampCall(___gensym__de5653c32c493c653ee6557b7cf108e127448746_30067)
72
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
73
+ end
74
+ else
75
+ false
71
76
  end
72
- else
73
- false
74
- end
75
- } ; ___lambda.call(
76
- begin raise RuntimeError,
77
- "no expansion for" ' ' +
78
- _write_MIMARKto_MIMARKstring(
79
- trampCall( self._strip_MIMARKsyntactic_MIMARKclosures_METHOD( 'strip-syntactic-closures',
77
+ } ; ___lambda.call(
78
+ begin raise RuntimeError,
79
+ "no expansion for" ' ' +
80
+ _write_MIMARKto_MIMARKstring(
80
81
  begin
81
- if @global_lisp_binding.has_key?('_strip_MIMARKsyntactic_MIMARKclosures') then
82
- trampCall(@_strip_MIMARKsyntactic_MIMARKclosures)
83
- else raise NameError.new( "Error: undefined variable _strip_MIMARKsyntactic_MIMARKclosures", "_strip_MIMARKsyntactic_MIMARKclosures" ) end
84
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
85
- end ,
86
- [
87
- __expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_20032
88
- ]
89
- ))
90
- )
91
- rescue => __e
92
- __e.set_backtrace( [":1"] + __e.backtrace )
93
- raise __e
94
- end
95
- )
96
- end
97
- end
98
- } ; ___lambda.call(
99
- begin
100
- ___lambda = lambda { |__v__13__gensym__de5653c32c493c653ee6557b7cf108e127448746_20052|
101
- if (
102
- _not(
103
- _eq_QUMARK(
104
- false ,
105
- _pair_QUMARK(
106
- __v__13__gensym__de5653c32c493c653ee6557b7cf108e127448746_20052
82
+ embedBacktraceInfo( "", 1 );
83
+ trampCall( self._strip_MIMARKsyntactic_MIMARKclosures_METHOD( 'strip-syntactic-closures',
84
+ begin
85
+ if @global_lisp_binding.has_key?('_strip_MIMARKsyntactic_MIMARKclosures') then
86
+ trampCall(@_strip_MIMARKsyntactic_MIMARKclosures)
87
+ else raise NameError.new( "Error: undefined variable _strip_MIMARKsyntactic_MIMARKclosures", "_strip_MIMARKsyntactic_MIMARKclosures" ) end
88
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
89
+ end ,
90
+ [
91
+ __expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_30037
92
+ ]
93
+ ))
94
+ end
107
95
  )
108
- )
109
- )
110
- ) then
111
- begin
112
- ___lambda = lambda { |__v__14__gensym__de5653c32c493c653ee6557b7cf108e127448746_20053|
113
- if (
114
- _not(
115
- _eq_QUMARK(
116
- false ,
117
- _pair_QUMARK(
118
- __v__14__gensym__de5653c32c493c653ee6557b7cf108e127448746_20053
119
- )
120
- )
121
- )
122
- ) then
96
+ rescue => __e
97
+ __e.set_backtrace( [":1"] + __e.backtrace )
98
+ raise __e
99
+ end
100
+ )
101
+ end
102
+ end
103
+ } ; ___lambda.call(
104
+ begin
105
+ ___lambda = lambda { |__v__13__gensym__de5653c32c493c653ee6557b7cf108e127448746_30057|
106
+ if (
107
+ begin
108
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
109
+ _not(
123
110
  begin
124
- ___lambda = lambda { |__v__15__gensym__de5653c32c493c653ee6557b7cf108e127448746_20054|
125
- if (
126
- _not(
127
- _eq_QUMARK(
128
- false ,
129
- _pair_QUMARK(
130
- __v__15__gensym__de5653c32c493c653ee6557b7cf108e127448746_20054
131
- )
111
+ embedBacktraceInfo( "", 1 );
112
+ _eq_QUMARK(
113
+ false ,
114
+ begin
115
+ embedBacktraceInfo( "", 1 );
116
+ _pair_QUMARK(
117
+ __v__13__gensym__de5653c32c493c653ee6557b7cf108e127448746_30057
132
118
  )
133
- )
134
- ) then
119
+ end
120
+ )
121
+ end
122
+ )
123
+ end
124
+ ) then
125
+ begin
126
+ ___lambda = lambda { |__v__14__gensym__de5653c32c493c653ee6557b7cf108e127448746_30058|
127
+ if (
128
+ begin
129
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
130
+ _not(
135
131
  begin
136
- ___lambda = lambda { |__v__16__gensym__de5653c32c493c653ee6557b7cf108e127448746_20055|
137
- begin
138
- ___lambda = lambda { |_expr|
139
- begin
140
- ___lambda = lambda { |__v__17__gensym__de5653c32c493c653ee6557b7cf108e127448746_20056|
141
- if (
142
- _not(
143
- _eq_QUMARK(
144
- false ,
145
- _null_QUMARK(
146
- __v__17__gensym__de5653c32c493c653ee6557b7cf108e127448746_20056
147
- )
148
- )
149
- )
150
- ) then
151
- begin
152
- ___lambda = lambda { |__v__18__gensym__de5653c32c493c653ee6557b7cf108e127448746_20057|
153
- begin
154
- ___lambda = lambda { |_rest|
155
- begin
156
- ___lambda = lambda { |__v__19__gensym__de5653c32c493c653ee6557b7cf108e127448746_20058|
132
+ embedBacktraceInfo( "", 1 );
133
+ _eq_QUMARK(
134
+ false ,
135
+ begin
136
+ embedBacktraceInfo( "", 1 );
137
+ _pair_QUMARK(
138
+ __v__14__gensym__de5653c32c493c653ee6557b7cf108e127448746_30058
139
+ )
140
+ end
141
+ )
142
+ end
143
+ )
144
+ end
145
+ ) then
146
+ begin
147
+ ___lambda = lambda { |__v__15__gensym__de5653c32c493c653ee6557b7cf108e127448746_30059|
148
+ if (
149
+ begin
150
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
151
+ _not(
152
+ begin
153
+ embedBacktraceInfo( "", 1 );
154
+ _eq_QUMARK(
155
+ false ,
156
+ begin
157
+ embedBacktraceInfo( "", 1 );
158
+ _pair_QUMARK(
159
+ __v__15__gensym__de5653c32c493c653ee6557b7cf108e127448746_30059
160
+ )
161
+ end
162
+ )
163
+ end
164
+ )
165
+ end
166
+ ) then
167
+ begin
168
+ ___lambda = lambda { |__v__16__gensym__de5653c32c493c653ee6557b7cf108e127448746_30060|
169
+ begin
170
+ ___lambda = lambda { |_expr|
171
+ begin
172
+ ___lambda = lambda { |__v__17__gensym__de5653c32c493c653ee6557b7cf108e127448746_30061|
173
+ if (
174
+ begin
175
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
176
+ _not(
177
+ begin
178
+ embedBacktraceInfo( "", 1 );
179
+ _eq_QUMARK(
180
+ false ,
157
181
  begin
158
- ___lambda = lambda { |_body|
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(
182
+ embedBacktraceInfo( "", 1 );
183
+ _null_QUMARK(
184
+ __v__17__gensym__de5653c32c493c653ee6557b7cf108e127448746_30061
185
+ )
186
+ end
187
+ )
188
+ end
189
+ )
190
+ end
191
+ ) then
192
+ begin
193
+ ___lambda = lambda { |__v__18__gensym__de5653c32c493c653ee6557b7cf108e127448746_30062|
194
+ begin
195
+ ___lambda = lambda { |_rest|
196
+ begin
197
+ ___lambda = lambda { |__v__19__gensym__de5653c32c493c653ee6557b7cf108e127448746_30063|
198
+ begin
199
+ ___lambda = lambda { |_body|
200
+ begin
201
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
170
202
  _cons(
171
- _cons(
172
- trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
203
+ begin
204
+ embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
205
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038',
173
206
  begin
174
- trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
207
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038)
175
208
  rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
176
209
  end ,
177
210
  [
178
- :"tmp"
211
+ :"let"
179
212
  ]
180
- )) ,
213
+ ))
214
+ end ,
215
+ begin
216
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
181
217
  _cons(
182
218
  begin
183
- trampCall(_expr)
184
- rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:41"] + __e.backtrace ) ; raise __e
219
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
220
+ _cons(
221
+ begin
222
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
223
+ _cons(
224
+ begin
225
+ embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
226
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038',
227
+ begin
228
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038)
229
+ rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
230
+ end ,
231
+ [
232
+ :"tmp"
233
+ ]
234
+ ))
235
+ end ,
236
+ begin
237
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
238
+ _cons(
239
+ begin
240
+ trampCall(_expr)
241
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:41"] + __e.backtrace ) ; raise __e
242
+ end ,
243
+ Cell.new()
244
+ )
245
+ end
246
+ )
247
+ end ,
248
+ Cell.new()
249
+ )
185
250
  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
251
  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(
252
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
213
253
  _cons(
214
- trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
254
+ begin
255
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
256
+ _cons(
257
+ begin
258
+ embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
259
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038',
260
+ begin
261
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038)
262
+ rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
263
+ end ,
264
+ [
265
+ :"and"
266
+ ]
267
+ ))
268
+ end ,
269
+ begin
270
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
271
+ _cons(
272
+ begin
273
+ embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
274
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038',
275
+ begin
276
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038)
277
+ rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
278
+ end ,
279
+ [
280
+ :"tmp"
281
+ ]
282
+ ))
283
+ end ,
284
+ begin
285
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
286
+ _cons(
287
+ begin
288
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
289
+ _cons(
290
+ begin
291
+ embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
292
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038',
293
+ begin
294
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038)
295
+ rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
296
+ end ,
297
+ [
298
+ :"and-let*"
299
+ ]
300
+ ))
301
+ end ,
302
+ begin
303
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
304
+ _cons(
305
+ begin
306
+ trampCall(_rest)
307
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
308
+ end ,
309
+ begin
310
+ trampCall(_body)
311
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
312
+ end
313
+ )
314
+ end
315
+ )
316
+ end ,
317
+ Cell.new()
318
+ )
319
+ end
320
+ )
321
+ end
322
+ )
323
+ end ,
324
+ Cell.new()
325
+ )
326
+ end
327
+ )
328
+ end
329
+ )
330
+ end
331
+ } ; ___lambda.call(
332
+ __v__19__gensym__de5653c32c493c653ee6557b7cf108e127448746_30063
333
+ )
334
+ end
335
+ } ; ___lambda.call(
336
+ begin
337
+ embedBacktraceInfo( "", 1 );
338
+ _cdr(
339
+ __v__13__gensym__de5653c32c493c653ee6557b7cf108e127448746_30057
340
+ )
341
+ end
342
+ )
343
+ end
344
+ } ; ___lambda.call(
345
+ __v__18__gensym__de5653c32c493c653ee6557b7cf108e127448746_30062
346
+ )
347
+ end
348
+ } ; ___lambda.call(
349
+ begin
350
+ embedBacktraceInfo( "", 1 );
351
+ _cdr(
352
+ __v__14__gensym__de5653c32c493c653ee6557b7cf108e127448746_30058
353
+ )
354
+ end
355
+ )
356
+ end
357
+ else
358
+ false
359
+ end
360
+ } ; ___lambda.call(
361
+ begin
362
+ embedBacktraceInfo( "", 1 );
363
+ _cdr(
364
+ __v__15__gensym__de5653c32c493c653ee6557b7cf108e127448746_30059
365
+ )
366
+ end
367
+ )
368
+ end
369
+ } ; ___lambda.call(
370
+ __v__16__gensym__de5653c32c493c653ee6557b7cf108e127448746_30060
371
+ )
372
+ end
373
+ } ; ___lambda.call(
374
+ begin
375
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
376
+ _car(
377
+ __v__15__gensym__de5653c32c493c653ee6557b7cf108e127448746_30059
378
+ )
379
+ end
380
+ )
381
+ end
382
+ else
383
+ false
384
+ end
385
+ } ; ___lambda.call(
386
+ begin
387
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
388
+ _car(
389
+ __v__14__gensym__de5653c32c493c653ee6557b7cf108e127448746_30058
390
+ )
391
+ end
392
+ )
393
+ end
394
+ else
395
+ false
396
+ end
397
+ } ; ___lambda.call(
398
+ begin
399
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
400
+ _car(
401
+ __v__13__gensym__de5653c32c493c653ee6557b7cf108e127448746_30057
402
+ )
403
+ end
404
+ )
405
+ end
406
+ else
407
+ false
408
+ end
409
+ } ; ___lambda.call(
410
+ begin
411
+ embedBacktraceInfo( "", 1 );
412
+ _cdr(
413
+ __expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_30037
414
+ )
415
+ end
416
+ )
417
+ end
418
+ )
419
+ end
420
+ end
421
+ } ; ___lambda.call(
422
+ begin
423
+ ___lambda = lambda { |__v__4__gensym__de5653c32c493c653ee6557b7cf108e127448746_30048|
424
+ if (
425
+ begin
426
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
427
+ _not(
428
+ begin
429
+ embedBacktraceInfo( "", 1 );
430
+ _eq_QUMARK(
431
+ false ,
432
+ begin
433
+ embedBacktraceInfo( "", 1 );
434
+ _pair_QUMARK(
435
+ __v__4__gensym__de5653c32c493c653ee6557b7cf108e127448746_30048
436
+ )
437
+ end
438
+ )
439
+ end
440
+ )
441
+ end
442
+ ) then
443
+ begin
444
+ ___lambda = lambda { |__v__5__gensym__de5653c32c493c653ee6557b7cf108e127448746_30049|
445
+ if (
446
+ begin
447
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
448
+ _not(
449
+ begin
450
+ embedBacktraceInfo( "", 1 );
451
+ _eq_QUMARK(
452
+ false ,
453
+ begin
454
+ embedBacktraceInfo( "", 1 );
455
+ _pair_QUMARK(
456
+ __v__5__gensym__de5653c32c493c653ee6557b7cf108e127448746_30049
457
+ )
458
+ end
459
+ )
460
+ end
461
+ )
462
+ end
463
+ ) then
464
+ begin
465
+ ___lambda = lambda { |__v__6__gensym__de5653c32c493c653ee6557b7cf108e127448746_30050|
466
+ if (
467
+ begin
468
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
469
+ _not(
470
+ begin
471
+ embedBacktraceInfo( "", 1 );
472
+ _eq_QUMARK(
473
+ false ,
474
+ begin
475
+ embedBacktraceInfo( "", 1 );
476
+ _pair_QUMARK(
477
+ __v__6__gensym__de5653c32c493c653ee6557b7cf108e127448746_30050
478
+ )
479
+ end
480
+ )
481
+ end
482
+ )
483
+ end
484
+ ) then
485
+ begin
486
+ ___lambda = lambda { |__v__7__gensym__de5653c32c493c653ee6557b7cf108e127448746_30051|
487
+ begin
488
+ ___lambda = lambda { |_var|
489
+ begin
490
+ ___lambda = lambda { |__v__8__gensym__de5653c32c493c653ee6557b7cf108e127448746_30052|
491
+ if (
492
+ begin
493
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
494
+ _not(
495
+ begin
496
+ embedBacktraceInfo( "", 1 );
497
+ _eq_QUMARK(
498
+ false ,
499
+ begin
500
+ embedBacktraceInfo( "", 1 );
501
+ _pair_QUMARK(
502
+ __v__8__gensym__de5653c32c493c653ee6557b7cf108e127448746_30052
503
+ )
504
+ end
505
+ )
506
+ end
507
+ )
508
+ end
509
+ ) then
510
+ begin
511
+ ___lambda = lambda { |__v__9__gensym__de5653c32c493c653ee6557b7cf108e127448746_30053|
512
+ begin
513
+ ___lambda = lambda { |_expr|
514
+ begin
515
+ ___lambda = lambda { |__v__10__gensym__de5653c32c493c653ee6557b7cf108e127448746_30054|
516
+ if (
517
+ begin
518
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
519
+ _not(
520
+ begin
521
+ embedBacktraceInfo( "", 1 );
522
+ _eq_QUMARK(
523
+ false ,
524
+ begin
525
+ embedBacktraceInfo( "", 1 );
526
+ _null_QUMARK(
527
+ __v__10__gensym__de5653c32c493c653ee6557b7cf108e127448746_30054
528
+ )
529
+ end
530
+ )
531
+ end
532
+ )
533
+ end
534
+ ) then
535
+ begin
536
+ ___lambda = lambda { |__v__11__gensym__de5653c32c493c653ee6557b7cf108e127448746_30055|
537
+ begin
538
+ ___lambda = lambda { |_rest|
539
+ begin
540
+ ___lambda = lambda { |__v__12__gensym__de5653c32c493c653ee6557b7cf108e127448746_30056|
541
+ begin
542
+ ___lambda = lambda { |_body|
543
+ begin
544
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
545
+ _cons(
546
+ begin
547
+ embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
548
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038',
215
549
  begin
216
- trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
550
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038)
217
551
  rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
218
552
  end ,
219
553
  [
220
- :"and-let*"
554
+ :"let"
221
555
  ]
222
- )) ,
556
+ ))
557
+ end ,
558
+ begin
559
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
223
560
  _cons(
224
561
  begin
225
- trampCall(_rest)
226
- rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
562
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
563
+ _cons(
564
+ begin
565
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
566
+ _cons(
567
+ begin
568
+ trampCall(_var)
569
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:39"] + __e.backtrace ) ; raise __e
570
+ end ,
571
+ begin
572
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
573
+ _cons(
574
+ begin
575
+ trampCall(_expr)
576
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:41"] + __e.backtrace ) ; raise __e
577
+ end ,
578
+ Cell.new()
579
+ )
580
+ end
581
+ )
582
+ end ,
583
+ Cell.new()
584
+ )
227
585
  end ,
228
586
  begin
229
- trampCall(_body)
230
- rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
587
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
588
+ _cons(
589
+ begin
590
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
591
+ _cons(
592
+ begin
593
+ embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
594
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038',
595
+ begin
596
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038)
597
+ rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
598
+ end ,
599
+ [
600
+ :"and"
601
+ ]
602
+ ))
603
+ end ,
604
+ begin
605
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
606
+ _cons(
607
+ begin
608
+ trampCall(_var)
609
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:39"] + __e.backtrace ) ; raise __e
610
+ end ,
611
+ begin
612
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
613
+ _cons(
614
+ begin
615
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
616
+ _cons(
617
+ begin
618
+ embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
619
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038',
620
+ begin
621
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038)
622
+ rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
623
+ end ,
624
+ [
625
+ :"and-let*"
626
+ ]
627
+ ))
628
+ end ,
629
+ begin
630
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
631
+ _cons(
632
+ begin
633
+ trampCall(_rest)
634
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
635
+ end ,
636
+ begin
637
+ trampCall(_body)
638
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
639
+ end
640
+ )
641
+ end
642
+ )
643
+ end ,
644
+ Cell.new()
645
+ )
646
+ end
647
+ )
648
+ end
649
+ )
650
+ end ,
651
+ Cell.new()
652
+ )
231
653
  end
232
654
  )
233
- ) ,
234
- Cell.new()
655
+ end
235
656
  )
657
+ end
658
+ } ; ___lambda.call(
659
+ __v__12__gensym__de5653c32c493c653ee6557b7cf108e127448746_30056
660
+ )
661
+ end
662
+ } ; ___lambda.call(
663
+ begin
664
+ embedBacktraceInfo( "", 1 );
665
+ _cdr(
666
+ __v__4__gensym__de5653c32c493c653ee6557b7cf108e127448746_30048
236
667
  )
237
- ) ,
238
- Cell.new()
239
- )
668
+ end
669
+ )
670
+ end
671
+ } ; ___lambda.call(
672
+ __v__11__gensym__de5653c32c493c653ee6557b7cf108e127448746_30055
673
+ )
674
+ end
675
+ } ; ___lambda.call(
676
+ begin
677
+ embedBacktraceInfo( "", 1 );
678
+ _cdr(
679
+ __v__5__gensym__de5653c32c493c653ee6557b7cf108e127448746_30049
240
680
  )
241
- )
242
- } ; ___lambda.call(
243
- __v__19__gensym__de5653c32c493c653ee6557b7cf108e127448746_20058
244
- )
245
- end
246
- } ; ___lambda.call(
247
- _cdr(
248
- __v__13__gensym__de5653c32c493c653ee6557b7cf108e127448746_20052
249
- )
250
- )
681
+ end
682
+ )
683
+ end
684
+ else
685
+ false
251
686
  end
252
687
  } ; ___lambda.call(
253
- __v__18__gensym__de5653c32c493c653ee6557b7cf108e127448746_20057
688
+ begin
689
+ embedBacktraceInfo( "", 1 );
690
+ _cdr(
691
+ __v__8__gensym__de5653c32c493c653ee6557b7cf108e127448746_30052
692
+ )
693
+ end
254
694
  )
255
695
  end
256
696
  } ; ___lambda.call(
257
- _cdr(
258
- __v__14__gensym__de5653c32c493c653ee6557b7cf108e127448746_20053
259
- )
697
+ __v__9__gensym__de5653c32c493c653ee6557b7cf108e127448746_30053
260
698
  )
261
699
  end
262
- else
263
- false
264
- end
265
- } ; ___lambda.call(
266
- _cdr(
267
- __v__15__gensym__de5653c32c493c653ee6557b7cf108e127448746_20054
268
- )
269
- )
700
+ } ; ___lambda.call(
701
+ begin
702
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
703
+ _car(
704
+ __v__8__gensym__de5653c32c493c653ee6557b7cf108e127448746_30052
705
+ )
706
+ end
707
+ )
708
+ end
709
+ else
710
+ false
270
711
  end
271
712
  } ; ___lambda.call(
272
- __v__16__gensym__de5653c32c493c653ee6557b7cf108e127448746_20055
713
+ begin
714
+ embedBacktraceInfo( "", 1 );
715
+ _cdr(
716
+ __v__6__gensym__de5653c32c493c653ee6557b7cf108e127448746_30050
717
+ )
718
+ end
273
719
  )
274
720
  end
275
721
  } ; ___lambda.call(
276
- _car(
277
- __v__15__gensym__de5653c32c493c653ee6557b7cf108e127448746_20054
278
- )
722
+ __v__7__gensym__de5653c32c493c653ee6557b7cf108e127448746_30051
279
723
  )
280
724
  end
281
- else
282
- false
283
- end
284
- } ; ___lambda.call(
285
- _car(
286
- __v__14__gensym__de5653c32c493c653ee6557b7cf108e127448746_20053
287
- )
288
- )
725
+ } ; ___lambda.call(
726
+ begin
727
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
728
+ _car(
729
+ __v__6__gensym__de5653c32c493c653ee6557b7cf108e127448746_30050
730
+ )
731
+ end
732
+ )
733
+ end
734
+ else
735
+ false
289
736
  end
290
- else
291
- false
292
- end
293
- } ; ___lambda.call(
294
- _car(
295
- __v__13__gensym__de5653c32c493c653ee6557b7cf108e127448746_20052
296
- )
297
- )
737
+ } ; ___lambda.call(
738
+ begin
739
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
740
+ _car(
741
+ __v__5__gensym__de5653c32c493c653ee6557b7cf108e127448746_30049
742
+ )
743
+ end
744
+ )
745
+ end
746
+ else
747
+ false
298
748
  end
299
- else
300
- false
301
- end
302
- } ; ___lambda.call(
303
- _cdr(
304
- __expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_20032
305
- )
306
- )
749
+ } ; ___lambda.call(
750
+ begin
751
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
752
+ _car(
753
+ __v__4__gensym__de5653c32c493c653ee6557b7cf108e127448746_30048
754
+ )
755
+ end
756
+ )
757
+ end
758
+ else
759
+ false
307
760
  end
308
- )
309
- end
310
- end
311
- } ; ___lambda.call(
312
- begin
313
- ___lambda = lambda { |__v__4__gensym__de5653c32c493c653ee6557b7cf108e127448746_20043|
314
- if (
315
- _not(
316
- _eq_QUMARK(
317
- false ,
318
- _pair_QUMARK(
319
- __v__4__gensym__de5653c32c493c653ee6557b7cf108e127448746_20043
761
+ } ; ___lambda.call(
762
+ begin
763
+ embedBacktraceInfo( "", 1 );
764
+ _cdr(
765
+ __expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_30037
320
766
  )
321
- )
322
- )
323
- ) then
767
+ end
768
+ )
769
+ end
770
+ )
771
+ end
772
+ end
773
+ } ; ___lambda.call(
774
+ begin
775
+ ___lambda = lambda { |__v__1__gensym__de5653c32c493c653ee6557b7cf108e127448746_30045|
776
+ if (
777
+ begin
778
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
779
+ _not(
324
780
  begin
325
- ___lambda = lambda { |__v__5__gensym__de5653c32c493c653ee6557b7cf108e127448746_20044|
326
- if (
327
- _not(
328
- _eq_QUMARK(
329
- false ,
330
- _pair_QUMARK(
331
- __v__5__gensym__de5653c32c493c653ee6557b7cf108e127448746_20044
332
- )
781
+ embedBacktraceInfo( "", 1 );
782
+ _eq_QUMARK(
783
+ false ,
784
+ begin
785
+ embedBacktraceInfo( "", 1 );
786
+ _pair_QUMARK(
787
+ __v__1__gensym__de5653c32c493c653ee6557b7cf108e127448746_30045
333
788
  )
334
- )
335
- ) then
789
+ end
790
+ )
791
+ end
792
+ )
793
+ end
794
+ ) then
795
+ begin
796
+ ___lambda = lambda { |__v__2__gensym__de5653c32c493c653ee6557b7cf108e127448746_30046|
797
+ if (
798
+ begin
799
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
800
+ _not(
336
801
  begin
337
- ___lambda = lambda { |__v__6__gensym__de5653c32c493c653ee6557b7cf108e127448746_20045|
338
- if (
339
- _not(
340
- _eq_QUMARK(
341
- false ,
342
- _pair_QUMARK(
343
- __v__6__gensym__de5653c32c493c653ee6557b7cf108e127448746_20045
344
- )
802
+ embedBacktraceInfo( "", 1 );
803
+ _eq_QUMARK(
804
+ false ,
805
+ begin
806
+ embedBacktraceInfo( "", 1 );
807
+ _null_QUMARK(
808
+ __v__2__gensym__de5653c32c493c653ee6557b7cf108e127448746_30046
345
809
  )
346
- )
347
- ) then
348
- begin
349
- ___lambda = lambda { |__v__7__gensym__de5653c32c493c653ee6557b7cf108e127448746_20046|
350
- begin
351
- ___lambda = lambda { |_var|
810
+ end
811
+ )
812
+ end
813
+ )
814
+ end
815
+ ) then
816
+ begin
817
+ ___lambda = lambda { |__v__3__gensym__de5653c32c493c653ee6557b7cf108e127448746_30047|
818
+ begin
819
+ ___lambda = lambda { |_body|
820
+ begin
821
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
822
+ _cons(
823
+ begin
824
+ embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
825
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038',
352
826
  begin
353
- ___lambda = lambda { |__v__8__gensym__de5653c32c493c653ee6557b7cf108e127448746_20047|
354
- if (
355
- _not(
356
- _eq_QUMARK(
357
- false ,
358
- _pair_QUMARK(
359
- __v__8__gensym__de5653c32c493c653ee6557b7cf108e127448746_20047
360
- )
361
- )
362
- )
363
- ) then
364
- begin
365
- ___lambda = lambda { |__v__9__gensym__de5653c32c493c653ee6557b7cf108e127448746_20048|
366
- begin
367
- ___lambda = lambda { |_expr|
368
- begin
369
- ___lambda = lambda { |__v__10__gensym__de5653c32c493c653ee6557b7cf108e127448746_20049|
370
- if (
371
- _not(
372
- _eq_QUMARK(
373
- false ,
374
- _null_QUMARK(
375
- __v__10__gensym__de5653c32c493c653ee6557b7cf108e127448746_20049
376
- )
377
- )
378
- )
379
- ) then
380
- begin
381
- ___lambda = lambda { |__v__11__gensym__de5653c32c493c653ee6557b7cf108e127448746_20050|
382
- begin
383
- ___lambda = lambda { |_rest|
384
- begin
385
- ___lambda = lambda { |__v__12__gensym__de5653c32c493c653ee6557b7cf108e127448746_20051|
386
- begin
387
- ___lambda = lambda { |_body|
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(
401
- begin
402
- trampCall(_var)
403
- rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:39"] + __e.backtrace ) ; raise __e
404
- end ,
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
- )
461
- } ; ___lambda.call(
462
- __v__12__gensym__de5653c32c493c653ee6557b7cf108e127448746_20051
463
- )
464
- end
465
- } ; ___lambda.call(
466
- _cdr(
467
- __v__4__gensym__de5653c32c493c653ee6557b7cf108e127448746_20043
468
- )
469
- )
470
- end
471
- } ; ___lambda.call(
472
- __v__11__gensym__de5653c32c493c653ee6557b7cf108e127448746_20050
473
- )
474
- end
475
- } ; ___lambda.call(
476
- _cdr(
477
- __v__5__gensym__de5653c32c493c653ee6557b7cf108e127448746_20044
478
- )
479
- )
480
- end
481
- else
482
- false
483
- end
484
- } ; ___lambda.call(
485
- _cdr(
486
- __v__8__gensym__de5653c32c493c653ee6557b7cf108e127448746_20047
487
- )
488
- )
489
- end
490
- } ; ___lambda.call(
491
- __v__9__gensym__de5653c32c493c653ee6557b7cf108e127448746_20048
492
- )
493
- end
494
- } ; ___lambda.call(
495
- _car(
496
- __v__8__gensym__de5653c32c493c653ee6557b7cf108e127448746_20047
497
- )
498
- )
499
- end
500
- else
501
- false
502
- end
503
- } ; ___lambda.call(
504
- _cdr(
505
- __v__6__gensym__de5653c32c493c653ee6557b7cf108e127448746_20045
506
- )
507
- )
508
- end
509
- } ; ___lambda.call(
510
- __v__7__gensym__de5653c32c493c653ee6557b7cf108e127448746_20046
511
- )
512
- end
513
- } ; ___lambda.call(
514
- _car(
515
- __v__6__gensym__de5653c32c493c653ee6557b7cf108e127448746_20045
516
- )
517
- )
518
- end
519
- else
520
- false
827
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_30038)
828
+ rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
829
+ end ,
830
+ [
831
+ :"begin"
832
+ ]
833
+ ))
834
+ end ,
835
+ begin
836
+ trampCall(_body)
837
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
838
+ end
839
+ )
521
840
  end
522
841
  } ; ___lambda.call(
523
- _car(
524
- __v__5__gensym__de5653c32c493c653ee6557b7cf108e127448746_20044
525
- )
842
+ __v__3__gensym__de5653c32c493c653ee6557b7cf108e127448746_30047
526
843
  )
527
844
  end
528
- else
529
- false
530
- end
531
- } ; ___lambda.call(
532
- _car(
533
- __v__4__gensym__de5653c32c493c653ee6557b7cf108e127448746_20043
534
- )
535
- )
845
+ } ; ___lambda.call(
846
+ begin
847
+ embedBacktraceInfo( "", 1 );
848
+ _cdr(
849
+ __v__1__gensym__de5653c32c493c653ee6557b7cf108e127448746_30045
850
+ )
851
+ end
852
+ )
853
+ end
854
+ else
855
+ false
536
856
  end
537
- else
538
- false
539
- end
540
- } ; ___lambda.call(
541
- _cdr(
542
- __expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_20032
543
- )
544
- )
545
- end
546
- )
547
- end
548
- end
549
- } ; ___lambda.call(
550
- begin
551
- ___lambda = lambda { |__v__1__gensym__de5653c32c493c653ee6557b7cf108e127448746_20040|
552
- if (
553
- _not(
554
- _eq_QUMARK(
555
- false ,
556
- _pair_QUMARK(
557
- __v__1__gensym__de5653c32c493c653ee6557b7cf108e127448746_20040
558
- )
559
- )
560
- )
561
- ) then
562
- begin
563
- ___lambda = lambda { |__v__2__gensym__de5653c32c493c653ee6557b7cf108e127448746_20041|
564
- if (
565
- _not(
566
- _eq_QUMARK(
567
- false ,
568
- _null_QUMARK(
569
- __v__2__gensym__de5653c32c493c653ee6557b7cf108e127448746_20041
857
+ } ; ___lambda.call(
858
+ begin
859
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
860
+ _car(
861
+ __v__1__gensym__de5653c32c493c653ee6557b7cf108e127448746_30045
570
862
  )
571
- )
572
- )
573
- ) then
574
- begin
575
- ___lambda = lambda { |__v__3__gensym__de5653c32c493c653ee6557b7cf108e127448746_20042|
576
- begin
577
- ___lambda = lambda { |_body|
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
- )) ,
588
- begin
589
- trampCall(_body)
590
- rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
591
- end
592
- )
593
- } ; ___lambda.call(
594
- __v__3__gensym__de5653c32c493c653ee6557b7cf108e127448746_20042
595
- )
596
- end
597
- } ; ___lambda.call(
598
- _cdr(
599
- __v__1__gensym__de5653c32c493c653ee6557b7cf108e127448746_20040
600
- )
601
- )
602
- end
603
- else
604
- false
605
- end
606
- } ; ___lambda.call(
607
- _car(
608
- __v__1__gensym__de5653c32c493c653ee6557b7cf108e127448746_20040
609
- )
610
- )
863
+ end
864
+ )
865
+ end
866
+ else
867
+ false
611
868
  end
612
- else
613
- false
614
- end
615
- } ; ___lambda.call(
616
- _cdr(
617
- __expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_20032
618
- )
619
- )
620
- end
621
- )
622
- end
623
- }
624
- ]
625
- ))
869
+ } ; ___lambda.call(
870
+ begin
871
+ embedBacktraceInfo( "", 1 );
872
+ _cdr(
873
+ __expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_30037
874
+ )
875
+ end
876
+ )
877
+ end
878
+ )
879
+ end
880
+ }
881
+ ]
882
+ ))
883
+ end
626
884
  )
627
885
  end
628
886
  )