wisp-cvs Mailing List for Wisp interpreter (Page 32)
Status: Alpha
Brought to you by:
digg
Menu
▾
▴
wisp-cvs — Automatic announcements of commits to the CVS repository
You can subscribe to this list here.
| 2002 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(30) |
Sep
(312) |
Oct
|
Nov
|
Dec
|
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2003 |
Jan
(5) |
Feb
(131) |
Mar
(17) |
Apr
(184) |
May
(252) |
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2004 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
(2) |
Nov
|
Dec
|
|
From: <di...@us...> - 2002-09-07 21:58:23
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5779/modules
Modified Files:
frer.wim
Log Message:
Made frer.wim avoid |vector-length| in favour of |length|.
Index: frer.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/frer.wim,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- frer.wim 7 Sep 2002 21:57:21 -0000 1.10
+++ frer.wim 7 Sep 2002 21:58:20 -0000 1.11
@@ -62,7 +62,7 @@
(emit #\U+0A)
(emit (pack-be-integer x 4)))
(else (raise 'frerrable-structure? x))))
- (vector? (my l (vector-length x)
+ (vector? (my l (length x)
(loop l)
(emit #\U+0F)
(emit #\U+07)
|
|
From: <di...@us...> - 2002-09-07 21:58:17
|
Update of /cvsroot/wisp/wisp/modules/format
In directory usw-pr-cvs1:/tmp/cvs-serv5741/modules/format
Modified Files:
elfexec.wim
Log Message:
Made format/elfexec.wim avoid |string-length| in favour of |length|.
Index: elfexec.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/format/elfexec.wim,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- elfexec.wim 26 Aug 2002 16:18:19 -0000 1.10
+++ elfexec.wim 7 Sep 2002 21:58:14 -0000 1.11
@@ -47,7 +47,7 @@
(relatives '())) ; list of (address . target)
(let* (((emit-string s)
(cons! rcode s)
- (incr! current (string-length s)))
+ (incr! current (length s)))
((emit-absolute target)
(cons! absolutes (cons current target))
(cons! rcode (make-c8string 4 #\U+00))
|
|
From: <di...@us...> - 2002-09-07 21:58:09
|
Update of /cvsroot/wisp/wisp/modules/format
In directory usw-pr-cvs1:/tmp/cvs-serv5715/modules/format
Modified Files:
as.wim
Log Message:
Made format/as.wim avoid |string-length| in favour of |length|.
Index: as.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/format/as.wim,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- as.wim 4 Sep 2002 14:26:24 -0000 1.8
+++ as.wim 7 Sep 2002 21:58:06 -0000 1.9
@@ -22,7 +22,7 @@
(my sep #f
(case seplen
(string? (set! sep seplen)
- (set! seplen (string-length sep)))
+ (set! seplen (length sep)))
(char? (set! sep seplen)
(set! seplen 1)))
(collect
@@ -32,9 +32,9 @@
emit)
(if (not (null? items))
(let ((rcurrent-line (list (car items)))
- (column (string-length (car items))))
+ (column (length (car items))))
(for-each (lambda (item)
- (my new-column (+ column seplen (string-length item))
+ (my new-column (+ column seplen (length item))
(if (<= new-column width)
(begin
(cons! rcurrent-line item)
@@ -42,7 +42,7 @@
(begin
(emit (reverse rcurrent-line))
(set! rcurrent-line (list item))
- (set! column (string-length item))))))
+ (set! column (length item))))))
(cdr items))
(emit (reverse rcurrent-line)))))))))
@@ -67,7 +67,7 @@
(wrap-text (map (serial char->integer
integer->string)
(string->list item))
- (- 72 (string-length ".byte "))
+ (- 72 (length ".byte "))
#\,)))
((cons? item)
(case (car item)
|
|
From: <di...@us...> - 2002-09-07 21:58:03
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5670/modules
Modified Files:
getopt.wim
Log Message:
Made getopt.wim avoid |string-length| in favour of |length|.
Index: getopt.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/getopt.wim,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- getopt.wim 26 Aug 2002 16:18:18 -0000 1.17
+++ getopt.wim 7 Sep 2002 21:58:00 -0000 1.18
@@ -89,12 +89,12 @@
(if (not (null? given-args))
(my item (string-copy (car given-args))
(cond
- ((and (> (string-length item) 1)
+ ((and (> (length item) 1)
(eq? item[0] #\-)) ; an option
(cond
((eq? item[1] #\-)
(cond
- ((= (string-length item) 2) ; "--" all alone
+ ((= (length item) 2) ; "--" all alone
(set! rargs (append-reverse (cdr given-args) rargs)))
(else ; a long option
(my sep (find-first-char #\= item 2)
@@ -155,27 +155,27 @@
(apply (lambda-pack
((flag (alias name) (value #t))
(process-flag #t alias value)
- (if (= (string-length item) 2)
+ (if (= (length item) 2)
(loop (cdr given-args))
(loop (cons (string-append #\-
item[2 ...])
(cdr given-args)))))
((soft-flag (alias name) (value #t))
(process-flag #f alias value)
- (if (= (string-length item) 2)
+ (if (= (length item) 2)
(loop (cdr given-args))
(loop (cons (string-append #\-
item[2 ...])
(cdr given-args)))))
((count (alias name) (initial 0))
(process-counter alias (+ initial 1))
- (if (= (string-length item) 2)
+ (if (= (length item) 2)
(loop (cdr given-args))
(loop (cons (string-append #\-
item[2 ...])
(cdr given-args)))))
((value (alias name))
- (if (= (string-length item) 2)
+ (if (= (length item) 2)
(begin
(my rest (cdr given-args)
(if (null? rest)
@@ -187,7 +187,7 @@
item[2 ...])
(loop (cdr given-args)))))
((multivalue (alias name))
- (if (= (string-length item) 2)
+ (if (= (length item) 2)
(begin
(my rest (cdr given-args)
(if (null? rest)
|
|
From: <di...@us...> - 2002-09-07 21:57:56
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5648/modules
Modified Files:
balanced.wim
Log Message:
Made balanced.wim avoid |string-length| in favour of |length|.
Index: balanced.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/balanced.wim,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- balanced.wim 26 Aug 2002 16:12:27 -0000 1.6
+++ balanced.wim 7 Sep 2002 21:57:53 -0000 1.7
@@ -28,7 +28,7 @@
(define (b3->integer s)
(my fault? #f
(my r 0
- (my l (string-length s)
+ (my l (length s)
(my i 0
(while (< i l)
(set! r (* r 3))
@@ -44,7 +44,7 @@
(define (b5->integer s)
(my fault? #f
(my r 0
- (my l (string-length s)
+ (my l (length s)
(my i 0
(while (< i l)
(set! r (* r 5))
|
|
From: <di...@us...> - 2002-09-07 21:57:50
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5618/modules
Modified Files:
cgi.wim
Log Message:
Made cgi.wim avoid |string-length| in favour of |length|.
Index: cgi.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/cgi.wim,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -d -r1.41 -r1.42
--- cgi.wim 4 Sep 2002 14:31:41 -0000 1.41
+++ cgi.wim 7 Sep 2002 21:57:47 -0000 1.42
@@ -53,7 +53,7 @@
(if (not content-length)
(raise 'content-length content-length-as-string))
(my content (read-string *stdin* content-length)
- (if (not (= (string-length content) content-length))
+ (if (not (= (length content) content-length))
(raise 'short-content content))
(my enctype (env-ref "CONTENT_TYPE")
(if (not enctype)
|
|
From: <di...@us...> - 2002-09-07 21:57:44
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5584/modules
Modified Files:
encoding.wim
Log Message:
Made encoding.wim avoid |string-length| in favour of |length|.
Index: encoding.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/encoding.wim,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- encoding.wim 26 Aug 2002 16:18:18 -0000 1.8
+++ encoding.wim 7 Sep 2002 21:57:41 -0000 1.9
@@ -19,8 +19,8 @@
(while (not (zero? i))
(decr! i)
(set! matrix[i] (integer->char i))))
- (assert (= (string-length old) (string-length new)))
- (my i (string-length old)
+ (assert (= (length old) (length new)))
+ (my i (length old)
(while (not (zero? i))
(decr! i)
(set! matrix[(char->integer old[i])] new[i])))
@@ -827,7 +827,7 @@
name
"$,[name]"))
(cond
- ((and (>= (string-length s) 4)
+ ((and (>= (length s) 4)
(string=? s[0 ... 3] "ibm")
(not (char=? s[3] #\-)))
(set! s (string-append "ibm-" s[3 ...]))))
|
|
From: <di...@us...> - 2002-09-07 21:57:36
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5537/modules
Modified Files:
block-port.wim
Log Message:
Made block-port.wim avoid |string-length| in favour of |length|.
Index: block-port.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/block-port.wim,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- block-port.wim 26 Aug 2002 16:18:17 -0000 1.13
+++ block-port.wim 7 Sep 2002 21:57:33 -0000 1.14
@@ -30,15 +30,15 @@
s
; if we read past end of file, the block might be shorter than asked
(begin
- (if (< (string-length s) block-size)
+ (if (< (length s) block-size)
(my ns (make-string block-size)
- (string-copy! ns 0 s 0 (string-length s))
+ (string-copy! ns 0 s 0 (length s))
(set! s ns)))
s))))
(friend (write-block bp index data)
(if (or (not (integer? index)) (negative? index))
(raise 'range index))
- (my delta (- block-size (string-length data))
+ (my delta (- block-size (length data))
(if (negative? delta)
(raise 'too-much-data data))
(seek port 'absolute (* index block-size))
|
|
From: <di...@us...> - 2002-09-07 21:57:30
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5520/modules
Modified Files:
codecoll.wim
Log Message:
Made codecoll.wim avoid |string-length| in favour of |length|.
Index: codecoll.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/codecoll.wim,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- codecoll.wim 26 Aug 2002 16:18:18 -0000 1.9
+++ codecoll.wim 7 Sep 2002 21:57:28 -0000 1.10
@@ -190,7 +190,7 @@
((symbol? item)
(cons! labels (cons item ip)))
((string? item)
- (decr! ip (string-length item)))
+ (decr! ip (length item)))
((cons? item)
(case (car item)
((reltetra tetra) (decr! ip 4))
@@ -205,7 +205,7 @@
(cond
((symbol? item))
((string? item)
- (decr! ip (string-length item)))
+ (decr! ip (length item)))
((cons? item)
(case (car item)
((reltetra)
|
|
From: <di...@us...> - 2002-09-07 21:57:24
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5491/modules
Modified Files:
frer.wim
Log Message:
Made frer.wim avoid |string-length| in favour of |length|.
Index: frer.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/frer.wim,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- frer.wim 26 Aug 2002 16:18:18 -0000 1.9
+++ frer.wim 7 Sep 2002 21:57:21 -0000 1.10
@@ -40,7 +40,7 @@
(emit (pack-be-integer (char->integer x) 2)))
(char? (emit #\U+13)
(emit (pack-be-integer (char->integer x) 4)))
- (c8string? (my l (string-length x)
+ (c8string? (my l (length x)
(cond
((<= l 255) (emit #\U+14)
(emit (integer->char l))
|
|
From: <di...@us...> - 2002-09-07 21:57:18
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5450/modules
Modified Files:
locale.wim
Log Message:
Made locale.wim avoid |string-length| in favour of |length|.
Index: locale.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/locale.wim,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- locale.wim 26 Aug 2002 16:18:19 -0000 1.4
+++ locale.wim 7 Sep 2002 21:57:15 -0000 1.5
@@ -107,13 +107,13 @@
(my l
(let (loop (i 0)
(term '(#\space #\_ #\. #\@)))
- (if (= i (string-length name))
+ (if (= i (length name))
(map (lambda #f #f) term) ; fill in the remaining slots
(my this (and (char=? name[i] (car term))
(my j (or (find-first-char
(cut memv <> (cdr term))
name)
- (string-length name))
+ (length name))
(hold (my part name[(+ i 1) ... j]
(case (car term)
((#\space #\@) ; downcase language and mod
|
|
From: <di...@us...> - 2002-09-07 21:57:11
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5409/modules
Modified Files:
morse.wim
Log Message:
Made morse.wim avoid |string-length| in favour of |length|.
Index: morse.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/morse.wim,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- morse.wim 26 Aug 2002 16:14:54 -0000 1.6
+++ morse.wim 7 Sep 2002 21:57:08 -0000 1.7
@@ -65,7 +65,7 @@
(emit #\space))
(set! extra-whitespace 0)
(emit (if (< state
- (string-length morse-tree))
+ (length morse-tree))
morse-tree[state]
(begin
(while (even? state)
|
|
From: <di...@us...> - 2002-09-07 21:57:05
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5333/modules
Modified Files:
regex.wim
Log Message:
Made regex.wim avoid |string-length| in favour of |length|.
Index: regex.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/regex.wim,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -d -r1.52 -r1.53
--- regex.wim 4 Sep 2002 14:39:08 -0000 1.52
+++ regex.wim 7 Sep 2002 21:57:02 -0000 1.53
@@ -314,7 +314,7 @@
;
(define (regex-string-match s1 s i n sk fk)
- (my n1 (string-length s1)
+ (my n1 (length s1)
(if (> n1 n) (fk)
(let (loop (j 0) (k i))
(cond
@@ -573,11 +573,11 @@
(define (regex-parse s)
(set! (regex-space-sensitive?) #t) ; in case it got corrupted
- (list ':sub (if (zero? (string-length s))
+ (list ':sub (if (zero? (length s))
`(:or (:seq))
- (car (regex-read-pattern s 0 (string-length s))))))
+ (car (regex-read-pattern s 0 (length s))))))
-(define (regex-match-positions pat str (start 0) (end (string-length str)))
+(define (regex-match-positions pat str (start 0) (end (length str)))
(my pat (if (string? pat)
(regex-parse pat)
pat)
@@ -588,7 +588,7 @@
(cadr vv)
(loop (+ i 1))))))))
-(define (regex-match pat str (start 0) (end (string-length str)))
+(define (regex-match pat str (start 0) (end (length str)))
(my ix-prs (regex-match-positions pat str start end)
(and ix-prs
(map (lambda (ix-pr)
@@ -613,10 +613,10 @@
(else (list str[item-start ...]))))))
(define (regex-replace pat str ins)
- (let* ((n (string-length str))
+ (let* ((n (length str))
(pp (regex-match-positions pat str 0 n)))
(if (not pp) str
- (my ins-len (string-length ins)
+ (my ins-len (length ins)
(my (m-i . m-n) (car pp)
(string-append
str[0 ... m-i]
@@ -625,8 +625,8 @@
(define (regex-replace* pat str ins)
(let ((pat (if (string? pat) (regex-parse pat) pat))
- (n (string-length str))
- (ins-len (string-length ins)))
+ (n (length str))
+ (ins-len (length ins)))
(let (loop (i 0) (r ""))
(my pp (regex-match-positions pat str i n)
(if pp
|
|
From: <di...@us...> - 2002-09-07 21:56:58
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5261/modules
Modified Files:
string-port.wim
Log Message:
Made string-port.wim avoid |string-length| in favour of |length|.
Index: string-port.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/string-port.wim,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- string-port.wim 4 Sep 2002 14:31:41 -0000 1.14
+++ string-port.wim 7 Sep 2002 21:56:55 -0000 1.15
@@ -25,19 +25,19 @@
(friend (raw-string-reader port string start count)
(if (negative? count)
(raise 'range count))
- (if (>= pos (string-length data)) ; eof
+ (if (>= pos (length data)) ; eof
0
(begin
- (if (< (- (string-length data) pos) count)
- (set! count (- (string-length data) pos)))
+ (if (< (- (length data) pos) count)
+ (set! count (- (length data) pos)))
(string-move! string start data pos count)
(incr! pos count)
count)))
(friend (raw-string-writer port string start count)
(if (negative? count)
(raise 'range count))
- (if (> (+ pos count) (string-length data))
- (set! (string-length data) (+ pos count)))
+ (if (> (+ pos count) (length data))
+ (set! (length data) (+ pos count)))
(string-move! data pos string start count)
(incr! pos count)
count)
@@ -45,7 +45,7 @@
(set! pos (+ delta (case whence
((absolute) 0)
((relative) pos)
- ((end) (string-length data))
+ ((end) (length data))
(else (raise 'invalid-whence whence)))))
pos)
(friend (get-output-string port)
|
|
From: <di...@us...> - 2002-09-07 21:56:52
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5220/modules
Modified Files:
strings.wim
Log Message:
Made strings.wim avoid |string-length| in favour of |length|.
Index: strings.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/strings.wim,v
retrieving revision 1.68
retrieving revision 1.69
diff -u -d -r1.68 -r1.69
--- strings.wim 4 Sep 2002 14:31:41 -0000 1.68
+++ strings.wim 7 Sep 2002 21:56:49 -0000 1.69
@@ -22,13 +22,13 @@
(define (group-from-left str group-length sep)
(let ((new-string (make-string
- (+ (string-length str)
- (* (ceiling (/ (string-length str)
- group-length)) (string-length sep)))))
+ (+ (length str)
+ (* (ceiling (/ (length str)
+ group-length)) (length sep)))))
(si 0)
(ni 0)
- (sl (string-length sep)))
- (while (< si (string-length str))
+ (sl (length sep)))
+ (while (< si (length str))
(if (and (not (zero? si)) (= (remainder si group-length) 0))
(begin
(string-move! new-string ni sep 0 sl)
@@ -36,45 +36,45 @@
(set! new-string[ni] str[si])
(incr! si)
(incr! ni))
- (set! (string-length new-string) ni)
+ (set! (length new-string) ni)
new-string))
(define (group-from-right str group-length sep)
- (let* ((d (modulo (- (string-length str)) group-length))
- (fs (make-string (+ d (string-length str)))))
- (string-move! fs d str 0 (string-length str))
+ (let* ((d (modulo (- (length str)) group-length))
+ (fs (make-string (+ d (length str)))))
+ (string-move! fs d str 0 (length str))
(let* ((g (group-from-left fs group-length sep))
- (rl (- (string-length g) d)))
+ (rl (- (length g) d)))
(string-move! g 0 g d rl) ; sic
- (set! (string-length g) rl)
+ (set! (length g) rl)
g)))
(define (pad-left str len ch (cut? #f))
- (my delta (- len (string-length str))
+ (my delta (- len (length str))
(if (negative? delta)
(if cut?
str[(- delta) ...]
str)
(my new-string (make-string len)
- (string-move! new-string delta str 0 (string-length str))
+ (string-move! new-string delta str 0 (length str))
(do ((i (- delta 1) (- i 1)))
((negative? i) new-string)
(set! new-string[i] ch))))))
(define (pad-right str len ch (cut? #f))
- (my delta (- len (string-length str))
+ (my delta (- len (length str))
(if (negative? delta)
(if cut?
str[... len]
str)
(my new-string (make-string len)
- (string-move! new-string 0 str 0 (string-length str))
- (do ((i (string-length str) (+ i 1)))
+ (string-move! new-string 0 str 0 (length str))
+ (do ((i (length str) (+ i 1)))
((>= i len) new-string)
(set! new-string[i] ch))))))
(define (string->vector str)
- (let* ((i (string-length str))
+ (let* ((i (length str))
(vec (make-vector i)))
(decr! i)
(while (not (negative? i))
@@ -100,7 +100,7 @@
(define (char-in-set? ch set)
(bitstring-ref set (char->integer ch)))
-(define (find-first-char ch s (start 0) (end (string-length s)))
+(define (find-first-char ch s (start 0) (end (length s)))
(my pred (if (char? ch)
(cut char=? <> ch)
ch)
@@ -110,7 +110,7 @@
i
(loop (+ i 1)))))))
-(define (find-last-char ch s (start 0) (end (string-length s)))
+(define (find-last-char ch s (start 0) (end (length s)))
(my pred (if (char? ch)
(cut char=? <> ch)
ch)
@@ -120,7 +120,7 @@
i
(loop (- i 1)))))))
-(define (string-trim s (ch char-whitespace?) (start 0) (end (string-length s)))
+(define (string-trim s (ch char-whitespace?) (start 0) (end (length s)))
(my i (find-last-char (cond
((char? ch) (serial (cut char=? <> ch) not))
(else (serial ch not)))
@@ -129,7 +129,7 @@
s[start ... (+ i 1)]
(string))))
-(define (string-trim-right s (ch char-whitespace?) (start 0) (end (string-length s)))
+(define (string-trim-right s (ch char-whitespace?) (start 0) (end (length s)))
(my i (find-first-char (cond
((char? ch) (serial (cut char=? <> ch) not))
(else (serial ch not)))
@@ -138,7 +138,7 @@
s[i ... end]
(string))))
-(define (string-trim-both s (ch char-whitespace?) (start 0) (end (string-length s)))
+(define (string-trim-both s (ch char-whitespace?) (start 0) (end (length s)))
(my i (find-first-char
(cond
((char? ch) (serial (cut char=? <> ch) not))
@@ -177,7 +177,7 @@
(define (simple-encode s alist)
(collect-string
(lambda (emit)
- (my l (string-length s)
+ (my l (length s)
(my i 0
(while (< i l)
(my ch s[i]
@@ -231,7 +231,7 @@
(and (not (string-null? s))
(char=? s[0] etalon)))
((string? etalon)
- (string=? s[... (string-length etalon)]
+ (string=? s[... (length etalon)]
etalon))
(else (raise 'string? etalon))))
@@ -241,13 +241,13 @@
(and (not (string-null? s))
(char=? s[-1] etalon)))
((string? etalon)
- (string=? s[(- (string-length etalon)) ...] etalon))
+ (string=? s[(- (length etalon)) ...] etalon))
(else (raise 'string? etalon))))
; FIXME: make it faster
(define (string-contains str substr
- (start1 0) (end1 (string-length str))
- (start2 0) (end2 (string-length substr)))
+ (start1 0) (end1 (length str))
+ (start2 0) (end2 (length substr)))
(my sublen (- end2 start2)
(my limit (- end1 sublen)
(let (loop (i start1))
@@ -264,12 +264,12 @@
(ptr (decr! max-cuts)
(cons str[i ... ptr]
(if (zero? max-cuts)
- (list str[(+ ptr (string-length substr)) ...])
- (loop (+ ptr (string-length substr))))))
+ (list str[(+ ptr (length substr)) ...])
+ (loop (+ ptr (length substr))))))
(else (list str[i ...]))))))
(define (string-reverse! s (start #f) (end #f))
- (my sl (string-length s)
+ (my sl (length s)
(set! start (if start (reduce-index start sl) 0))
(set! end (if end (reduce-index end sl) sl)))
(my i start
@@ -287,7 +287,7 @@
s))
(define (string-map! proc s (start #f) (end #f))
- (my sl (string-length s)
+ (my sl (length s)
(set! start (if start (reduce-index start sl) 0))
(set! end (if end (reduce-index end sl) sl)))
(my i start
@@ -301,7 +301,7 @@
s))
(define (string-for-each proc s (start #f) (end #f))
- (my sl (string-length s)
+ (my sl (length s)
(set! start (if start (reduce-index start sl) 0))
(set! end (if end (reduce-index end sl) sl)))
(my i start
@@ -310,7 +310,7 @@
(incr! i))))
(define (string-for-each-index proc s (start #f) (end #f))
- (my sl (string-length s)
+ (my sl (length s)
(set! start (if start (reduce-index start sl) 0))
(set! end (if end (reduce-index end sl) sl)))
(my i start
@@ -326,7 +326,7 @@
s[1 ...]))
((string-null? prefix) s)
((string? prefix)
- (my cp (string-length prefix)
+ (my cp (length prefix)
(and (string=? s[... cp] prefix)
s[cp ...])))
(else (raise 'string? prefix))))
@@ -339,7 +339,7 @@
s[... -1]))
((string-null? suffix) s)
((string? suffix)
- (my cp (- (string-length suffix))
+ (my cp (- (length suffix))
(and (string=? s[cp ...] suffix)
s[... cp])))
(else (raise 'string? suffix))))
|
|
From: <di...@us...> - 2002-09-07 21:56:45
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5191/modules
Modified Files:
shell.wisp
Log Message:
Made shell.wisp avoid |string-length| in favour of |length|.
Index: shell.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/shell.wisp,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -d -r1.34 -r1.35
--- shell.wisp 4 Sep 2002 14:37:34 -0000 1.34
+++ shell.wisp 7 Sep 2002 21:56:41 -0000 1.35
@@ -86,7 +86,7 @@
(my input-pos 0
(my last-char #f
(my hilit #f
- (while (< input-pos (string-length str))
+ (while (< input-pos (length str))
(my ch str[input-pos]
(case ch
((#\space)
|
|
From: <di...@us...> - 2002-09-07 21:56:37
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5167/modules
Modified Files:
unicode.wim
Log Message:
Made unicode.wim avoid |string-length| in favour of |length|.
Index: unicode.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/unicode.wim,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- unicode.wim 26 Aug 2002 16:12:29 -0000 1.6
+++ unicode.wim 7 Sep 2002 21:56:34 -0000 1.7
@@ -13,7 +13,7 @@
(define (string->utf-8 s)
(collect-string
(lambda (emit)
- (my l (string-length s)
+ (my l (length s)
(my i 0
(while (< i l)
(char-utf-8 s[i] emit)
|
|
From: <di...@us...> - 2002-09-07 21:56:31
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5125/modules
Modified Files:
unix.wim
Log Message:
Made unix.wim avoid |string-length| in favour of |length|.
Index: unix.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/unix.wim,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -d -r1.42 -r1.43
--- unix.wim 4 Sep 2002 14:30:44 -0000 1.42
+++ unix.wim 7 Sep 2002 21:56:27 -0000 1.43
@@ -186,7 +186,7 @@
(else (loop rest)))))))
(define (basename n (suffix #f))
- (my stop (string-length n)
+ (my stop (length n)
(if (zero? stop)
(string-copy "")
(begin
@@ -200,14 +200,14 @@
(not (eq? n[(- start 1)] #\/)))
(decr! start))
(if suffix
- (my sl (string-length suffix)
+ (my sl (length suffix)
(if (> (- stop start) sl)
(if (string=? n[(- stop sl) ... stop] suffix)
(decr! stop sl)))))
n[start ... stop]))))))
(define (dirname n)
- (my sep (string-length n)
+ (my sep (length n)
(if (zero? sep)
(string-copy ".")
(begin
|
|
From: <di...@us...> - 2002-09-07 21:56:23
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5075/modules
Modified Files:
url.wim
Log Message:
Made url.wim avoid |string-length| in favour of |length|.
Index: url.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/url.wim,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- url.wim 26 Aug 2002 16:18:19 -0000 1.7
+++ url.wim 7 Sep 2002 21:56:17 -0000 1.8
@@ -37,7 +37,7 @@
(define (urldecode s)
(collect-string
(lambda (emit)
- (my l (string-length s)
+ (my l (length s)
(let (loop (i 0))
(if (< i l)
(case s[i] tc
@@ -56,7 +56,7 @@
(define (parse-uri s)
; is the scheme given?
(my scheme-colon (let (loop (i 0))
- (and (< i (string-length s))
+ (and (< i (length s))
s[i] -> c
(not (char=? c #\/))
(if (char=? c #\:)
@@ -73,7 +73,7 @@
; getting along better with erroneous implementations.
(my fragment-hash (find-last-char #\# s (or scheme-colon 0))
; void fragmentid is equivalent to no fragmentid
- (if (eqv? fragment-hash (- (string-length s) 1))
+ (if (eqv? fragment-hash (- (length s) 1))
(set! fragment-hash #f))
(my fragment (and fragment-hash
(urldecode s[(+ fragment-hash 1) ...]))
|
|
From: <di...@us...> - 2002-09-07 21:56:14
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5048/modules
Modified Files:
wispdoc.wim
Log Message:
Made wispdoc.wim avoid |string-length| in favour of |length|.
Index: wispdoc.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/wispdoc.wim,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- wispdoc.wim 26 Aug 2002 16:14:54 -0000 1.11
+++ wispdoc.wim 7 Sep 2002 21:56:11 -0000 1.12
@@ -103,7 +103,7 @@
(my input-pos 0
(my last-char #f
(my hilit #f
- (while (< input-pos (string-length str))
+ (while (< input-pos (length str))
(my ch str[input-pos]
(case ch
((#\space)
@@ -127,7 +127,7 @@
(incr! output-pos))))
((and (or (not last-char)
(not (char-symbol-starter? last-char)))
- (< (+ input-pos 1) (string-length str))
+ (< (+ input-pos 1) (length str))
(char-symbolic? str[(+ input-pos 1)]))
(emit (case ch
((#\/) 'slash)
|
|
From: <di...@us...> - 2002-09-07 21:56:08
|
Update of /cvsroot/wisp/wisp/tools
In directory usw-pr-cvs1:/tmp/cvs-serv5007/tools
Modified Files:
pretty.wisp
Log Message:
Made tools/pretty.wisp avoid |string-length| in favour of |length|.
Index: pretty.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/tools/pretty.wisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- pretty.wisp 26 Aug 2002 16:18:24 -0000 1.6
+++ pretty.wisp 7 Sep 2002 21:56:05 -0000 1.7
@@ -79,7 +79,7 @@
(serial (cut char=? <> #\;)
not)
s)
- (string-length s))
+ (length s))
3)
'major-comment
'comment))
|
|
From: <di...@us...> - 2002-09-07 21:56:02
|
Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv4780/src
Modified Files:
essence.c wordlist.txt
Log Message:
Dropped |vector-ref|.
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.190
retrieving revision 1.191
diff -u -d -r1.190 -r1.191
--- essence.c 7 Sep 2002 21:54:53 -0000 1.190
+++ essence.c 7 Sep 2002 21:55:57 -0000 1.191
@@ -428,7 +428,6 @@
NN_vector_huh,
NN_vector_length,
NN_vector_move,
- NN_vector_ref,
NN_wisp_string_hash,
NN_ws2zt,
RT_box,
@@ -449,8 +448,8 @@
void*Y1[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mha,l0,q,qi,W(class_of),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 1,q,mha,l0,q,qi,W(subclass_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jinf,V 16,qi,W(instance_of_wrong_class),dig,V 2,q,mha,l,V 1,l,V 112,tc,V 2,c,ds,V 2,r,t,Z,ds,V 2,r};
void*Y2[]={hop,V 5,mlt,jinnc,V 10,notc,p,s,V 1,t,T,s,V 0,j,V 6,t,F,s,V 1,s,V 0,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 4,p,s,V 3,p,s,V 2,mla,l,V 0,jif,V 69,mla,l,V 4,xri,Q,jinz,V 21,mla,l,V 2,q,mla,l,V 3,q,mla,l,V 1,q,mha,l,V 1,l,V 87,tc,V 3,c,r,qi,W(argcount),mla,l,V 2,q,mla,l,V 3,q,mla,l,V 4,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 112,tc,V 2,c,r,mla,l,V 4,xri,Q,jinz,V 14,mla,l,V 2,q,mla,l,V 3,q,t,&dict_ref_2,tc,V 2,c,r,mla,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 26,mla,l,V 2,q,mla,l,V 3,q,mla,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,&NN_dict_ref_3,tc,V 3,c,r,qi,W(argcount),mla,l,V 2,q,mla,l,V 3,q,mla,l,V 4,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 112,tc,V 2,c,r};
void*Y3[]={binc,&branch_EVM_invargc,hop,V 6,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 0,q,t,&NN_pr_make_record_type,tc,V 1,c,mlt,s,V 2,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,F,q,t,F,q,mla,l,V 1,xri,Q,jiz,V 114,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 3,p,l,V 1,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 4,p,l,V 1,mlt,s,V 5,mla,l,V 5,mlt,s,V 1,mla,l,V 3,q,dig,V 0,xri,W(ref),jinz,V 44,dig,V 1,jif,V 16,qi,W(duplicate_ref_hook),mla,l,V 4,q,mha,l,V 1,l,V 112,tc,V 2,c,j,V 22,t,T,bury,V 1,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 12,tc,V 2,c,bury,V 2,j,V 14,qi,W(record_hook_name_huh),mla,l,V 3,q,mha,l,V 1,l,V 112,tc,V 2,c,ds,V 1,j,V -121,dig,V 0,jif,V 13,dig,V 2,q,dig,V 2,q,t,&NN_pr_record_type_ref_slot,tc,V -2,c,j,V 0,ds,V 1,ds,V 1,ds,V 1,mla,l,V 2,r};
-void*Y4[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 93,tc,V 1,c,jinf,V 28,dig,V 0,q,mha,l,V 1,l,V 111,tc,V 1,c,jinf,V 15,qi,W(procedure_huh),dig,V 1,q,mha,l,V 1,l,V 112,tc,V 2,c,j,V 0,dig,V 0,q,mha,l,V 1,l,V 160,tc,V 1,c,ds,V 1,r};
-void*Y5[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 161,tc,V 1,c,ds,V 1,r};
+void*Y4[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 93,tc,V 1,c,jinf,V 28,dig,V 0,q,mha,l,V 1,l,V 111,tc,V 1,c,jinf,V 15,qi,W(procedure_huh),dig,V 1,q,mha,l,V 1,l,V 112,tc,V 2,c,j,V 0,dig,V 0,q,mha,l,V 1,l,V 159,tc,V 1,c,ds,V 1,r};
+void*Y5[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 160,tc,V 1,c,ds,V 1,r};
void*Y6[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 113,qi,W(define),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(procedure2macro),qi,W(lambda),qi,W(Xsource_dictionaryX),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mla,l,V 2,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 129,tc,V 1,c,jif,V 42,mla,l,V 2,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 24,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,j,V 2,t,F,jif,V 179,qi,W(define),mla,l,V 1,q,qi,W(procedure2macro),qi,W(lambda),qi,W(Xsource_dictionaryX),qi,W(DOTl),mha,l,V 1,l,V 80,tc,V 2,c,q,qi,W(apply),qi,W(hide),qi,W(DOTl),mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,r,qi,W(syntax_error),qi,W(defmacro),mla,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 112,tc,V 2,c,r};
void*Y7[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 0,q,dig,V 2,q,mha,l0,q,qi,W(eval),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 2,r};
void*Y8[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 12,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 11,mac,p,s,V 1,p,s,V 0,t,W(assertion_failed),s,V 2,qi,W(if),qi,W(not),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,W(raise),qi,W(quote),mla,l,V 2,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,W(quote),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,W(begin),qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,r};
@@ -493,7 +492,7 @@
void*Y46[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,qi,Q,mha,l,V 1,l,V 100,tc,V 1,c,mlt,s,V 1,mla,l,V 1,mlt,s,V 2,t,B 44,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 3,t,B 45,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 4,mla,l,V 3,q,mla,l,V 4,q,mla,l,V 0,tc,V 2,c,mla,l,V 2,q,qi,Q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,r};
void*Y47[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,xri,W(undefined),jinz,V 15,qi,W(make_box),qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,ds,V 2,r,dig,V 1,q,dig,V 1,q,mha,l,V 1,l,V 112,tc,V 2,c,ds,V 2,r};
void*Y48[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 1,q,mha,l,V 1,l,V 26,tc,V 1,c,mlt,s,V 0,qi,W(make_box),qi,W(quasiquote),mla,l,V 0,q,mha,l,V 1,l,V 100,tc,V 2,c,q,mha,l,V 1,l,V 100,tc,V 2,c,r};
-void*Y49[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 18,mla,l,V 1,q,mha,l0,q,qi,W(quasiquote_cons),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r,mla,l,V 1,q,mha,l,V 1,l,V 152,tc,V 1,c,jif,V 62,qi,W(list2vector),qi,W(quasiquote),mla,l,V 1,q,mha,l0,q,qi,W(vector2list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 27,tc,V 1,c,jif,V 37,qi,T,t,B 47,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 48,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 30,tc,V 3,c,r,qi,W(quote),mla,l,V 1,q,mha,l,V 1,l,V 100,tc,V 2,c,r};
+void*Y49[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 18,mla,l,V 1,q,mha,l0,q,qi,W(quasiquote_cons),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r,mla,l,V 1,q,mha,l,V 1,l,V 151,tc,V 1,c,jif,V 62,qi,W(list2vector),qi,W(quasiquote),mla,l,V 1,q,mha,l0,q,qi,W(vector2list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 27,tc,V 1,c,jif,V 37,qi,T,t,B 47,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 48,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 30,tc,V 3,c,r,qi,W(quote),mla,l,V 1,q,mha,l,V 1,l,V 100,tc,V 2,c,r};
void*Y50[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jinz,V 5,dig,V 1,ds,V 2,r,qi,W(append),dig,V 2,q,qi,W(quasiquote),dig,V 3,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,ds,V 2,r};
void*Y51[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 314,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 0,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,mla,l,V 1,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 24,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 160,mla,l,V 0,mlt,s,V 2,mla,l,V 2,xri,W(unquote),jinz,V 14,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,ds,V 1,r,mla,l,V 2,xri,W(quasiquote),jinz,V 41,qi,W(quote),mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,ds,V 1,r,qi,W(cons),qi,W(quasiquote),mla,l,V 0,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,W(quasiquote),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,ds,V 1,r,qi,W(cons),qi,W(quasiquote),mla,l,V 0,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,W(quasiquote),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,ds,V 1,r,qi,W(quote),dig,V 1,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,ds,V 1,r};
void*Y52[]={binc,&branch_EVM_invargc,hop,V 9,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 0,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,mla,l,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 517,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 2,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 3,mla,l,V 3,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 24,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 400,mla,l,V 2,mlt,s,V 4,mla,l,V 4,xri,W(unquote_splicing),jinz,V 32,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 1,q,mha,l0,q,qi,W(process_unquote_splicing),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 1,r,mla,l,V 4,xri,W(unquote),jinz,V 302,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 5,mla,l,V 5,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 230,mla,l,V 5,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 6,mla,l,V 5,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 7,mla,l,V 7,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 24,mla,l,V 7,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 102,mla,l,V 6,mlt,s,V 8,mla,l,V 8,xri,W(splicing),jinz,V 32,mla,l,V 7,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 1,q,mha,l0,q,qi,W(process_unquote_splicing),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 1,r,qi,W(unquote),mla,l,V 6,q,mla,l,V 7,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 100,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,qi,W(unquote),mla,l,V 6,q,mla,l,V 7,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 100,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,qi,W(unquote),mla,l,V 5,q,mha,l,V 1,l,V 100,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,mla,l,V 2,q,mla,l,V 3,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,mla,l,V 2,q,mla,l,V 3,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l0,q,qi,W(process_simple_quasiquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r};
@@ -524,8 +523,8 @@
void*Y77[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,xri,I(0),jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r};
void*Y78[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,qi,I(0),dig,V 1,q,li,rvec+15,tc,V 2,c,ds,V 1,r};
void*Y79[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,qi,I(0),li,rvec+15,tc,V 2,c,ds,V 1,r};
-void*Y80[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 13,dig,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,j,V 2,t,F,jif,V 82,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(binary_equal_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 40,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l0,q,qi,W(binary_equal_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 2,r,t,F,ds,V 2,r,dig,V 1,q,mha,l,V 1,l,V 128,tc,V 1,c,jif,V 13,dig,V 0,q,mha,l,V 1,l,V 128,tc,V 1,c,j,V 2,t,F,jif,V 22,dig,V 1,q,dig,V 1,q,mha,l0,q,qi,W(stringEQ_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 2,r,dig,V 1,q,mha,l,V 1,l,V 152,tc,V 1,c,jif,V 13,dig,V 0,q,mha,l,V 1,l,V 152,tc,V 1,c,j,V 2,t,F,jif,V 72,dig,V 1,q,mha,l,V 1,l,V 149,tc,V 1,c,q,dig,V 1,q,mha,l,V 1,l,V 149,tc,V 1,c,q,li,rvec+17,tc,V 2,c,jif,V 36,dig,V 1,q,dig,V 1,q,qi,I(0),dig,V 4,q,mha,l,V 1,l,V 149,tc,V 1,c,q,mha,l0,q,qi,W(binary_vector_contents_equal_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 4,c,ds,V 2,r,t,F,ds,V 2,r,dig,V 1,q,dig,V 1,q,li,rvec+17,tc,V 2,c,ds,V 2,r};
-void*Y81[]={binc,&branch_EVM_invargc,mca,subc,V 4,binzc,&branch_EVM_invargca,dig,V 1,q,dig,V 1,q,li,rvec+15,tc,V 2,c,jinf,V 4,t,T,j,V 2,t,F,jinf,V 82,dig,V 3,q,dig,V 2,q,mha,l,V 1,l,V 151,tc,V 2,c,q,dig,V 3,q,dig,V 3,q,mha,l,V 1,l,V 151,tc,V 2,c,q,mha,l0,q,qi,W(binary_equal_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 35,dig,V 3,q,dig,V 3,q,dig,V 3,q,qi,I(1),li,rvec+4,tc,V 2,c,q,dig,V 3,q,mha,l0,q,qi,W(binary_vector_contents_equal_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 4,c,j,V 2,t,F,ds,V 4,r};
+void*Y80[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 13,dig,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,j,V 2,t,F,jif,V 82,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(binary_equal_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 40,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l0,q,qi,W(binary_equal_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 2,r,t,F,ds,V 2,r,dig,V 1,q,mha,l,V 1,l,V 128,tc,V 1,c,jif,V 13,dig,V 0,q,mha,l,V 1,l,V 128,tc,V 1,c,j,V 2,t,F,jif,V 22,dig,V 1,q,dig,V 1,q,mha,l0,q,qi,W(stringEQ_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 2,r,dig,V 1,q,mha,l,V 1,l,V 151,tc,V 1,c,jif,V 13,dig,V 0,q,mha,l,V 1,l,V 151,tc,V 1,c,j,V 2,t,F,jif,V 72,dig,V 1,q,mha,l,V 1,l,V 149,tc,V 1,c,q,dig,V 1,q,mha,l,V 1,l,V 149,tc,V 1,c,q,li,rvec+17,tc,V 2,c,jif,V 36,dig,V 1,q,dig,V 1,q,qi,I(0),dig,V 4,q,mha,l,V 1,l,V 149,tc,V 1,c,q,mha,l0,q,qi,W(binary_vector_contents_equal_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 4,c,ds,V 2,r,t,F,ds,V 2,r,dig,V 1,q,dig,V 1,q,li,rvec+17,tc,V 2,c,ds,V 2,r};
+void*Y81[]={binc,&branch_EVM_invargc,mca,subc,V 4,binzc,&branch_EVM_invargca,dig,V 1,q,dig,V 1,q,li,rvec+15,tc,V 2,c,jinf,V 4,t,T,j,V 2,t,F,jinf,V 82,dig,V 3,q,dig,V 2,q,mha,l,V 1,l,V 119,tc,V 2,c,q,dig,V 3,q,dig,V 3,q,mha,l,V 1,l,V 119,tc,V 2,c,q,mha,l0,q,qi,W(binary_equal_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 35,dig,V 3,q,dig,V 3,q,dig,V 3,q,qi,I(1),li,rvec+4,tc,V 2,c,q,dig,V 3,q,mha,l0,q,qi,W(binary_vector_contents_equal_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 4,c,j,V 2,t,F,ds,V 4,r};
void*Y82[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 1,xri,Q,jinz,V 3,t,T,r,mha,l,V 2,l,V 0,q,mha,l,V 2,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(binary_equal_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 29,mha,l,V 2,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mat,mha,l,V 2,st,V 1,mha,l,V 2,l,V 2,tc,V 0,c,r,t,F,r};
void*Y83[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,t,Q,mlt,s,V 2,t,B 82,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 2,mla,l,V 2,tc,V 0,c,r};
void*Y84[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,xri,T,jinz,V 4,t,T,j,V 2,t,F,jinf,V 12,dig,V 0,xri,F,jinz,V 4,t,T,j,V 2,t,F,ds,V 1,r};
@@ -565,19 +564,19 @@
void*Y118[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 65,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 2,l,V 3,tc,V 2,c,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 3,tc,V 2,c,ds,V 2,r,dig,V 1,xri,Q,jinz,V 5,t,Z,ds,V 2,r,mha,l,V 2,l,V 0,q,dig,V 2,q,dig,V 2,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,t,Z,ds,V 2,r};
void*Y119[]={binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 3,binzc,&branch_EVM_invargca,mlt,p,s,V 2,p,s,V 1,p,s,V 0,t,Q,mlt,s,V 3,t,B 118,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 3,mla,l,V 1,q,mla,l,V 2,q,mla,l,V 3,tc,V 2,c,r};
void*Y120[]={binc,&branch_EVM_invargc,mca,subc,V 3,binzc,&branch_EVM_invargca,qi,W(dict_bind_bang),qi,W(quote),dig,V 4,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,W(quote),dig,V 4,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,dig,V 3,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,ds,V 3,r};
-void*Y121[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,mlt,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 52,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 2,l,V 1,tc,V 1,c,q,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 1,tc,V 1,c,q,mha,l,V 1,l,V 80,tc,V 2,c,ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 128,tc,V 1,c,jif,V 19,dig,V 0,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 152,tc,V 1,c,jif,V 42,dig,V 0,q,mha,l0,q,qi,W(vector2list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 2,l,V 1,tc,V 1,c,q,mha,l0,q,qi,W(list2vector),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 88,tc,V 1,c,jif,V 37,dig,V 0,q,mha,l,V 1,l,V 84,tc,V 1,c,q,mha,l,V 2,l,V 1,tc,V 1,c,q,mha,l0,q,qi,W(alist2dict),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,dig,V 0,ds,V 1,r};
+void*Y121[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,mlt,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 52,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 2,l,V 1,tc,V 1,c,q,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 1,tc,V 1,c,q,mha,l,V 1,l,V 80,tc,V 2,c,ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 128,tc,V 1,c,jif,V 19,dig,V 0,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 151,tc,V 1,c,jif,V 42,dig,V 0,q,mha,l0,q,qi,W(vector2list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 2,l,V 1,tc,V 1,c,q,mha,l0,q,qi,W(list2vector),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 88,tc,V 1,c,jif,V 37,dig,V 0,q,mha,l,V 1,l,V 84,tc,V 1,c,q,mha,l,V 2,l,V 1,tc,V 1,c,q,mha,l0,q,qi,W(alist2dict),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,dig,V 0,ds,V 1,r};
void*Y122[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,Q,mlt,s,V 1,t,B 121,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 1,mla,l,V 0,q,mla,l,V 1,tc,V 1,c,r};
void*Y123[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 1,xri,Q,jiz,V 50,mha,l,V 2,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 2,l,V 0,tc,V 1,c,q,dig,V 1,tc,V 1,c,mha,l,V 2,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mat,mha,l,V 2,st,V 1,j,V -59,t,Z,ds,V 1,r};
-void*Y124[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,t,B 123,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 162,tc,V 1,c,r};
-void*Y125[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(carTIMES),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,jif,V 61,mha,l,V 2,l,V 0,q,mla,l,V 0,q,mha,l,V 1,l,V 12,tc,V 2,c,q,mha,l,V 3,l,V 0,tc,V 1,c,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,q,dig,V 1,q,mha,l,V 1,l,V 164,tc,V 2,c,q,mha,l,V 3,l,V 1,tc,V 1,c,ds,V 1,r,t,Z,ds,V 1,r};
+void*Y124[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,t,B 123,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 161,tc,V 1,c,r};
+void*Y125[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(carTIMES),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,jif,V 61,mha,l,V 2,l,V 0,q,mla,l,V 0,q,mha,l,V 1,l,V 12,tc,V 2,c,q,mha,l,V 3,l,V 0,tc,V 1,c,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,q,dig,V 1,q,mha,l,V 1,l,V 163,tc,V 2,c,q,mha,l,V 3,l,V 1,tc,V 1,c,ds,V 1,r,t,Z,ds,V 1,r};
void*Y126[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,Q,mlt,s,V 1,t,B 125,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 1,mha,l,V 2,l,V 1,q,mha,l,V 2,l,V 2,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mla,l,V 1,tc,V 1,c,r};
-void*Y127[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l,V 1,l,V 152,tc,V 1,c,jif,V 22,mla,l,V 1,q,mha,l0,q,qi,W(vector2list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 1,j,V 0,mla,l,V 2,xri,Q,jinz,V 17,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 164,tc,V 2,c,r,t,B 126,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 162,tc,V 1,c,r};
-void*Y128[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(carTIMES),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,jif,V 58,mla,l,V 0,mlt,s,V 1,mha,l,V 2,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 12,tc,V 2,c,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,q,dig,V 1,q,mha,l,V 1,l,V 164,tc,V 2,c,q,mha,l,V 2,l,V 4,tc,V 1,c,ds,V 1,r,t,F,ds,V 1,r};
+void*Y127[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l,V 1,l,V 151,tc,V 1,c,jif,V 22,mla,l,V 1,q,mha,l0,q,qi,W(vector2list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 1,j,V 0,mla,l,V 2,xri,Q,jinz,V 17,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 163,tc,V 2,c,r,t,B 126,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 161,tc,V 1,c,r};
+void*Y128[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(carTIMES),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,jif,V 58,mla,l,V 0,mlt,s,V 1,mha,l,V 2,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 12,tc,V 2,c,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,q,dig,V 1,q,mha,l,V 1,l,V 163,tc,V 2,c,q,mha,l,V 2,l,V 4,tc,V 1,c,ds,V 1,r,t,F,ds,V 1,r};
void*Y129[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 2,xri,Q,jinz,V 51,mla,l,V 1,mlt,s,V 3,mla,l,V 3,xri,Q,jiz,V 35,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 0,tc,V 1,c,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 3,j,V -42,t,Z,r,t,Q,mlt,s,V 4,t,B 128,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 4,mla,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mla,l,V 4,tc,V 1,c,r};
void*Y130[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jiz,V 20,mha,l,V 2,l,V 1,q,dig,V 1,q,mha,l,V 1,l,V 112,tc,V 2,c,ds,V 2,r,t,F,ds,V 2,r};
-void*Y131[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l0,q,qi,W(car),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 164,tc,V 2,c,r};
+void*Y131[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l0,q,qi,W(car),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 163,tc,V 2,c,r};
void*Y132[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,W(cons_huh),s,V 1,qi,W(cons_huh),t,B 130,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 131,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 30,tc,V 3,c,r};
-void*Y133[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 164,tc,V 2,c,r};
+void*Y133[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 163,tc,V 2,c,r};
void*Y134[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,W(cons_huh),s,V 1,qi,W(cons_huh),t,B 130,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 133,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 30,tc,V 3,c,r};
void*Y135[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,xri,Q,jiz,V 39,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 1,q,mha,l,V 1,l,V 80,tc,V 2,c,bury,V 0,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 1,j,V -45,dig,V 0,ds,V 2,r};
void*Y136[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,qi,Q,mha,l0,q,qi,W(append_reverse),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 1,r};
@@ -587,7 +586,7 @@
void*Y140[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(concatenate),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r};
void*Y141[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jinz,V 4,t,T,j,V 2,t,F,jinf,V 37,dig,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 22,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 1,tc,V 1,c,j,V 2,t,F,ds,V 1,r};
void*Y142[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,Q,mlt,s,V 1,t,B 141,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 1,mla,l,V 0,q,mla,l,V 1,tc,V 1,c,r};
-void*Y143[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,mlt,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 128,tc,V 1,c,jif,V 14,dig,V 0,q,mha,l,V 1,l,V 126,tc,V 1,c,ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 152,tc,V 1,c,jif,V 14,dig,V 0,q,mha,l,V 1,l,V 149,tc,V 1,c,ds,V 1,r,t,I(0),mlt,s,V 1,dig,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 29,mla,l,V 1,q,qi,I(1),li,rvec+4,tc,V 2,c,mlt,s,V 1,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -42,mla,l,V 1,ds,V 1,r};
+void*Y143[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,mlt,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 128,tc,V 1,c,jif,V 14,dig,V 0,q,mha,l,V 1,l,V 126,tc,V 1,c,ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 151,tc,V 1,c,jif,V 14,dig,V 0,q,mha,l,V 1,l,V 149,tc,V 1,c,ds,V 1,r,t,I(0),mlt,s,V 1,dig,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 29,mla,l,V 1,q,qi,I(1),li,rvec+4,tc,V 2,c,mlt,s,V 1,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -42,mla,l,V 1,ds,V 1,r};
void*Y144[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 16,dig,V 1,xri,Q,jinz,V 5,ds,V 2,t,T,r,ds,V 2,t,F,r,dig,V 1,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 34,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,dig,V 1,q,qi,I(1),li,rvec+5,tc,V 2,c,q,mha,l,V 2,l,V 2,tc,V 2,c,ds,V 2,r,t,F,ds,V 2,r};
void*Y145[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,t,Q,mlt,s,V 2,t,B 144,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 2,mla,l,V 0,q,mla,l,V 1,q,mla,l,V 2,tc,V 2,c,r};
void*Y146[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jiz,V 47,mha,l,V 2,l,V 0,q,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,xors,jinz,V 5,dig,V 0,ds,V 1,r,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 2,tc,V 1,c,ds,V 1,r,t,F,ds,V 1,r};
@@ -609,9 +608,9 @@
void*Y162[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jiz,V 71,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 0,mha,l,V 2,l,V 0,q,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 2,tc,V 2,c,jif,V 6,mla,l,V 0,ds,V 1,r,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 3,tc,V 1,c,ds,V 1,r,t,F,ds,V 1,r};
void*Y163[]={binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 2,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 12,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 19,mac,p,s,V 1,p,s,V 0,mha,l0,q,qi,W(equal_huh),t,&NN_dict_ref_2,tc,V 2,c,s,V 2,t,Q,mlt,s,V 3,t,B 162,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 3,mla,l,V 1,q,mla,l,V 3,tc,V 1,c,r};
void*Y164[]={binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 80,tc,V 2,c,mlt,s,V 2,mla,l,V 2,mlt,s,V 3,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jiz,V 17,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 3,j,V -33,mla,l,V 3,q,mla,l,V 2,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 2,r};
-void*Y165[]={binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 18,mac,mca,subc,V 1,jizc,V 23,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 23,mac,p,s,V 1,p,s,V 0,j,V 10,j,V 12,mac,p,s,V 0,t,I(0),s,V 1,t,I(1),s,V 2,mla,l,V 0,q,mha,l,V 1,l,V 152,tc,V 1,c,jif,V 22,mla,l,V 0,q,mha,l0,q,qi,W(vector2list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,j,V 0,mha,l,V 1,l,V 104,tc,V 0,c,mlt,s,V 3,mla,l,V 0,xri,Q,jiz,V 66,mla,l,V 3,q,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 1,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mla,l,V 1,q,mla,l,V 2,q,li,rvec+4,tc,V 2,c,mlt,s,V 1,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 0,j,V -73,mla,l,V 3,r};
+void*Y165[]={binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 18,mac,mca,subc,V 1,jizc,V 23,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 23,mac,p,s,V 1,p,s,V 0,j,V 10,j,V 12,mac,p,s,V 0,t,I(0),s,V 1,t,I(1),s,V 2,mla,l,V 0,q,mha,l,V 1,l,V 151,tc,V 1,c,jif,V 22,mla,l,V 0,q,mha,l0,q,qi,W(vector2list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,j,V 0,mha,l,V 1,l,V 104,tc,V 0,c,mlt,s,V 3,mla,l,V 0,xri,Q,jiz,V 66,mla,l,V 3,q,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 1,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mla,l,V 1,q,mla,l,V 2,q,li,rvec+4,tc,V 2,c,mlt,s,V 1,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 0,j,V -73,mla,l,V 3,r};
void*Y166[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 14,mac,p,s,V 0,mha,l,V 1,l,V 104,tc,V 0,c,s,V 1,mla,l,V 0,q,dig,V 0,xri,Q,jiz,V 68,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,mla,l,V 1,q,dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 87,tc,V 3,c,ds,V 1,ds,V 1,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -74,ds,V 1,mla,l,V 1,r};
-void*Y167[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 149,tc,V 1,c,q,qi,I(1),li,rvec+5,tc,V 2,c,mlt,s,V 0,t,Q,mlt,s,V 1,mla,l,V 0,q,qi,I(0),li,rvec+15,tc,V 2,c,jinf,V 57,dig,V 0,q,mla,l,V 0,q,mha,l,V 1,l,V 151,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mla,l,V 0,q,qi,I(1),li,rvec+5,tc,V 2,c,q,dig,V 0,ds,V 1,mlt,s,V 0,dig,V 0,ds,V 1,mlt,s,V 1,j,V -70,mla,l,V 1,ds,V 1,r};
+void*Y167[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 149,tc,V 1,c,q,qi,I(1),li,rvec+5,tc,V 2,c,mlt,s,V 0,t,Q,mlt,s,V 1,mla,l,V 0,q,qi,I(0),li,rvec+15,tc,V 2,c,jinf,V 57,dig,V 0,q,mla,l,V 0,q,mha,l,V 1,l,V 119,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mla,l,V 0,q,qi,I(1),li,rvec+5,tc,V 2,c,q,dig,V 0,ds,V 1,mlt,s,V 0,dig,V 0,ds,V 1,mlt,s,V 1,j,V -70,mla,l,V 1,ds,V 1,r};
void*Y168[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 22,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 1,l,V 100,tc,V 1,c,ds,V 1,r,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 2,l,V 0,q,dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 2,tc,V 1,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,ds,V 1,r};
void*Y169[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,mla,l,V 1,xri,Q,jinz,V 3,t,Q,r,t,Q,mlt,s,V 2,t,B 168,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 2,mla,l,V 1,q,mla,l,V 2,tc,V 1,c,r};
void*Y170[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jinz,V 4,t,T,j,V 2,t,F,jinf,V 79,dig,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 41,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 2,tc,V 1,c,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 2,l,V 2,tc,V 1,c,j,V 25,dig,V 0,q,mha,l,V 2,l,V 1,q,mha,l,V 1,l,V 80,tc,V 2,c,mat,mha,l,V 2,st,V 1,t,Z,ds,V 1,r};
@@ -621,11 +620,11 @@
void*Y174[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,t,Q,mlt,s,V 2,t,B 173,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 2,mla,l,V 1,q,mla,l,V 2,tc,V 1,c,r};
void*Y175[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,dig,V 1,q,mha,l0,q,qi,W(find_tail),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 0,mla,l,V 0,jif,V 14,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,ds,V 2,r,t,F,ds,V 2,r};
void*Y176[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 1,mlt,s,V 0,mla,l,V 0,xri,Q,jiz,V 59,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,dig,V 1,q,mha,l,V 2,l,V 0,tc,V 1,c,jif,V 10,dig,V 1,q,dig,V 3,tc,V 1,c,j,V 0,ds,V 1,ds,V 1,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 0,j,V -66,t,Z,ds,V 1,r};
-void*Y177[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,t,B 176,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 162,tc,V 1,c,r};
+void*Y177[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,t,B 176,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 161,tc,V 1,c,r};
void*Y178[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 227,dig,V 0,q,mha,l,V 2,l,V 1,q,mha,l,V 1,l,V 80,tc,V 2,c,mat,mha,l,V 2,st,V 1,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 0,p,l,V 1,mlt,s,V 1,mla,l,V 1,q,mha,l,V 2,l,V 1,q,mha,l0,q,qi,W(memq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,mla,l,V 2,jif,V 138,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mla,l,V 2,q,qi,Q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,dig,V 0,ds,V 1,mlt,s,V 2,mha,l0,q,qi,W(car),t,&NN_dict_ref_2,tc,V 2,c,q,mla,l,V 2,q,mha,l0,q,qi,W(reverse),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(car),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 2,l,V 1,q,mha,l0,q,qi,W(reverse),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,ds,V 1,r,mla,l,V 1,q,mha,l,V 2,l,V 2,tc,V 1,c,ds,V 1,r,mha,l0,q,qi,W(car),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 2,l,V 1,q,mha,l0,q,qi,W(reverse),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,dig,V 1,q,mha,l,V 1,l,V 80,tc,V 2,c,ds,V 1,r};
void*Y179[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,Q,mlt,s,V 1,t,Q,mlt,s,V 2,t,B 178,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 2,mla,l,V 0,q,mla,l,V 2,tc,V 1,c,r};
void*Y180[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,t,F,mlt,s,V 0,mha,l,V 2,l,V 0,mlt,s,V 1,mla,l,V 1,xri,Q,jiz,V 34,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 1,tc,V 1,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,j,V -41,t,Z,ds,V 1,r};
-void*Y181[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,B 180,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 162,tc,V 1,c,r};
+void*Y181[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,B 180,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 161,tc,V 1,c,r};
void*Y182[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 80,tc,V 2,c,ds,V 1,r};
void*Y183[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l0,q,qi,W(cons_copy),t,&NN_dict_ref_2,tc,V 2,c,q,dig,V 1,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 1,r};
void*Y184[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 15,mla,l,V 0,q,mha,l,V 2,l,V 1,tc,V 1,c,ds,V 1,r,dig,V 0,ds,V 1,r};
@@ -643,7 +642,7 @@
void*Y196[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 128,tc,V 1,c,jif,V 19,dig,V 0,q,mha,l0,q,qi,W(string2symbol),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,dig,V 0,q,mha,l,V 1,l,V 129,tc,V 1,c,jif,V 5,dig,V 0,ds,V 1,r,dig,V 0,q,mha,l0,q,qi,W(integer_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 5,dig,V 0,ds,V 1,r,qi,W(invalid_system_constant_name_part),dig,V 1,q,mha,l,V 1,l,V 112,tc,V 2,c,ds,V 1,r};
void*Y197[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jinz,V 4,t,T,j,V 2,t,F,jinf,V 110,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 2,l,V 1,q,li,rvec+17,tc,V 2,c,jif,V 13,dig,V 0,q,mha,l,V 3,l,V 0,tc,V 1,c,j,V 0,dig,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 13,dig,V 0,q,mha,l,V 3,l,V 1,tc,V 1,c,j,V 0,ds,V 1,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 3,l,V 1,tc,V 1,c,ds,V 1,ds,V 1,r};
void*Y198[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,Q,mlt,s,V 1,t,B 197,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 1,mha,l0,q,qi,W(system_constants),t,&NN_dict_ref_2,tc,V 2,c,q,mla,l,V 1,tc,V 1,c,r};
-void*Y199[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 1,xri,Q,jinz,V 60,mla,l,V 0,q,mha,l,V 1,l,V 129,tc,V 1,c,jif,V 22,mla,l,V 0,q,mha,l0,q,qi,W(symbol2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,j,V 0,qi,CH('/'),mla,l,V 0,q,mha,l0,q,qi,W(split_by_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 0,j,V 0,t,B 196,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l0,q,qi,W(flatten),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(flatten),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 1,mla,l,V 1,q,mha,l0,q,qi,W(system_constants),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(desvPLUSr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,mla,l,V 2,jinf,V 42,mla,l,V 1,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 24,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,j,V 2,t,F,jif,V 95,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 1,t,B 198,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 162,tc,V 1,c,q,dig,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 23,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 15,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 2,j,V 0,ds,V 1,j,V 0,mla,l,V 2,r};
+void*Y199[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 1,xri,Q,jinz,V 60,mla,l,V 0,q,mha,l,V 1,l,V 129,tc,V 1,c,jif,V 22,mla,l,V 0,q,mha,l0,q,qi,W(symbol2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,j,V 0,qi,CH('/'),mla,l,V 0,q,mha,l0,q,qi,W(split_by_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 0,j,V 0,t,B 196,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l0,q,qi,W(flatten),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(flatten),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 1,mla,l,V 1,q,mha,l0,q,qi,W(system_constants),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(desvPLUSr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,mla,l,V 2,jinf,V 42,mla,l,V 1,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 24,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,j,V 2,t,F,jif,V 95,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 1,t,B 198,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 161,tc,V 1,c,q,dig,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 23,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 15,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 2,j,V 0,ds,V 1,j,V 0,mla,l,V 2,r};
void*Y200[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 0,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 0,mha,l0,q,qi,W(system_constant_internal),t,&NN_dict_ref_2,tc,V 2,c,q,mla,l,V 0,q,mha,l,V 1,l,V 12,tc,V 2,c,mlt,s,V 1,mla,l,V 1,q,mha,l,V 1,l,V 81,tc,V 1,c,jinf,V 4,mla,l,V 1,r,t,F,r};
void*Y201[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 1,xri,Q,jiz,V 44,mla,l,V 0,q,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 1,l,V 18,tc,V 2,c,mlt,s,V 0,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,j,V -51,mla,l,V 0,r};
void*Y202[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 1,xri,Q,jiz,V 44,mla,l,V 0,q,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 1,l,V 19,tc,V 2,c,mlt,s,V 0,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,j,V -51,mla,l,V 0,r};
@@ -671,26 +670,26 @@
void*Y224[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 106,tc,V 1,c,mlt,s,V 0,t,I(0),q,dig,V 1,xri,Q,jiz,V 53,mla,l,V 0,q,dig,V 1,q,dig,V 3,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 1,l,V 119,tc,V -3,c,dig,V 0,q,qi,I(1),li,rvec+4,tc,V 2,c,bury,V 0,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 1,j,V -59,ds,V 1,mla,l,V 0,ds,V 1,r};
void*Y225[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(list2vector),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r};
void*Y226[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 149,tc,V 1,c,mlt,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 106,tc,V 1,c,mlt,s,V 1,mla,l,V 1,q,qi,I(0),dig,V 2,q,qi,I(0),mla,l,V 0,q,mha,l,V 1,l,V 150,tc,V 5,c,mla,l,V 1,ds,V 1,r};
-void*Y227[]={binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 0,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 50,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 30,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 1,l,V 152,tc,V 1,c,jinf,V 4,t,T,j,V 2,t,F,j,V 2,t,F,j,V 2,t,F,jif,V 16,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 0,j,V 0,t,I(0),mlt,s,V 1,mla,l,V 0,q,dig,V 0,xri,Q,jiz,V 57,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,mla,l,V 1,q,dig,V 2,q,mha,l,V 1,l,V 149,tc,V 1,c,q,li,rvec+4,tc,V 2,c,mlt,s,V 1,ds,V 1,ds,V 1,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -63,ds,V 1,mla,l,V 1,q,mha,l,V 1,l,V 106,tc,V 1,c,mlt,s,V 2,t,I(0),mlt,s,V 3,mla,l,V 0,q,dig,V 0,xri,Q,jiz,V 86,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,dig,V 1,q,mha,l,V 1,l,V 149,tc,V 1,c,q,mla,l,V 2,q,mla,l,V 3,q,dig,V 4,q,qi,I(0),dig,V 4,q,mha,l,V 1,l,V 150,tc,V 5,c,mla,l,V 3,q,dig,V 1,q,li,rvec+4,tc,V 2,c,mlt,s,V 3,ds,V 1,ds,V 1,ds,V 1,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -92,ds,V 1,mla,l,V 2,r};
+void*Y227[]={binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 0,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 50,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 30,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 1,l,V 151,tc,V 1,c,jinf,V 4,t,T,j,V 2,t,F,j,V 2,t,F,j,V 2,t,F,jif,V 16,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 0,j,V 0,t,I(0),mlt,s,V 1,mla,l,V 0,q,dig,V 0,xri,Q,jiz,V 57,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,mla,l,V 1,q,dig,V 2,q,mha,l,V 1,l,V 149,tc,V 1,c,q,li,rvec+4,tc,V 2,c,mlt,s,V 1,ds,V 1,ds,V 1,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -63,ds,V 1,mla,l,V 1,q,mha,l,V 1,l,V 106,tc,V 1,c,mlt,s,V 2,t,I(0),mlt,s,V 3,mla,l,V 0,q,dig,V 0,xri,Q,jiz,V 86,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,dig,V 1,q,mha,l,V 1,l,V 149,tc,V 1,c,q,mla,l,V 2,q,mla,l,V 3,q,dig,V 4,q,qi,I(0),dig,V 4,q,mha,l,V 1,l,V 150,tc,V 5,c,mla,l,V 3,q,dig,V 1,q,li,rvec+4,tc,V 2,c,mlt,s,V 3,ds,V 1,ds,V 1,ds,V 1,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -92,ds,V 1,mla,l,V 2,r};
void*Y228[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mlt,s,V 0,qi,&BCL0,li,rvec+11,tc,V 2,c,t,T,mat,mla,l,V 0,st,V 5,t,Z,ds,V 1,r};
void*Y229[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mlt,s,V 0,qi,&BCL0,li,rvec+11,tc,V 2,c,mla,l,V 0,l,V 2,ds,V 1,r};
-void*Y230[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 92,dig,V 0,q,qi,I(1),li,rvec+5,tc,V 2,c,bury,V 0,mha,l,V 2,l,V 2,l,V 3,q,dig,V 1,q,mha,l,V 1,l,V 151,tc,V 2,c,mlt,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 13,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,j,V 3,mla,l,V 0,q,mha,l,V 2,l,V 1,xors,jinz,V 5,dig,V 0,ds,V 1,r,dig,V 0,q,mha,l,V 2,l,V 3,tc,V 1,c,ds,V 1,r,t,F,ds,V 1,r};
+void*Y230[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 92,dig,V 0,q,qi,I(1),li,rvec+5,tc,V 2,c,bury,V 0,mha,l,V 2,l,V 2,l,V 3,q,dig,V 1,q,mha,l,V 1,l,V 119,tc,V 2,c,mlt,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 13,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,j,V 3,mla,l,V 0,q,mha,l,V 2,l,V 1,xors,jinz,V 5,dig,V 0,ds,V 1,r,dig,V 0,q,mha,l,V 2,l,V 3,tc,V 1,c,ds,V 1,r,t,F,ds,V 1,r};
void*Y231[]={binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,mla,l,V 0,q,mlt,s,V 2,qi,&BCL0,li,rvec+11,tc,V 2,c,mla,l,V 1,q,dig,V 0,q,mha,l,V 1,l,V 129,tc,V 1,c,jinf,V 15,qi,W(symbol_huh),dig,V 1,q,mha,l,V 1,l,V 112,tc,V 2,c,j,V 0,ds,V 1,t,Q,mlt,s,V 3,t,B 230,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 3,mla,l,V 2,l,V 3,q,mha,l,V 1,l,V 149,tc,V 1,c,q,mla,l,V 3,tc,V 1,c,r};
-void*Y232[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mlt,s,V 0,qi,&BCL0,li,rvec+11,tc,V 2,c,t,Q,mlt,s,V 1,mla,l,V 0,l,V 3,q,mha,l,V 1,l,V 149,tc,V 1,c,mlt,s,V 2,mla,l,V 2,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 69,mla,l,V 2,q,qi,I(1),li,rvec+5,tc,V 2,c,mlt,s,V 2,mla,l,V 0,l,V 3,q,mla,l,V 2,q,mha,l,V 1,l,V 151,tc,V 2,c,q,dig,V 0,jif,V 28,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 1,q,mha,l,V 1,l,V 80,tc,V 2,c,mlt,s,V 1,j,V 0,ds,V 1,j,V -88,mla,l,V 1,ds,V 1,r};
+void*Y232[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mlt,s,V 0,qi,&BCL0,li,rvec+11,tc,V 2,c,t,Q,mlt,s,V 1,mla,l,V 0,l,V 3,q,mha,l,V 1,l,V 149,tc,V 1,c,mlt,s,V 2,mla,l,V 2,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 74,mla,l,V 2,q,qi,I(1),li,rvec+5,tc,V 2,c,mlt,s,V 2,mla,l,V 0,l,V 3,q,mla,l,V 2,q,mha,l,V 1,l,V 119,tc,V 2,c,q,dig,V 0,jif,V 33,dig,V 0,q,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 1,q,mha,l,V 1,l,V 80,tc,V 2,c,mlt,s,V 1,ds,V 1,j,V 0,ds,V 1,j,V -93,mla,l,V 1,ds,V 1,r};
void*Y233[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mlt,s,V 0,qi,&BCL0,li,rvec+11,tc,V 2,c,mla,l,V 0,l,V 3,q,mha,l0,q,qi,W(vector_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r};
-void*Y234[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mlt,s,V 0,qi,&BCL0,li,rvec+11,tc,V 2,c,mla,l,V 0,l,V 5,jif,V 15,qi,W(frozen),dig,V 2,q,mha,l,V 1,l,V 112,tc,V 2,c,j,V 0,dig,V 0,mlt,s,V 1,mla,l,V 1,xri,Q,jiz,V 87,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,mla,l,V 0,l,V 3,q,dig,V 4,q,dig,V 3,q,mha,l0,q,qi,W(lookup_slot),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jinf,V 13,qi,W(unknown),dig,V 3,q,mha,l,V 1,l,V 112,tc,V 2,c,q,qi,F,mha,l,V 1,l,V 151,tc,V -3,c,ds,V 1,ds,V 1,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,j,V -94,t,Z,ds,V 2,r};
-void*Y235[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mlt,s,V 0,qi,&BCL0,li,rvec+11,tc,V 2,c,mla,l,V 0,l,V 5,jif,V 15,qi,W(frozen),dig,V 2,q,mha,l,V 1,l,V 112,tc,V 2,c,j,V 0,dig,V 0,mlt,s,V 1,mla,l,V 1,xri,Q,jiz,V 101,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,mla,l,V 0,l,V 3,q,dig,V 4,q,dig,V 3,q,mha,l0,q,qi,W(lookup_slot),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jinf,V 13,qi,W(unknown),dig,V 3,q,mha,l,V 1,l,V 112,tc,V 2,c,q,mha,l,V 1,l,V 151,tc,V 2,c,q,qi,F,mha,l0,q,qi,W(cadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,ds,V 1,ds,V 1,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,j,V -108,t,Z,ds,V 2,r};
+void*Y234[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mlt,s,V 0,qi,&BCL0,li,rvec+11,tc,V 2,c,mla,l,V 0,l,V 5,jif,V 15,qi,W(frozen),dig,V 2,q,mha,l,V 1,l,V 112,tc,V 2,c,j,V 0,dig,V 0,mlt,s,V 1,mla,l,V 1,xri,Q,jiz,V 87,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,mla,l,V 0,l,V 3,q,dig,V 4,q,dig,V 3,q,mha,l0,q,qi,W(lookup_slot),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jinf,V 13,qi,W(unknown),dig,V 3,q,mha,l,V 1,l,V 112,tc,V 2,c,q,qi,F,mha,l,V 1,l,V 119,tc,V -3,c,ds,V 1,ds,V 1,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,j,V -94,t,Z,ds,V 2,r};
+void*Y235[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mlt,s,V 0,qi,&BCL0,li,rvec+11,tc,V 2,c,mla,l,V 0,l,V 5,jif,V 15,qi,W(frozen),dig,V 2,q,mha,l,V 1,l,V 112,tc,V 2,c,j,V 0,dig,V 0,mlt,s,V 1,mla,l,V 1,xri,Q,jiz,V 101,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,mla,l,V 0,l,V 3,q,dig,V 4,q,dig,V 3,q,mha,l0,q,qi,W(lookup_slot),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jinf,V 13,qi,W(unknown),dig,V 3,q,mha,l,V 1,l,V 112,tc,V 2,c,q,mha,l,V 1,l,V 119,tc,V 2,c,q,qi,F,mha,l0,q,qi,W(cadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,ds,V 1,ds,V 1,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,j,V -108,t,Z,ds,V 2,r};
void*Y236[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mlt,s,V 0,qi,&BCL0,li,rvec+11,tc,V 2,c,mla,l,V 0,l,V 3,l,V 1,mat,t,V 2,addat,mta,q,mha,l,V 1,l,V 147,tc,V 1,c,mlt,s,V 1,mla,l,V 1,q,dig,V 1,pt,s,V 1,t,V 10,s0,mla,l,V 1,ds,V 1,r};
void*Y237[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 98,tc,V 1,c,jif,V 44,dig,V 0,q,mha,l0,q,qi,W(class_of),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(LTclassGT),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(subclass_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 1,r,t,F,ds,V 1,r};
void*Y238[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,dig,V 0,q,mha,l,V 1,l,V 98,tc,V 1,c,jinf,V 15,qi,W(instance_huh),dig,V 1,q,mha,l,V 1,l,V 112,tc,V 2,c,j,V 0,ds,V 1,dig,V 0,l,V 1,ds,V 1,r};
void*Y239[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,jif,V 68,dig,V 0,q,mha,l0,q,qi,W(LTclassGT),t,&NN_dict_ref_2,tc,V 2,c,xors,jiz,V 47,dig,V 0,q,mha,l,V 2,l,V 1,xors,jinz,V 4,t,T,j,V 2,t,F,jinf,V 25,dig,V 0,q,mha,l0,q,qi,W(superclass),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 2,l,V 2,tc,V 1,c,ds,V 1,r,t,F,ds,V 1,r,t,F,ds,V 1,r};
void*Y240[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(LTclassGT),t,&NN_dict_ref_2,tc,V 2,c,xors,jinz,V 23,mla,l,V 1,q,mha,l0,q,qi,W(LTclassGT),t,&NN_dict_ref_2,tc,V 2,c,xors,jinz,V 3,t,T,r,t,F,r,mla,l,V 0,q,mha,l,V 1,l,V 98,tc,V 1,c,jinf,V 19,mla,l,V 0,q,mha,l0,q,qi,W(class_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 31,t,Q,mlt,s,V 2,t,B 239,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 2,mla,l,V 0,q,mla,l,V 2,tc,V 1,c,r,t,F,r};
-void*Y241[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,F,s,V 1,mla,l,V 0,q,dig,V 0,q,mha,l,V 1,l,V 152,tc,V 1,c,jinf,V 15,qi,W(vector_huh),dig,V 1,q,mha,l,V 1,l,V 112,tc,V 2,c,j,V 0,ds,V 1,mla,l,V 0,q,mha,l,V 1,l,V 149,tc,V 1,c,q,dig,V 0,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 60,dig,V 0,q,qi,I(1),li,rvec+5,tc,V 2,c,bury,V 0,mla,l,V 0,q,dig,V 1,q,mha,l,V 1,l,V 151,tc,V 2,c,q,dig,V 0,q,mha,l,V 1,l,V 129,tc,V 1,c,jinf,V 15,qi,W(symbol_huh),dig,V 1,q,mha,l,V 1,l,V 112,tc,V 2,c,j,V 0,ds,V 1,j,V -78,ds,V 1,mla,l,V 1,jif,V 32,mla,l,V 1,q,mha,l0,q,qi,W(class2vector),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mla,l,V 0,q,mha,l,V 1,l,V 165,tc,V 2,c,j,V 17,mla,l,V 0,q,mha,l0,q,qi,W(vector_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mha,l,V 1,l,V 104,tc,V 0,c,q,mla,l,V 0,q,mha,l,V 1,l,V 149,tc,V 1,c,q,dig,V 0,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 173,dig,V 0,q,qi,I(1),li,rvec+5,tc,V 2,c,bury,V 0,mla,l,V 0,q,dig,V 1,q,mha,l,V 1,l,V 151,tc,V 2,c,q,dig,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 12,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,j,V 2,dig,V 0,q,dig,V 0,jif,V 23,dig,V 3,q,dig,V 1,q,qi,F,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,j,V 2,t,F,jif,V 15,qi,W(duplicate_slot_name),dig,V 2,q,mha,l,V 1,l,V 112,tc,V 2,c,j,V 65,dig,V 1,q,mha,l,V 1,l,V 129,tc,V 1,c,jif,V 31,mla,l,V 0,q,dig,V 3,q,dig,V 3,q,qi,T,mha,l,V 1,l,V 100,tc,V 2,c,q,mha,l,V 1,l,V 151,tc,V -3,c,j,V 0,dig,V 3,q,dig,V 1,q,qi,T,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,ds,V 1,ds,V 1,j,V -191,ds,V 1,ds,V 1,mla,l,V 1,jif,V 41,mla,l,V 1,q,dig,V 0,q,mha,l0,q,qi,W(class_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 15,qi,W(class_huh),dig,V 1,q,mha,l,V 1,l,V 112,tc,V 2,c,j,V 0,ds,V 1,j,V 0,mha,l0,q,qi,W(LTclassGT),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(make_instance),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 2,qi,F,mla,l,V 1,jif,V 7,mla,l,V 1,l,V 4,j,V 2,t,Q,q,mla,l,V 0,q,mla,l,V 1,q,mla,l,V 2,pt,st,V 2,pt,st,V 3,pt,st,V 4,pt,st,V 5,mla,l,V 2,r};
+void*Y241[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,F,s,V 1,mla,l,V 0,q,dig,V 0,q,mha,l,V 1,l,V 151,tc,V 1,c,jinf,V 15,qi,W(vector_huh),dig,V 1,q,mha,l,V 1,l,V 112,tc,V 2,c,j,V 0,ds,V 1,mla,l,V 0,q,mha,l,V 1,l,V 149,tc,V 1,c,q,dig,V 0,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 60,dig,V 0,q,qi,I(1),li,rvec+5,tc,V 2,c,bury,V 0,mla,l,V 0,q,dig,V 1,q,mha,l,V 1,l,V 119,tc,V 2,c,q,dig,V 0,q,mha,l,V 1,l,V 129,tc,V 1,c,jinf,V 15,qi,W(symbol_huh),dig,V 1,q,mha,l,V 1,l,V 112,tc,V 2,c,j,V 0,ds,V 1,j,V -78,ds,V 1,mla,l,V 1,jif,V 32,mla,l,V 1,q,mha,l0,q,qi,W(class2vector),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mla,l,V 0,q,mha,l,V 1,l,V 164,tc,V 2,c,j,V 17,mla,l,V 0,q,mha,l0,q,qi,W(vector_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mha,l,V 1,l,V 104,tc,V 0,c,q,mla,l,V 0,q,mha,l,V 1,l,V 149,tc,V 1,c,q,dig,V 0,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 173,dig,V 0,q,qi,I(1),li,rvec+5,tc,V 2,c,bury,V 0,mla,l,V 0,q,dig,V 1,q,mha,l,V 1,l,V 119,tc,V 2,c,q,dig,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 12,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,j,V 2,dig,V 0,q,dig,V 0,jif,V 23,dig,V 3,q,dig,V 1,q,qi,F,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,j,V 2,t,F,jif,V 15,qi,W(duplicate_slot_name),dig,V 2,q,mha,l,V 1,l,V 112,tc,V 2,c,j,V 65,dig,V 1,q,mha,l,V 1,l,V 129,tc,V 1,c,jif,V 31,mla,l,V 0,q,dig,V 3,q,dig,V 3,q,qi,T,mha,l,V 1,l,V 100,tc,V 2,c,q,mha,l,V 1,l,V 119,tc,V -3,c,j,V 0,dig,V 3,q,dig,V 1,q,qi,T,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,ds,V 1,ds,V 1,j,V -191,ds,V 1,ds,V 1,mla,l,V 1,jif,V 41,mla,l,V 1,q,dig,V 0,q,mha,l0,q,qi,W(class_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 15,qi,W(class_huh),dig,V 1,q,mha,l,V 1,l,V 112,tc,V 2,c,j,V 0,ds,V 1,j,V 0,mha,l0,q,qi,W(LTclassGT),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(make_instance),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 2,qi,F,mla,l,V 1,jif,V 7,mla,l,V 1,l,V 4,j,V 2,t,Q,q,mla,l,V 0,q,mla,l,V 1,q,mla,l,V 2,pt,st,V 2,pt,st,V 3,pt,st,V 4,pt,st,V 5,mla,l,V 2,r};
void*Y242[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 98,tc,V 1,c,jif,V 39,dig,V 0,q,mha,l0,q,qi,W(class_of),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(subclass_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 1,r,t,F,ds,V 1,r};
void*Y243[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,B 242,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,r};
void*Y244[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 2,l,V 5,q,mha,l0,q,qi,W(memq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jinf,V 28,dig,V 0,q,mha,l,V 2,l,V 5,q,mha,l,V 1,l,V 80,tc,V 2,c,mat,mha,l,V 2,st,V 5,t,Z,ds,V 1,r,t,Z,ds,V 1,r};
void*Y245[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 375,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 0,mla,l,V 0,xri,W(friend),jinz,V 167,qi,W(DEFINE),dig,V 1,q,mha,l0,q,qi,W(caadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,W(lambda),dig,V 3,q,mha,l0,q,qi,W(cdadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,W(WITHIN),mha,l,V 2,l,V 9,q,dig,V 6,q,mha,l0,q,qi,W(cadadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 7,q,mha,l0,q,qi,W(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,ds,V 1,r,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 162,qi,W(DEFINE),dig,V 1,q,mha,l0,q,qi,W(caar),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,W(lambda),dig,V 3,q,mha,l0,q,qi,W(cdar),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,W(WITHIN),mha,l,V 2,l,V 9,q,dig,V 6,q,mha,l0,q,qi,W(cadar),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 7,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,ds,V 1,r,t,BC 7,ds,V 1,r,t,BC 7,ds,V 1,r};
-void*Y246[]={binc,&branch_EVM_invargc,hop,V 11,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 29,mla,l,V 0,q,mla,l,V 1,q,mha,l0,q,qi,W(second),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,t,&NN_dict_ref_2,tc,V 2,c,j,V 2,t,F,mlt,s,V 3,mla,l,V 3,jif,V 19,mla,l,V 3,q,mha,l0,q,qi,W(class_slots),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,j,V 2,t,Q,mlt,s,V 4,t,Q,mlt,s,V 5,t,B 244,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 6,t,Q,mlt,s,V 7,t,Q,mlt,s,V 8,mla,l,V 2,q,dig,V 0,xri,Q,jiz,V 309,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,dig,V 1,q,mha,l,V 1,l,V 129,tc,V 1,c,jif,V 11,dig,V 1,q,mla,l,V 6,tc,V 1,c,j,V 252,dig,V 1,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 239,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 0,xri,W(hidden),jinz,V 106,dig,V 2,q,li,rvec...
[truncated message content] |
Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv4780/src/builtin
Modified Files:
builtin.wisp codegen.wisp dictbase.wisp lists.wisp
objects.wisp stdenv.wisp
Log Message:
Dropped |vector-ref|.
Index: builtin.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/builtin.wisp,v
retrieving revision 1.210
retrieving revision 1.211
diff -u -d -r1.210 -r1.211
--- builtin.wisp 4 Sep 2002 14:33:34 -0000 1.210
+++ builtin.wisp 7 Sep 2002 21:55:58 -0000 1.211
@@ -387,7 +387,7 @@
(define (binary-vector-contents-equal? a b start stop)
(or (>= start stop)
(and
- (binary-equal? (vector-ref a start) (vector-ref b start))
+ (binary-equal? a[start] b[start])
(binary-vector-contents-equal? a b (+ start 1) stop))))
(define (equal? first . rest)
Index: codegen.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/codegen.wisp,v
retrieving revision 1.66
retrieving revision 1.67
diff -u -d -r1.66 -r1.67
--- codegen.wisp 4 Sep 2002 14:40:13 -0000 1.66
+++ codegen.wisp 7 Sep 2002 21:55:58 -0000 1.67
@@ -405,7 +405,7 @@
(v (class->vector class)))
(my vl (vector-length v)
(while (< i vl)
- (let ((s (vector-ref v i)))
+ (my s v[i]
(cond
((not s))
((cons? s)
Index: dictbase.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/dictbase.wisp,v
retrieving revision 1.238
retrieving revision 1.239
diff -u -d -r1.238 -r1.239
--- dictbase.wisp 7 Sep 2002 21:54:05 -0000 1.238
+++ dictbase.wisp 7 Sep 2002 21:55:58 -0000 1.239
@@ -162,7 +162,6 @@
(local vector-fill! (asm NN_vector_fill))
(local vector-length (asm NN_vector_length))
(local vector-move! (asm NN_vector_move))
-(local vector-ref (asm NN_vector_ref))
(local vector? (asm NN_vector_huh))
(local wisp-string-hash (asm NN_wisp_string_hash))
Index: lists.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/lists.wisp,v
retrieving revision 1.104
retrieving revision 1.105
diff -u -d -r1.104 -r1.105
--- lists.wisp 7 Sep 2002 21:54:55 -0000 1.104
+++ lists.wisp 7 Sep 2002 21:55:58 -0000 1.105
@@ -277,7 +277,7 @@
; {{{ |vector->list|
(define (vector->list vec)
(do ((i (- (vector-length vec) 1) (- i 1))
- (l '() (cons (vector-ref vec i) l)))
+ (l '() (cons vec[i] l)))
((< i 0) l)))
; }}}
Index: objects.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/objects.wisp,v
retrieving revision 1.156
retrieving revision 1.157
diff -u -d -r1.156 -r1.157
--- objects.wisp 26 Aug 2002 16:18:24 -0000 1.156
+++ objects.wisp 7 Sep 2002 21:55:58 -0000 1.157
@@ -26,7 +26,7 @@
(and (not (zero? i))
(begin
(decr! i)
- (my slot (vector-ref slots i)
+ (my slot slots[i]
(if (eq? (if (cons? slot)
(car slot)
slot)
@@ -38,9 +38,8 @@
(i (vector-length slots)))
(while (not (zero? i))
(decr! i)
- (let ((s (vector-ref slots i)))
- (if s
- (cons! sl (car s)))))
+ (and slots[i] -> s
+ (cons! sl (car s))))
sl))
(friend (class->vector c)
(vector-copy slots))
@@ -49,20 +48,19 @@
(raise 'frozen c))
(for-each
(lambda (x)
- (set! (vector-ref slots (or (lookup-slot c x)
- (raise 'unknown x))) #f))
+ (set! slots[(or (lookup-slot c x)
+ (raise 'unknown x))] #f))
sl))
(friend (protect-slots c sl)
(if frozen?
(raise 'frozen c))
(for-each
(lambda (x)
- (set! (cadr (vector-ref slots
- (or (lookup-slot c x)
- (raise 'unknown x)))) #f))
+ (set! (cadr slots[(or (lookup-slot c x)
+ (raise 'unknown x))]) #f))
sl))
(friend (make-instance c)
- (let ((in (valloc (asm slots (l . 1) mat (tn . 2) addat mta))))
+ (my in (valloc (asm slots (l . 1) mat (tn . 2) addat mta))
(asm (in . c) pt (s . 1) (tn . 10) s0)
in)))
@@ -87,7 +85,7 @@
(my i (vector-length slots)
(while (not (zero? i))
(decr! i)
- (type symbol (vector-ref slots i))))
+ (type symbol slots[i])))
(set! slots
(if superclass
(vector-append (class->vector superclass) slots)
@@ -96,7 +94,7 @@
(i (vector-length slots)))
(while (not (zero? i))
(decr! i)
- (let* ((sl (vector-ref slots i))
+ (let* ((sl slots[i])
(sn (if (cons? sl)
(car sl)
sl)))
@@ -104,7 +102,7 @@
(raise 'duplicate-slot-name sl)
(begin
(if (symbol? sl)
- (set! (vector-ref slots i) (list sl #t)))
+ (set! slots[i] (list sl #t)))
(set! (dict-ref d sn) #t))))))
(if superclass
(type class superclass))
Index: stdenv.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/stdenv.wisp,v
retrieving revision 1.360
retrieving revision 1.361
diff -u -d -r1.360 -r1.361
--- stdenv.wisp 7 Sep 2002 21:54:05 -0000 1.360
+++ stdenv.wisp 7 Sep 2002 21:55:58 -0000 1.361
@@ -94,8 +94,8 @@
unsure-collect use utf-8->c16string
utf-8-first-byte->length uwyde? vector vector->list
vector-append vector-copy vector-fill! vector-length
- vector-move! vector-ref vector? void? wisp-string-hash
- write write-char write-string writeln zero?)))))
+ vector-move! vector? void? wisp-string-hash write
+ write-char write-string writeln zero?)))))
((*origin obj) ; => (original-name source-data ...) | #f
(cond
; check for the regular environment
|
|
From: <di...@us...> - 2002-09-07 21:56:01
|
Update of /cvsroot/wisp/wisp/tests
In directory usw-pr-cvs1:/tmp/cvs-serv4780/tests
Modified Files:
srfi-1.wisp
Log Message:
Dropped |vector-ref|.
Index: srfi-1.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/tests/srfi-1.wisp,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- srfi-1.wisp 4 Sep 2002 14:31:42 -0000 1.15
+++ srfi-1.wisp 7 Sep 2002 21:55:58 -0000 1.16
@@ -122,7 +122,7 @@
(for-each-1 (my v (make-vector 5)
(for-each (lambda (i)
- (set! (vector-ref v i) (* i i)))
+ (set! v[i] (* i i)))
'(0 1 2 3 4))
v) ==> #(0 1 4 9 16))
|
|
From: <di...@us...> - 2002-09-07 21:55:59
|
Update of /cvsroot/wisp/wisp/doc In directory usw-pr-cvs1:/tmp/cvs-serv4780/doc Modified Files: wisp.vim Log Message: Dropped |vector-ref|. Index: wisp.vim =================================================================== RCS file: /cvsroot/wisp/wisp/doc/wisp.vim,v retrieving revision 1.224 retrieving revision 1.225 diff -u -d -r1.224 -r1.225 --- wisp.vim 7 Sep 2002 21:53:51 -0000 1.224 +++ wisp.vim 7 Sep 2002 21:55:56 -0000 1.225 @@ -212,10 +212,10 @@ syn keyword wispFunc unpack-be-integer unpack-le-integer unsure-collect syn keyword wispFunc utf-8->c16string utf-8-first-byte->length uwyde? syn keyword wispFunc vector vector->list vector-append vector-copy -syn keyword wispFunc vector-fill! vector-length vector-move! vector-ref -syn keyword wispFunc vector? void? wisp-string-hash -syn keyword wispFunc with-input-from-file with-output-to-file write -syn keyword wispFunc write-char write-string writeln zero? +syn keyword wispFunc vector-fill! vector-length vector-move! vector? +syn keyword wispFunc void? wisp-string-hash with-input-from-file +syn keyword wispFunc with-output-to-file write write-char write-string +syn keyword wispFunc writeln zero? syn keyword wispLibFunc absolute-path? alist-cons alist-delete any syn keyword wispLibFunc append! append-reverse! assoc* assq* assv* @@ -287,7 +287,7 @@ syn keyword wispFuncError call-with-values car+cdr dynamic-wind syn keyword wispFuncError set-car! set-cdr! string-ref string-set! -syn keyword wispFuncError values vector-set! +syn keyword wispFuncError values vector-ref vector-set! " Non-hilighted words |
