nendo 0.5.3 → 0.5.4
Sign up to get free protection for your applications and to get access to all the features.
- data/lib/init.nnd +7 -5
- data/lib/init.nndc +2078 -1997
- data/lib/nendo/experimental.nnd +58 -0
- data/lib/nendo/experimental.nndc +2614 -3
- data/lib/nendo/test.nnd +40 -8
- data/lib/nendo/test.nndc +704 -361
- data/lib/nendo.rb +29 -3
- data/lib/rfc/json.nndc +6 -6
- data/lib/srfi-1.nndc +147 -147
- data/lib/srfi-2.nndc +90 -90
- data/lib/srfi-26.nndc +251 -251
- data/lib/text/html-lite.nndc +23 -23
- data/lib/util/combinations.nndc +191 -191
- data/lib/util/list.nnd +2 -0
- data/lib/util/list.nndc +692 -609
- data/lib/util/match.nndc +5551 -5551
- data/test/nendo_spec.rb +19 -3
- data/test/syntax_spec.rb +339 -15
- data/test/testframework_spec.rb +153 -0
- data/test/util-list-test.nnd +6 -6
- metadata +6 -5
data/lib/text/html-lite.nndc
CHANGED
|
@@ -11,18 +11,18 @@ trampCall(
|
|
|
11
11
|
trampCall(
|
|
12
12
|
Proc.new { |_c|
|
|
13
13
|
begin
|
|
14
|
-
___lambda = lambda { |
|
|
14
|
+
___lambda = lambda { |___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_30127|
|
|
15
15
|
if (
|
|
16
16
|
begin
|
|
17
|
-
___lambda = lambda { |
|
|
17
|
+
___lambda = lambda { |___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_30133|
|
|
18
18
|
if (
|
|
19
19
|
begin
|
|
20
|
-
trampCall(
|
|
20
|
+
trampCall(___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_30133)
|
|
21
21
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
22
22
|
end
|
|
23
23
|
) then
|
|
24
24
|
begin
|
|
25
|
-
trampCall(
|
|
25
|
+
trampCall(___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_30133)
|
|
26
26
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
27
27
|
end
|
|
28
28
|
else
|
|
@@ -41,7 +41,7 @@ trampCall(
|
|
|
41
41
|
[
|
|
42
42
|
"<" ,
|
|
43
43
|
begin
|
|
44
|
-
trampCall(
|
|
44
|
+
trampCall(___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_30127)
|
|
45
45
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
46
46
|
end
|
|
47
47
|
]
|
|
@@ -56,15 +56,15 @@ trampCall(
|
|
|
56
56
|
else
|
|
57
57
|
if (
|
|
58
58
|
begin
|
|
59
|
-
___lambda = lambda { |
|
|
59
|
+
___lambda = lambda { |___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_30134|
|
|
60
60
|
if (
|
|
61
61
|
begin
|
|
62
|
-
trampCall(
|
|
62
|
+
trampCall(___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_30134)
|
|
63
63
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
64
64
|
end
|
|
65
65
|
) then
|
|
66
66
|
begin
|
|
67
|
-
trampCall(
|
|
67
|
+
trampCall(___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_30134)
|
|
68
68
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
69
69
|
end
|
|
70
70
|
else
|
|
@@ -83,7 +83,7 @@ trampCall(
|
|
|
83
83
|
[
|
|
84
84
|
">" ,
|
|
85
85
|
begin
|
|
86
|
-
trampCall(
|
|
86
|
+
trampCall(___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_30127)
|
|
87
87
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
88
88
|
end
|
|
89
89
|
]
|
|
@@ -98,15 +98,15 @@ trampCall(
|
|
|
98
98
|
else
|
|
99
99
|
if (
|
|
100
100
|
begin
|
|
101
|
-
___lambda = lambda { |
|
|
101
|
+
___lambda = lambda { |___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_30135|
|
|
102
102
|
if (
|
|
103
103
|
begin
|
|
104
|
-
trampCall(
|
|
104
|
+
trampCall(___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_30135)
|
|
105
105
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
106
106
|
end
|
|
107
107
|
) then
|
|
108
108
|
begin
|
|
109
|
-
trampCall(
|
|
109
|
+
trampCall(___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_30135)
|
|
110
110
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
111
111
|
end
|
|
112
112
|
else
|
|
@@ -125,7 +125,7 @@ trampCall(
|
|
|
125
125
|
[
|
|
126
126
|
"&" ,
|
|
127
127
|
begin
|
|
128
|
-
trampCall(
|
|
128
|
+
trampCall(___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_30127)
|
|
129
129
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
130
130
|
end
|
|
131
131
|
]
|
|
@@ -140,15 +140,15 @@ trampCall(
|
|
|
140
140
|
else
|
|
141
141
|
if (
|
|
142
142
|
begin
|
|
143
|
-
___lambda = lambda { |
|
|
143
|
+
___lambda = lambda { |___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_30136|
|
|
144
144
|
if (
|
|
145
145
|
begin
|
|
146
|
-
trampCall(
|
|
146
|
+
trampCall(___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_30136)
|
|
147
147
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
148
148
|
end
|
|
149
149
|
) then
|
|
150
150
|
begin
|
|
151
|
-
trampCall(
|
|
151
|
+
trampCall(___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_30136)
|
|
152
152
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
153
153
|
end
|
|
154
154
|
else
|
|
@@ -167,7 +167,7 @@ trampCall(
|
|
|
167
167
|
[
|
|
168
168
|
"\"" ,
|
|
169
169
|
begin
|
|
170
|
-
trampCall(
|
|
170
|
+
trampCall(___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_30127)
|
|
171
171
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
172
172
|
end
|
|
173
173
|
]
|
|
@@ -303,9 +303,9 @@ trampCall(
|
|
|
303
303
|
___lambda = lambda { |_type|
|
|
304
304
|
if (
|
|
305
305
|
begin
|
|
306
|
-
def self.
|
|
307
|
-
@global_lisp_binding['
|
|
308
|
-
@
|
|
306
|
+
def self.___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_30138_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_30138', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
|
307
|
+
@global_lisp_binding['___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_30138'] = self.method( :___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_30138_METHOD )
|
|
308
|
+
@___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_30138 =
|
|
309
309
|
trampCall(
|
|
310
310
|
begin
|
|
311
311
|
embedBacktraceInfo( "./lib/text/html-lite.nnd", 97 );
|
|
@@ -368,9 +368,9 @@ trampCall(
|
|
|
368
368
|
end ,
|
|
369
369
|
[
|
|
370
370
|
begin
|
|
371
|
-
if @global_lisp_binding.has_key?('
|
|
372
|
-
trampCall(@
|
|
373
|
-
else raise NameError.new( "Error: undefined variable
|
|
371
|
+
if @global_lisp_binding.has_key?('___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_30138') then
|
|
372
|
+
trampCall(@___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_30138)
|
|
373
|
+
else raise NameError.new( "Error: undefined variable ___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_30138", "___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_30138" ) end
|
|
374
374
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
375
375
|
end
|
|
376
376
|
]
|