nendo 0.5.2 → 0.5.3

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
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
  )