nendo 0.6.4 → 0.6.5
Sign up to get free protection for your applications and to get access to all the features.
- checksums.yaml +15 -0
- data/Rakefile +20 -18
- data/VERSION.yml +1 -1
- data/lib/nendo/init.nndc +269 -269
- data/lib/nendo/nendo/experimental.nnd +69 -1
- data/lib/nendo/nendo/experimental.nndc +1814 -933
- data/lib/nendo/nendo/test.nndc +16 -16
- data/lib/nendo/rfc/json.nndc +6 -6
- data/lib/nendo/ruby/builtin_functions.rb +2 -0
- data/lib/nendo/ruby/core.rb +1 -1
- data/lib/nendo/ruby/printer.rb +2 -0
- data/lib/nendo/srfi-1.nnd +20 -5
- data/lib/nendo/srfi-1.nndc +1814 -1706
- data/lib/nendo/srfi-2.nndc +154 -154
- data/lib/nendo/srfi-26.nndc +433 -433
- data/lib/nendo/text/html-lite.nndc +46 -46
- data/lib/nendo/util/combinations.nndc +213 -213
- data/lib/nendo/util/list.nndc +294 -294
- data/lib/nendo/util/match.nnd +1 -1
- data/lib/nendo/util/match.nndc +5724 -5724
- data/test/nendo-util-test.nnd +121 -0
- data/test/nendo_spec.rb +5 -0
- data/test/rspec_formatter_for_emacs.rb +1 -0
- metadata +66 -17
data/lib/nendo/util/match.nnd
CHANGED
|
@@ -469,7 +469,7 @@
|
|
|
469
469
|
(if (>= j len)
|
|
470
470
|
(let ((id (reverse id-ls)) ...) (sk ... i))
|
|
471
471
|
(let ((w (vector-ref v j)))
|
|
472
|
-
(match-one w p ((vector-ref v j) (
|
|
472
|
+
(match-one w p ((vector-ref v j) (vector-set! v j))
|
|
473
473
|
(match-drop-ids (loop (+ j 1) (cons id id-ls) ...))
|
|
474
474
|
fk i)))))))
|
|
475
475
|
|