wisp-cvs Mailing List for Wisp interpreter (Page 29)
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-18 20:59:25
|
Update of /cvsroot/wisp/wisp/src/native
In directory usw-pr-cvs1:/tmp/cvs-serv27072/src/native
Modified Files:
Makefile.am
Removed Files:
bitstr_ref.nasm
Log Message:
Dropped |bitstring-ref|.
Index: Makefile.am
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/Makefile.am,v
retrieving revision 1.153
retrieving revision 1.154
diff -u -d -r1.153 -r1.154
--- Makefile.am 7 Sep 2002 22:02:43 -0000 1.153
+++ Makefile.am 18 Sep 2002 20:59:22 -0000 1.154
@@ -12,10 +12,10 @@
libnative_a_SOURCES = native_call.nasm branches.nasm \
base.inc linux_syscall.inc sysconst.inc \
- apply.nasm bitstr_ref.nasm chars.nasm cxr.nasm integers.nasm \
- list.nasm memset.nasm records.nasm ref.nasm resignal.nasm \
- signal.nasm strings.nasm sys_raw.nasm types.nasm valloc.nasm \
- vectors.nasm wrap.nasm \
+ apply.nasm chars.nasm cxr.nasm integers.nasm list.nasm \
+ memset.nasm records.nasm ref.nasm resignal.nasm signal.nasm \
+ strings.nasm sys_raw.nasm types.nasm valloc.nasm vectors.nasm \
+ wrap.nasm \
boxes.wth cons.wth death.wth sys.wth wstrings.wth \
boxes.s cons.s death.s sys.s wstrings.s
@@ -24,9 +24,9 @@
noinst_LIBRARIES = libnative.a
libnative_a_LIBADD = native_call.o branches.o \
- apply.o bitstr_ref.o chars.o cxr.o integers.o list.o \
- memset.o records.o ref.o resignal.o signal.o strings.o sys.o \
- sys_raw.o types.o valloc.o vectors.o wrap.o
+ apply.o chars.o cxr.o integers.o list.o memset.o records.o ref.o \
+ resignal.o signal.o strings.o sys.o sys_raw.o types.o valloc.o \
+ vectors.o wrap.o
%.o: %.nasm base.inc
nasm -w+orphan-labels -d@SYSTYPE@ -d@CPUTYPE@ -f elf -i $(srcdir)/ -l $*.prn -o $@ $<
--- bitstr_ref.nasm DELETED ---
|
|
From: <di...@us...> - 2002-09-18 20:59:24
|
Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv27072/src/builtin
Modified Files:
dictbase.wisp stdenv.wisp
Log Message:
Dropped |bitstring-ref|.
Index: dictbase.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/dictbase.wisp,v
retrieving revision 1.246
retrieving revision 1.247
diff -u -d -r1.246 -r1.247
--- dictbase.wisp 18 Sep 2002 20:58:07 -0000 1.246
+++ dictbase.wisp 18 Sep 2002 20:59:21 -0000 1.247
@@ -34,7 +34,6 @@
(local binary-num-equal? (asm NN_binary_num_equalp))
(local binary-num-less? (asm NN_binary_num_lessp))
(local binary/ (asm NN_binary_div))
-(local bitstring-ref (asm NN_bitstring_ref))
(local box-empty! (asm NN_box_empty))
(local box-empty? (asm NN_box_empty_huh))
(local box-ref (asm NN_box_ref))
Index: stdenv.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/stdenv.wisp,v
retrieving revision 1.363
retrieving revision 1.364
diff -u -d -r1.363 -r1.364
--- stdenv.wisp 18 Sep 2002 20:57:26 -0000 1.363
+++ stdenv.wisp 18 Sep 2002 20:59:21 -0000 1.364
@@ -16,21 +16,21 @@
> >= >> abs acons! address-of alist->dict alist-copy
analyse and append append-reverse apply assert
assert-object-type assoc assq assv atom? big-integer? bind
- bit? bitstring-ref boolean? box-empty! box-empty? box-ref
- box? broketed? builtin-modules c16string? c8string? caaaar
- caaadr caaar caadar caaddr caadr caar cadaar cadadr cadar
- caddar cadddr caddr cadr call-with-in/out-files
- call-with-input-file call-with-output-file car car! car*
- cardinal? case catch cdaaar cdaadr cdaar cdadar cdaddr
- cdadr cdar cddaar cddadr cddar cdddar cddddr cdddr cddr
- cdr cdr! cdr* ceiling cfmakeraw char->control-char
- char->integer char-and char-bit-clear char-bit-set
- char-bit-toggle char-bit? char-decimal? char-digit?
- char-downcase char-hexadecimal? char-letter-modifier?
- char-letter? char-lower-case? char-mirrored?
- char-number-letter? char-octal? char-or char-order
- char-punctuation-close? char-punctuation-connector?
- char-punctuation-dash? char-punctuation-final-quote?
+ bit? boolean? box-empty! box-empty? box-ref box? broketed?
+ builtin-modules c16string? c8string? caaaar caaadr caaar
+ caadar caaddr caadr caar cadaar cadadr cadar caddar cadddr
+ caddr cadr call-with-in/out-files call-with-input-file
+ call-with-output-file car car! car* cardinal? case catch
+ cdaaar cdaadr cdaar cdadar cdaddr cdadr cdar cddaar cddadr
+ cddar cdddar cddddr cdddr cddr cdr cdr! cdr* ceiling
+ cfmakeraw char->control-char char->integer char-and
+ char-bit-clear char-bit-set char-bit-toggle char-bit?
+ char-decimal? char-digit? char-downcase char-hexadecimal?
+ char-letter-modifier? char-letter? char-lower-case?
+ char-mirrored? char-number-letter? char-octal? char-or
+ char-order char-punctuation-close?
+ char-punctuation-connector? char-punctuation-dash?
+ char-punctuation-final-quote?
char-punctuation-initial-quote? char-punctuation-open?
char-punctuation? char-ready? char-symbol-currency?
char-symbol-math? char-symbol-starter? char-symbol?
|
|
From: <di...@us...> - 2002-09-18 20:58:44
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv26988/modules
Modified Files:
strings.wim
Log Message:
Dropped |char-in-set?| and |pack-charset|.
Index: strings.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/strings.wim,v
retrieving revision 1.70
retrieving revision 1.71
diff -u -d -r1.70 -r1.71
--- strings.wim 7 Sep 2002 21:58:33 -0000 1.70
+++ strings.wim 18 Sep 2002 20:58:41 -0000 1.71
@@ -10,15 +10,14 @@
(export
char-ci<=? char-ci<? char-ci=? char-ci>=? char-ci>? char-foldcase
- char-in-set? find-first-char find-last-char group-from-left
- group-from-right list->string normalize-phrase pack-charset pad-left
- pad-right simple-encode split-by-string string->vector
- string->word-list string-ci<=? string-ci<? string-ci=? string-ci>=?
- string-ci>? string-contains string-drop-prefix string-drop-suffix
- string-ends-with? string-foldcase string-for-each
- string-for-each-index string-map string-map! string-reverse
- string-reverse! string-starts-with? string-trim string-trim-both
- string-trim-right vector->string)
+ find-first-char find-last-char group-from-left group-from-right
+ list->string normalize-phrase pad-left pad-right simple-encode
+ split-by-string string->vector string->word-list string-ci<=?
+ string-ci<? string-ci=? string-ci>=? string-ci>? string-contains
+ string-drop-prefix string-drop-suffix string-ends-with?
+ string-foldcase string-for-each string-for-each-index string-map
+ string-map! string-reverse string-reverse! string-starts-with?
+ string-trim string-trim-both string-trim-right vector->string)
(define (group-from-left str group-length sep)
(let ((new-string (make-string
@@ -97,9 +96,6 @@
(define (normalize-phrase entry)
(string-join (string->word-list entry)))
-(define (char-in-set? ch set)
- (bitstring-ref set (char->integer ch)))
-
(define (find-first-char ch s (start 0) (end (length s)))
(my pred (if (char? ch)
(cut char=? <> ch)
@@ -152,27 +148,6 @@
s start end)
s[i ... (+ j 1)])
(string))))
-
-(define (pack-charset l)
- (my cs (make-string 32 #\U+00)
- (while (not (null? l))
- (my i (car l)
- (if (cons? i)
- (my k (car i)
- (if (char? k)
- (set! k (char->integer k)))
- (my n (cdr i)
- (if (char? n)
- (set! n (char->integer n)))
- (while (<= k n)
- (set! (bitstring-ref cs k) 1)
- (incr! k))))
- (set! (bitstring-ref cs (if (char? i)
- (char->integer i)
- i))
- 1)))
- (cdr! l))
- cs))
(define (simple-encode s alist)
(collect-string
|
|
From: <di...@us...> - 2002-09-18 20:58:37
|
Update of /cvsroot/wisp/wisp/modules/cpu
In directory usw-pr-cvs1:/tmp/cvs-serv26569/modules/cpu
Modified Files:
ia32.wim
Log Message:
Moved file descriptor set manipulation from the Wisp level to the Worth level.
Index: ia32.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/cpu/ia32.wim,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -d -r1.26 -r1.27
--- ia32.wim 18 Sep 2002 20:54:23 -0000 1.26
+++ ia32.wim 18 Sep 2002 20:58:04 -0000 1.27
@@ -171,7 +171,7 @@
((* * !esbp 0) (combyte '0 0 2))
((* * !ebp sbyte) (combyte '1 0 2) (byte 3))
((* * !ebp imm) (combyte '2 0 2) (tetra 3))
- ((* * reg32 !esp) (\modrm 0 2 3 \bytes))
+ ((* * reg32 !esp) (\modrm 0 1 2 3 '\bytes))
((* * reg32 !esp scale)
(combyte '0 0 '4) (combyte 4 3 2))
((* * reg32 !esp scale 0)
@@ -180,11 +180,11 @@
(combyte '1 0 '4) (combyte 4 3 2) (byte 4))
((* * reg32 !esp scale imm)
(combyte '2 0 '4) (combyte 4 3 2) (tetra 4))
- ((* * imm reg32) (\modrm 0 3 2))
+ ((* * imm reg32) (\modrm 0 1 3 2))
((* * imm reg32 !esp scale)
- (\modrm 0 3 4 5 2))
+ (\modrm 0 1 3 4 5 2))
((* * reg32 imm !esp scale)
- (\modrm 0 2 4 5 3)))
+ (\modrm 0 1 2 4 5 3)))
; I/O
(in ((accum %dx) (osize++lit 0 #o354))
@@ -203,8 +203,8 @@
; Bit vector operations
(bt* 386+?
- ((imm rm16/32 = reg*) (osize 0) #o017 (combyte '2 0 '3) (modrm 1 2))
- ((imm rm16/32 imm) (osize 0) #o017 #o272 (modrm 1 0) (ubyte 2)))
+ ((imm rm16/32 = reg*) (osize 1) #o017 (combyte '2 0 '3) (modrm 1 2))
+ ((imm rm16/32 imm) (osize 1) #o017 #o272 (modrm 1 0) (ubyte 2)))
(bt 386+? ((* *) (bt* '4 0 1)))
(bts 386+? ((* *) (bt* '5 0 1)))
(btr 386+? ((* *) (bt* '6 0 1)))
|
|
From: <di...@us...> - 2002-09-18 20:58:37
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv26569/modules
Modified Files:
io.wrti linux.wrti universal.wrti wisptyp.wrti
Log Message:
Moved file descriptor set manipulation from the Wisp level to the Worth level.
Index: io.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/io.wrti,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- io.wrti 26 Aug 2002 16:14:54 -0000 1.9
+++ io.wrti 18 Sep 2002 20:58:04 -0000 1.10
@@ -42,6 +42,9 @@
2drop)
(defun dhexprint
- -rot hexprint hexprint))
+ -rot hexprint hexprint)
+
+ (macro probe
+ type " = [" type dup hexprint "]\n" type))
; vim:ft=worth
Index: linux.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/linux.wrti,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- linux.wrti 18 Sep 2002 20:54:23 -0000 1.18
+++ linux.wrti 18 Sep 2002 20:58:04 -0000 1.19
@@ -313,6 +313,30 @@
(macro TCSETSW #x5403)
(macro TCSETSF #x5404)
+ ;;;; <linux/posix_types.h> and <asm/posix_types.h>
+ (macro FD_SETSIZE 1024)
+ (macro sizeof.fd_set 128)
+ (macro sizeof.fd_set.aligned 128)
+ (macro sizeof.fd_set.tetras 32)
+ (macro FD_ZERO sizeof.fd_set.tetras 0 tetrafill)
+ (macro FD_SET ; ( fd fdset )
+ swap dup 3 rshift -4 and
+ swap #x1F and swap
+ ; Cropping is necessary here: apparently, some processors
+ ; (AMD 6.7.0, to be specific; and even Intel 5.2.C) will
+ ; happily modify a following word if the bit index argument
+ ; is a register and the value exceeds 31. The comment in
+ ; Nasm manual is apparently not entirely correct.
+ (stack>=! 3) ,(bts (tetra ,0 ,2) ,1) drop drop drop)
+ (macro FD_CLR ; ( fd fdset )
+ swap dup 3 rshift -4 and swap #x1F and swap
+ ,(btr (tetra ,0 ,2) ,1) drop drop drop)
+ (macro FD_ISSET ; ( fd fdset )
+ swap dup 3 rshift -4 and
+ swap #x1F and swap
+ (register %eax %ebx %ecx %edx)
+ ,(bt (tetra ,1 ,3) ,2) ,(mov ,0 %?c) nip nip nip)
+
;;;; <linux/socket.h>
(macro AF_UNSPEC 0) (macro PF_UNSPEC 0)
(macro AF_UNIX 1) (macro PF_UNIX 1)
Index: universal.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/universal.wrti,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- universal.wrti 11 Sep 2002 17:36:55 -0000 1.16
+++ universal.wrti 18 Sep 2002 20:58:04 -0000 1.17
@@ -598,21 +598,24 @@
(macro cell! tetra!)
(macro fill
- (flush)
- ,(pop %eax)
- ,(pop %ecx)
- ,(pop %edi)
+ (conform %edi %ecx %eax)
,(cld)
,(rep)
- ,(stos %al))
+ ,(stos %al)
+ (believe))
+
+ (macro tetrafill
+ (conform %edi %ecx %eax)
+ ,(cld)
+ ,(rep)
+ ,(stos %eax)
+ (believe))
(macro move
- (flush)
- ,(pop %ecx)
- ,(pop %edi)
- ,(pop %esi)
+ (conform %esi %edi %ecx)
,(cld)
,(rep)
- ,(movs \byte)))
+ ,(movs \byte)
+ (believe)))
; vim:ft=worth
Index: wisptyp.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/wisptyp.wrti,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- wisptyp.wrti 18 Sep 2002 20:54:23 -0000 1.13
+++ wisptyp.wrti 18 Sep 2002 20:58:04 -0000 1.14
@@ -45,6 +45,9 @@
(macro require-c8string
dup get-type NC_C8STRING <> if 'WB_c8string_huh swap go-raise then)
+ (macro require-string-length
+ over string-length <> if 'WB_range swap go-raise then)
+
(macro string-length
cell+ cell@)
|
|
From: <di...@us...> - 2002-09-18 20:58:36
|
Update of /cvsroot/wisp/wisp/doc In directory usw-pr-cvs1:/tmp/cvs-serv26569/doc Modified Files: worth.vim Log Message: Moved file descriptor set manipulation from the Wisp level to the Worth level. Index: worth.vim =================================================================== RCS file: /cvsroot/wisp/wisp/doc/worth.vim,v retrieving revision 1.16 retrieving revision 1.17 diff -u -d -r1.16 -r1.17 --- worth.vim 18 Sep 2002 20:54:22 -0000 1.16 +++ worth.vim 18 Sep 2002 20:58:03 -0000 1.17 @@ -32,32 +32,35 @@ syn keyword wispFunc d+ d- d>s dhexprint dig drop dup emit emit-digit syn keyword wispFunc encode-digit fill get-type go-access-slot hexprint syn keyword wispFunc lshift m+ max min mod move negate nip not octas or -syn keyword wispFunc over require-c8string rol ror rot rshift s>d sp! -syn keyword wispFunc sp@ space square string-data string-length swap -syn keyword wispFunc sys.accept sys.access sys.alarm sys.bind sys.brk -syn keyword wispFunc sys.chdir sys.chmod sys.chroot sys.close -syn keyword wispFunc sys.connect sys.creat sys.dup sys.dup2 sys.exit -syn keyword wispFunc sys.fchdir sys.fchmod sys.fdatasync sys.flock -syn keyword wispFunc sys.fork sys.fstat sys.fsync sys.ftruncate -syn keyword wispFunc sys.getcwd sys.getegid sys.geteuid sys.getgid -syn keyword wispFunc sys.getpeername sys.getpgid sys.getpgrp sys.getpid -syn keyword wispFunc sys.getppid sys.getsid sys.getsockname sys.getuid -syn keyword wispFunc sys.kill sys.link sys.listen sys.lseek sys.lstat -syn keyword wispFunc sys.mkdir sys.mlock sys.mlockall sys.munlock -syn keyword wispFunc sys.munlockall sys.nanosleep sys.nice sys.open -syn keyword wispFunc sys.pause sys.pipe sys.read sys.rename sys.rmdir -syn keyword wispFunc sys.setgid sys.setpgid sys.setregid sys.setreuid -syn keyword wispFunc sys.setsid sys.setuid sys.shutdown sys.socket -syn keyword wispFunc sys.stat sys.stime sys.swapoff sys.swapon -syn keyword wispFunc sys.symlink sys.sync sys.time sys.truncate -syn keyword wispFunc sys.umask sys.unlink sys.vhangup sys.waitpid -syn keyword wispFunc sys.write sys.write-char tetra! tetra+ tetra- -syn keyword wispFunc tetra@ tetra@++ tetras tuck type u< u<= u> u>= +syn keyword wispFunc over require-c8string require-string-length rol +syn keyword wispFunc ror rot rshift s>d sp! sp@ space square +syn keyword wispFunc string-data string-length swap sys.accept +syn keyword wispFunc sys.access sys.alarm sys.bind sys.brk sys.chdir +syn keyword wispFunc sys.chmod sys.chroot sys.close sys.connect +syn keyword wispFunc sys.creat sys.dup sys.dup2 sys.exit sys.fchdir +syn keyword wispFunc sys.fchmod sys.fdatasync sys.flock sys.fork +syn keyword wispFunc sys.fstat sys.fsync sys.ftruncate sys.getcwd +syn keyword wispFunc sys.getegid sys.geteuid sys.getgid sys.getpeername +syn keyword wispFunc sys.getpgid sys.getpgrp sys.getpid sys.getppid +syn keyword wispFunc sys.getsid sys.getsockname sys.getuid sys.kill +syn keyword wispFunc sys.link sys.listen sys.lseek sys.lstat sys.mkdir +syn keyword wispFunc sys.mlock sys.mlockall sys.munlock sys.munlockall +syn keyword wispFunc sys.nanosleep sys.nice sys.open sys.pause sys.pipe +syn keyword wispFunc sys.read sys.rename sys.rmdir sys.setgid +syn keyword wispFunc sys.setpgid sys.setregid sys.setreuid sys.setsid +syn keyword wispFunc sys.setuid sys.shutdown sys.socket sys.stat +syn keyword wispFunc sys.stime sys.swapoff sys.swapon sys.symlink +syn keyword wispFunc sys.sync sys.time sys.truncate sys.umask +syn keyword wispFunc sys.unlink sys.vhangup sys.waitpid sys.write +syn keyword wispFunc sys.write-char tetra! tetra+ tetra- tetra@ +syn keyword wispFunc tetra@++ tetrafill tetras tuck type u< u<= u> u>= syn keyword wispFunc wisp-bool-> wisp-epilogue wisp-prologue within syn keyword wispFunc wyde! wyde+ wyde- wyde@ wyde@++ wydes xor " structure management +syn keyword wispLibFunc FD_CLR FD_ISSET FD_SET FD_ZERO sizeof.fd_set +syn keyword wispLibFunc sizeof.fd_set.aligned sizeof.fd_set.tetras syn keyword wispLibFunc sizeof.struct-stat sizeof.struct-stat.aligned syn keyword wispLibFunc sizeof.struct-termios syn keyword wispLibFunc sizeof.struct-termios.aligned stat.atime@ @@ -96,16 +99,17 @@ syn keyword worthConstant ESOCKTNOSUPPORT ESPIPE ESRCH ESRMNT ESTALE syn keyword worthConstant ESTRPIPE ETIME ETIMEDOUT ETOOMANYREFS ETXTBSY syn keyword worthConstant EUCLEAN EUNATCH EUSERS EWOULDBLOCK EXDEV -syn keyword worthConstant EXFULL PF_APPLETALK PF_ASH PF_ATMPVC -syn keyword worthConstant PF_ATMSVC PF_AX25 PF_BLUETOOTH PF_BRIDGE -syn keyword worthConstant PF_DECnet PF_ECONET PF_INET PF_INET6 PF_IPX -syn keyword worthConstant PF_IRDA PF_KEY PF_LLC PF_NETBEUI PF_NETLINK -syn keyword worthConstant PF_NETROM PF_PACKET PF_PPPOX PF_ROSE -syn keyword worthConstant PF_SECURITY PF_SNA PF_UNIX PF_UNSPEC -syn keyword worthConstant PF_WANPIPE PF_X25 TCGETS TCSETS TCSETSF -syn keyword worthConstant TCSETSW VDISCARD VEOF VEOL VEOL2 VERASE VINTR -syn keyword worthConstant VKILL VLNEXT VMIN VQUIT VREPRINT VSTART VSTOP -syn keyword worthConstant VSUSP VSWTC VTIME VWERASE WNOHANG WUNTRACED +syn keyword worthConstant EXFULL FALSE FD_SETSIZE NULL PF_APPLETALK +syn keyword worthConstant PF_ASH PF_ATMPVC PF_ATMSVC PF_AX25 +syn keyword worthConstant PF_BLUETOOTH PF_BRIDGE PF_DECnet PF_ECONET +syn keyword worthConstant PF_INET PF_INET6 PF_IPX PF_IRDA PF_KEY PF_LLC +syn keyword worthConstant PF_NETBEUI PF_NETLINK PF_NETROM PF_PACKET +syn keyword worthConstant PF_PPPOX PF_ROSE PF_SECURITY PF_SNA PF_UNIX +syn keyword worthConstant PF_UNSPEC PF_WANPIPE PF_X25 TCGETS TCSETS +syn keyword worthConstant TCSETSF TCSETSW TRUE UNDEF VDISCARD VEOF VEOL +syn keyword worthConstant VEOL2 VERASE VINTR VKILL VLNEXT VMIN VOID +syn keyword worthConstant VQUIT VREPRINT VSTART VSTOP VSUSP VSWTC VTIME +syn keyword worthConstant VWERASE WNOHANG WUNTRACED ZERO syn keyword worthRegister %ah %al %ax %bh %bl %bp %bx %ch %cl %cs %cx syn keyword worthRegister %dh %di %dl %ds %dx %eax %ebp %ebx %ecx %edi |
|
From: <di...@us...> - 2002-09-18 20:58:11
|
Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv26569/src
Modified Files:
essence.c wordlist.txt
Log Message:
Moved file descriptor set manipulation from the Wisp level to the Worth level.
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.206
retrieving revision 1.207
diff -u -d -r1.206 -r1.207
--- essence.c 18 Sep 2002 20:57:21 -0000 1.206
+++ essence.c 18 Sep 2002 20:58:04 -0000 1.207
@@ -374,6 +374,10 @@
NN_string_length,
NN_symbol_huh,
NN_sys_exit,
+ NN_sys_fd_clr,
+ NN_sys_fd_isset,
+ NN_sys_fd_set,
+ NN_sys_fd_zero,
NN_sys_for_dir_entries,
NN_sys_getegid,
NN_sys_geteuid,
@@ -447,8 +451,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 111,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 111,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 111,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 111,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 111,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 92,tc,V 1,c,jinf,V 28,dig,V 0,q,mha,l,V 1,l,V 110,tc,V 1,c,jinf,V 15,qi,W(procedure_huh),dig,V 1,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 0,dig,V 0,q,mha,l,V 1,l,V 154,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 155,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 92,tc,V 1,c,jinf,V 28,dig,V 0,q,mha,l,V 1,l,V 110,tc,V 1,c,jinf,V 15,qi,W(procedure_huh),dig,V 1,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 0,dig,V 0,q,mha,l,V 1,l,V 158,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 159,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 125,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 111,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};
@@ -491,7 +495,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 99,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 111,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 99,tc,V 2,c,q,mha,l,V 1,l,V 99,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 146,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 99,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 150,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 99,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 99,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 99,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 99,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};
@@ -522,7 +526,7 @@
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 124,tc,V 1,c,jif,V 13,dig,V 0,q,mha,l,V 1,l,V 124,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 146,tc,V 1,c,jif,V 13,dig,V 0,q,mha,l,V 1,l,V 146,tc,V 1,c,j,V 2,t,F,jif,V 87,dig,V 1,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 1,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+17,tc,V 2,c,jif,V 41,dig,V 1,q,dig,V 1,q,qi,I(0),dig,V 4,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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*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 124,tc,V 1,c,jif,V 13,dig,V 0,q,mha,l,V 1,l,V 124,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 150,tc,V 1,c,jif,V 13,dig,V 0,q,mha,l,V 1,l,V 150,tc,V 1,c,j,V 2,t,F,jif,V 87,dig,V 1,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 1,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+17,tc,V 2,c,jif,V 41,dig,V 1,q,dig,V 1,q,qi,I(0),dig,V 4,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 118,tc,V 2,c,q,dig,V 3,q,dig,V 3,q,mha,l,V 1,l,V 118,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};
@@ -541,9 +545,9 @@
void*Y96[]={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,mla,l,V 0,xri,Q,jinz,V 3,t,I(0),r,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 20,qi,I(0),mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,li,rvec+5,tc,V 2,c,r,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 1,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 0,mla,l,V 0,xri,Q,jiz,V 41,mla,l,V 1,q,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,li,rvec+5,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 -48,mla,l,V 1,r};
void*Y97[]={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,t,I(1),mlt,s,V 1,mla,l,V 0,xri,Q,jiz,V 41,mla,l,V 1,q,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,li,rvec+6,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 -48,mla,l,V 1,r};
void*Y98[]={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,mla,l,V 0,xri,Q,jinz,V 3,t,I(1),r,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 20,qi,I(1),mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,li,rvec+7,tc,V 2,c,r,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 1,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 0,mla,l,V 0,xri,Q,jiz,V 41,mla,l,V 1,q,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,li,rvec+7,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 -48,mla,l,V 1,r};
-void*Y99[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,dig,V 1,q,li,rvec+7,tc,V 2,c,q,mha,l,V 1,l,V 137,tc,V 1,c,ds,V 2,r};
-void*Y100[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,qi,I(0),dig,V 1,q,mha,l,V 1,l,V 140,tc,V 2,c,xri,I(0),jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r};
-void*Y101[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,qi,I(0),dig,V 1,q,mha,l,V 1,l,V 140,tc,V 2,c,xri,I(1),jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r};
+void*Y99[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,dig,V 1,q,li,rvec+7,tc,V 2,c,q,mha,l,V 1,l,V 141,tc,V 1,c,ds,V 2,r};
+void*Y100[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,qi,I(0),dig,V 1,q,mha,l,V 1,l,V 144,tc,V 2,c,xri,I(0),jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r};
+void*Y101[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,qi,I(0),dig,V 1,q,mha,l,V 1,l,V 144,tc,V 2,c,xri,I(1),jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r};
void*Y102[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 112,tc,V 1,c,q,li,rvec+10,tc,V 1,c,ct,l0,ds,V 1,r};
void*Y103[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 112,tc,V 1,c,q,li,rvec+10,tc,V 1,c,ct,l,V 1,ds,V 1,r};
void*Y104[]={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,jif,V 13,qi,I(0),dig,V 1,q,li,rvec+5,tc,V 2,c,ds,V 1,r,dig,V 0,ds,V 1,r};
@@ -563,19 +567,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 124,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 146,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 124,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 150,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 156,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 158,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 160,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 162,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 146,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 158,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 156,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 158,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 150,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 162,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 160,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 162,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 111,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 158,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 162,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 158,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 162,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};
@@ -585,7 +589,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 124,tc,V 1,c,jif,V 14,dig,V 0,q,mha,l,V 1,l,V 123,tc,V 1,c,ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 146,tc,V 1,c,jif,V 14,dig,V 0,q,mha,l,V 1,l,V 144,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 124,tc,V 1,c,jif,V 14,dig,V 0,q,mha,l,V 1,l,V 123,tc,V 1,c,ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 150,tc,V 1,c,jif,V 14,dig,V 0,q,mha,l,V 1,l,V 148,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};
@@ -607,7 +611,7 @@
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 146,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 103,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 150,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 103,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 103,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,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 118,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 99,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};
@@ -619,11 +623,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 156,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 160,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 156,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 160,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};
@@ -641,7 +645,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 124,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 125,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 111,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 125,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 156,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 125,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 160,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};
@@ -668,24 +672,24 @@
void*Y223[]={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,xri,Q,jinz,V 15,qi,W(begin),mla,l,V 2,q,mha,l,V 1,l,V 80,tc,V 2,c,r,t,B 220,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 1,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 1,qi,W(let),t,B 221,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 1,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,t,B 222,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 1,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mla,l,V 2,q,mha,l0,q,qi,W(append),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,q,mha,l,V 1,l,V 80,tc,V 2,c,r};
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 105,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 118,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,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 105,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 145,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 146,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 62,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,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 -68,ds,V 1,mla,l,V 1,q,mha,l,V 1,l,V 105,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 91,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,dig,V 1,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 145,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 -97,ds,V 1,mla,l,V 2,r};
+void*Y226[]={binc,&branch_EVM_invargc,hop,V 2,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,mlt,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 105,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 149,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 150,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 62,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,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 -68,ds,V 1,mla,l,V 1,q,mha,l,V 1,l,V 105,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 91,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,dig,V 1,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 149,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 -97,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,mla,l,V 0,l,V 2,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,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 118,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 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 125,tc,V 1,c,jinf,V 15,qi,W(symbol_huh),dig,V 1,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 0,ds,V 1,t,Q,mlt,s,V 3,t,B 229,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,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mla,l,V 3,tc,V 1,c,r};
void*Y231[]={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,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 118,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*Y232[]={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*Y233[]={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 142,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*Y233[]={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 146,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*Y234[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 97,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*Y235[]={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 97,tc,V 1,c,jinf,V 15,qi,W(instance_huh),dig,V 1,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 0,ds,V 1,dig,V 0,l,V 1,ds,V 1,r};
void*Y236[]={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*Y237[]={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 97,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 236,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*Y238[]={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 146,tc,V 1,c,jinf,V 15,qi,W(vector_huh),dig,V 1,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 0,ds,V 1,mla,l,V 0,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 118,tc,V 2,c,q,dig,V 0,q,mha,l,V 1,l,V 125,tc,V 1,c,jinf,V 15,qi,W(symbol_huh),dig,V 1,q,mha,l,V 1,l,V 111,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 159,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 103,tc,V 0,c,q,mla,l,V 0,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 118,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 111,tc,V 2,c,j,V 65,dig,V 1,q,mha,l,V 1,l,V 125,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 99,tc,V 2,c,q,mha,l,V 1,l,V 118,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 111,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*Y238[]={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 150,tc,V 1,c,jinf,V 15,qi,W(vector_huh),dig,V 1,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 0,ds,V 1,mla,l,V 0,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 118,tc,V 2,c,q,dig,V 0,q,mha,l,V 1,l,V 125,tc,V 1,c,jinf,V 15,qi,W(symbol_huh),dig,V 1,q,mha,l,V 1,l,V 111,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 163,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 103,tc,V 0,c,q,mla,l,V 0,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 118,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 111,tc,V 2,c,j,V 65,dig,V 1,q,mha,l,V 1,l,V 125,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 99,tc,V 2,c,q,mha,l,V 1,l,V 118,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 111,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*Y239[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 97,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*Y240[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,B 239,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,r};
void*Y241[]={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*Y242[]={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 5,ds,V 1,r,t,BC 5,ds,V 1,r};
-void*Y243[]={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 241,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 125,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+10,tc,V 1,c,ct,l,V 1,q,dig,V 0,xri,Q,jiz,V 84,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,dig,V 1,q,mla,l,V 4,q,mha,l0,q,qi,W(memq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jinf,V 11,dig,V 1,q,mla,l,V 6,tc,V 1,c,j,V 0,dig,V 1,q,mla,l,V 7,q,mha,l,V 1,l,V 80,tc,V 2,c,mlt,s,V ...
[truncated message content] |
|
From: <di...@us...> - 2002-09-18 20:58:11
|
Update of /cvsroot/wisp/wisp/tools
In directory usw-pr-cvs1:/tmp/cvs-serv26569/tools
Modified Files:
worth
Log Message:
Moved file descriptor set manipulation from the Wisp level to the Worth level.
Index: worth
===================================================================
RCS file: /cvsroot/wisp/wisp/tools/worth,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- worth 18 Sep 2002 20:55:17 -0000 1.30
+++ worth 18 Sep 2002 20:58:08 -0000 1.31
@@ -544,12 +544,13 @@
(map (lambda (item)
(cond
((not (cons? item))
- item)
+ item)
+ ; FIXME: report a suitable error if the stack is too shallow
((eq? (car item)
'unquote)
- (list-ref regstack
- (second
- item)))
+ (list-ref regstack
+ (second
+ item)))
(else
(loop item))))
l)))))
|
|
From: <di...@us...> - 2002-09-18 20:58:11
|
Update of /cvsroot/wisp/wisp/src/native
In directory usw-pr-cvs1:/tmp/cvs-serv26569/src/native
Modified Files:
sys.s sys.wth
Log Message:
Moved file descriptor set manipulation from the Wisp level to the Worth level.
Index: sys.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sys.s,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- sys.s 18 Sep 2002 20:55:17 -0000 1.8
+++ sys.s 18 Sep 2002 20:58:07 -0000 1.9
@@ -1,5 +1,117 @@
.section .text
.align 16
+N_sys_fd_isset:
+.byte 144,81,131,249,2,15,132,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,88,91,80,83,104
+.long N_sys_fd_isset.L1
+.byte 83,233
+.long decui$1 - (.+4)
+.byte 80,61,0,4,0,0,15,140,13,0,0,0,88,88,104
+.long WB_range
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,91,91,137,217,131,225,3,80,83,83,133,201,15,132,8,0,0,0,88,106
+.byte 19,233,22,0,0,0,88,80,133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0
+.byte 88,139,0,80,88,61,9,0,0,0,15,132,12,0,0,0,88,104
+.long WB_c8string_huh
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,137,195,131,195,4,139,27,80,184,128,0,0,0,57,216,15,132,12,0,0
+.byte 0,88,104
+.long WB_range
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,137,195,131,195,8,139,0,83,61,9,0,0,0,15,133,4,0,0,0,88,139,0
+.byte 80,88,91,137,217,193,233,3,131,225,252,131,227,31,137,199,15,163
+.byte 28,57,15,146,192,15,182,192,133,192,15,132,7,0,0,0,106,11,233,2,0
+.byte 0,0,106,19,88,195
+.global N_sys_fd_isset,NN_sys_fd_isset,N_sys_fd_isset.L1
+.equiv NN_sys_fd_isset, N_sys_fd_isset + 1
+.equiv N_sys_fd_isset.L1, N_sys_fd_isset + 35
+.section .text
+.align 16
+N_sys_fd_clr:
+.byte 144,81,131,249,2,15,132,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,88,91,80,83,104
+.long N_sys_fd_clr.L1
+.byte 83,233
+.long decui$1 - (.+4)
+.byte 80,61,0,4,0,0,15,140,13,0,0,0,88,88,104
+.long WB_range
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,91,91,137,217,131,225,3,80,83,83,133,201,15,132,8,0,0,0,88,106
+.byte 19,233,22,0,0,0,88,80,133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0
+.byte 88,139,0,80,88,61,9,0,0,0,15,132,12,0,0,0,88,104
+.long WB_c8string_huh
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,137,195,131,195,4,139,27,80,184,128,0,0,0,57,216,15,132,12,0,0
+.byte 0,88,104
+.long WB_range
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,137,195,131,195,8,139,0,83,61,9,0,0,0,15,133,4,0,0,0,88,139,0
+.byte 80,88,91,137,217,193,233,3,131,225,252,131,227,31,15,179,28,1,184
+.byte 27,0,0,0,195
+.global N_sys_fd_clr,NN_sys_fd_clr,N_sys_fd_clr.L1
+.equiv NN_sys_fd_clr, N_sys_fd_clr + 1
+.equiv N_sys_fd_clr.L1, N_sys_fd_clr + 35
+.section .text
+.align 16
+N_sys_fd_set:
+.byte 144,81,131,249,2,15,132,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,88,91,80,83,104
+.long N_sys_fd_set.L1
+.byte 83,233
+.long decui$1 - (.+4)
+.byte 80,61,0,4,0,0,15,140,13,0,0,0,88,88,104
+.long WB_range
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,91,91,137,217,131,225,3,80,83,83,133,201,15,132,8,0,0,0,88,106
+.byte 19,233,22,0,0,0,88,80,133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0
+.byte 88,139,0,80,88,61,9,0,0,0,15,132,12,0,0,0,88,104
+.long WB_c8string_huh
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,137,195,131,195,4,139,27,80,184,128,0,0,0,57,216,15,132,12,0,0
+.byte 0,88,104
+.long WB_range
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,137,195,131,195,8,139,0,83,61,9,0,0,0,15,133,4,0,0,0,88,139,0
+.byte 80,88,91,137,217,193,233,3,131,225,252,131,227,31,15,171,28,1,184
+.byte 27,0,0,0,195
+.global N_sys_fd_set,NN_sys_fd_set,N_sys_fd_set.L1
+.equiv NN_sys_fd_set, N_sys_fd_set + 1
+.equiv N_sys_fd_set.L1, N_sys_fd_set + 35
+.section .text
+.align 16
+N_sys_fd_zero:
+.byte 144,81,133,201,15,133,17,0,0,0,88,184,0,4,0,0,13,7,0,0,0,80,233
+.byte 168,0,0,0,88,80,61,1,0,0,0,15,132,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,88,137,195,131,227,3,80,80,133,219,15,132,8,0,0,0,88,106,19,233
+.byte 22,0,0,0,88,80,133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0,88,139
+.byte 0,80,88,61,9,0,0,0,15,132,12,0,0,0,88,104
+.long WB_c8string_huh
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,137,195,131,195,4,139,27,80,184,128,0,0,0,57,216,15,132,12,0,0
+.byte 0,88,104
+.long WB_range
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,137,195,131,195,8,139,0,83,61,9,0,0,0,15,133,4,0,0,0,88,139,0
+.byte 80,184,0,0,0,0,185,32,0,0,0,91,137,223,252,243,171,106,27,88,195
+.global N_sys_fd_zero,NN_sys_fd_zero
+.equiv NN_sys_fd_zero, N_sys_fd_zero + 1
+.section .text
+.align 16
N_sys_low_tcsetattr:
.byte 144,81,131,249,3,15,132,8,0,0,0,88,137,193,233
.long N_signal_argcount - (.+4)
@@ -23,14 +135,14 @@
.long WB_c8string_huh
.byte 80,233
.long raise$2 - (.+4)
-.byte 88,137,195,131,195,4,139,27,80,131,251,60,15,132,12,0,0,0,88,104
+.byte 88,137,195,131,195,4,139,27,80,184,60,0,0,0,57,216,15,132,12,0,0,0
+.byte 88,104
.long WB_range
.byte 80,233
.long raise$2 - (.+4)
.byte 88,137,195,131,195,8,139,0,83,61,9,0,0,0,15,133,4,0,0,0,88,139,0
.byte 80,88,137,194,88,137,193,88,137,195,184,54,0,0,0,205,128,80,233
.long encsi$1 - (.+4)
-.byte 88,195
.global N_sys_low_tcsetattr,NN_sys_low_tcsetattr,N_sys_low_tcsetattr.L1
.equiv NN_sys_low_tcsetattr, N_sys_low_tcsetattr + 1
.equiv N_sys_low_tcsetattr.L1, N_sys_low_tcsetattr + 36
@@ -38,7 +150,7 @@
.align 16
N_sys_low_tcgetattr:
.byte 144,81,133,201,15,133,17,0,0,0,88,184,224,1,0,0,13,7,0,0,0,80,233
-.byte 185,0,0,0,88,80,61,2,0,0,0,15,132,8,0,0,0,88,137,193,233
+.byte 189,0,0,0,88,80,61,2,0,0,0,15,132,8,0,0,0,88,137,193,233
.long N_signal_argcount - (.+4)
.byte 88,88,91,80,104
.long N_sys_low_tcgetattr.L3
@@ -50,7 +162,8 @@
.long WB_c8string_huh
.byte 80,233
.long raise$2 - (.+4)
-.byte 88,137,195,131,195,4,139,27,80,131,251,60,15,132,12,0,0,0,88,104
+.byte 88,137,195,131,195,4,139,27,80,184,60,0,0,0,57,216,15,132,12,0,0,0
+.byte 88,104
.long WB_range
.byte 80,233
.long raise$2 - (.+4)
Index: sys.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sys.wth,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- sys.wth 18 Sep 2002 20:55:17 -0000 1.9
+++ sys.wth 18 Sep 2002 20:58:07 -0000 1.10
@@ -276,11 +276,8 @@
else
dup 2 = argc drop
swap decui swap require-c8string
- dup string-length sizeof.struct-termios <> if
- 'WB_range swap go-raise
- else
- string-data TCGETS swap sys.ioctl (flush) 'encsi$1 jump
- then
+ sizeof.struct-termios require-string-length
+ string-data TCGETS swap sys.ioctl (flush) 'encsi$1 jump
then)
(native sys_low_tcsetattr dup 3 = argc drop
@@ -299,10 +296,33 @@
then
then
rot require-c8string
- dup string-length sizeof.struct-termios <> if
- 'WB_range swap go-raise
+ sizeof.struct-termios require-string-length
+ string-data sys.ioctl (flush) 'encsi$1 jump)
+
+(native sys_fd_zero
+ dup 0 = if
+ drop sizeof.fd_set tag-fixnum
else
- string-data sys.ioctl (flush) 'encsi$1 jump
+ dup 1 = argc drop
+ require-c8string
+ sizeof.fd_set require-string-length
+ string-data FD_ZERO
+ VOID
then)
+
+(native sys_fd_set dup 2 = argc drop
+ swap dup decui dup FD_SETSIZE >= if drop 'WB_range swap go-raise then
+ nip swap require-c8string sizeof.fd_set require-string-length
+ string-data FD_SET VOID)
+
+(native sys_fd_clr dup 2 = argc drop
+ swap dup decui dup FD_SETSIZE >= if drop 'WB_range swap go-raise then
+ nip swap require-c8string sizeof.fd_set require-string-length
+ string-data FD_CLR VOID)
+
+(native sys_fd_isset dup 2 = argc drop
+ swap dup decui dup FD_SETSIZE >= if drop 'WB_range swap go-raise then
+ nip swap require-c8string sizeof.fd_set require-string-length
+ string-data FD_ISSET ->wisp-bool)
; vim: ft=worth
|
|
From: <di...@us...> - 2002-09-18 20:58:10
|
Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv26569/src/builtin
Modified Files:
dictbase.wisp sys.wisp
Log Message:
Moved file descriptor set manipulation from the Wisp level to the Worth level.
Index: dictbase.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/dictbase.wisp,v
retrieving revision 1.245
retrieving revision 1.246
diff -u -d -r1.245 -r1.246
--- dictbase.wisp 18 Sep 2002 20:55:16 -0000 1.245
+++ dictbase.wisp 18 Sep 2002 20:58:07 -0000 1.246
@@ -139,6 +139,10 @@
(local string? (asm NN_string_huh))
(local symbol? (asm NN_symbol_huh))
(local sys:exit (asm NN_sys_exit))
+(local sys:fd-clr! (asm NN_sys_fd_clr))
+(local sys:fd-isset? (asm NN_sys_fd_isset))
+(local sys:fd-set! (asm NN_sys_fd_set))
+(local sys:fd-zero! (asm NN_sys_fd_zero))
(local sys:getegid (asm NN_sys_getegid))
(local sys:geteuid (asm NN_sys_geteuid))
(local sys:getgid (asm NN_sys_getgid))
Index: sys.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/sys.wisp,v
retrieving revision 1.115
retrieving revision 1.116
diff -u -d -r1.115 -r1.116
--- sys.wisp 18 Sep 2002 20:55:16 -0000 1.115
+++ sys.wisp 18 Sep 2002 20:58:07 -0000 1.116
@@ -168,16 +168,16 @@
(signal-system-error res `(sys:tcsetattr ,fd)))))))
(define (make-fdset)
- (make-string (system-constant 'size-of 'fd_set) #\U+00))
+ (my buffer (make-c8string (sys:fd-zero!))
+ (sys:fd-zero! buffer)
+ buffer))
(define (fdset-ref set fd (:= new-val))
- (if (not (and (integer? fd) (<= 0 fd)
- (< fd (system-constant 'size-of 'FD_SETSIZE))))
- (raise 'range fd))
- (my pos (logical-xor fd 7) ; FIXME: this is specific to Linux and ia32
- (if :=?
- (set! (bitstring-ref set pos) new-val)
- (bitstring-ref set pos))))
+ (if :=?
+ (if new-val
+ (sys:fd-set! fd set)
+ (sys:fd-clr! fd set))
+ (sys:fd-isset? fd set)))
(define (pack-struct-flock type whence start length (pid 0))
(if (symbol? type)
|
|
From: <di...@us...> - 2002-09-18 20:57:29
|
Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv26343/src/builtin
Modified Files:
objects.wisp stdenv.wisp
Log Message:
Dropped the obsolete |freeze-class| procedure.
Index: objects.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/objects.wisp,v
retrieving revision 1.160
retrieving revision 1.161
diff -u -d -r1.160 -r1.161
--- objects.wisp 18 Sep 2002 20:56:51 -0000 1.160
+++ objects.wisp 18 Sep 2002 20:57:26 -0000 1.161
@@ -11,13 +11,7 @@
(define-class <class> ; aka BCL0
(read-only
superclass)
- (hidden
- slots
- obsolete-initial) ; FIXME: this slot is obsolete
- (read-only
- frozen?)
- (friend (freeze-class c)
- (set! frozen? #t))
+ (hidden slots)
(friend (superclass c)
superclass)
(friend (lookup-slot c s)
Index: stdenv.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/stdenv.wisp,v
retrieving revision 1.362
retrieving revision 1.363
diff -u -d -r1.362 -r1.363
--- stdenv.wisp 7 Sep 2002 22:01:30 -0000 1.362
+++ stdenv.wisp 18 Sep 2002 20:57:26 -0000 1.363
@@ -52,19 +52,19 @@
file-stat file-type file? filter find find-tail first
fit-for-symbol? fit-for-variable-name? fixnum? flatten
floor for-all-env-vars for-dir-entries for-each fourth
- fraction? freeze-class frer->structure hache hide* incr!
- init-port input-port? instance? integer->char
- integer->string integer? intermingle keyword? lambda-pack
- last-cons length let let* letrec list list->semideque
- list->vector list-copy list-ref list? load lookup-slot
- macro->procedure macro? make-box make-c16string
- make-c8string make-class make-counter make-dict
- make-instance make-record-type make-string make-vector map
- meaning member memq memv metacode modify-bit module
- module-ref modulo my-port native? negative? newline ninth
- not null-list? null? number->string number? numerator
- nybble? nyp? odd? open-input-file open-output-file opt or
- order->dict output-port? pack-be-integer pack-le-integer
+ fraction? frer->structure hache hide* incr! init-port
+ input-port? instance? integer->char integer->string
+ integer? intermingle keyword? lambda-pack last-cons length
+ let let* letrec list list->semideque list->vector
+ list-copy list-ref list? load lookup-slot macro->procedure
+ macro? make-box make-c16string make-c8string make-class
+ make-counter make-dict make-instance make-record-type
+ make-string make-vector map meaning member memq memv
+ metacode modify-bit module module-ref modulo my-port
+ native? negative? newline ninth not null-list? null?
+ number->string number? numerator nybble? nyp? odd?
+ open-input-file open-output-file opt or order->dict
+ output-port? pack-be-integer pack-le-integer
parse-character-body parse-lambda-list peek-char
peek-string pick-dict-items port? portio-debugging
positive? prep preprocess print procedure->macro
|
|
From: <di...@us...> - 2002-09-18 20:57:29
|
Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv26343/src
Modified Files:
essence.c wordlist.txt
Log Message:
Dropped the obsolete |freeze-class| procedure.
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.205
retrieving revision 1.206
diff -u -d -r1.205 -r1.206
--- essence.c 18 Sep 2002 20:56:48 -0000 1.205
+++ essence.c 18 Sep 2002 20:57:21 -0000 1.206
@@ -438,9 +438,9 @@
dict_ref_2;
/* The classes */
-void*BCL0[]__attribute__((aligned(16)))=CLS(F,(4,BC 3,BC 4,BC 5,BC 6),Q);
-void*BCL1[]__attribute__((aligned(16)))=CLS(F,(10,BC 8,BC 9,BC 10,BC 11,BC 12,BC 13,BC 14,BC 15,BC 16,BC 17),Q);
-void*BCL2[]__attribute__((aligned(16)))=CLS(&BCL1,(11,BC 8,BC 9,BC 10,BC 11,BC 12,BC 13,BC 14,BC 15,BC 16,BC 17,BC 18),Q);
+void*BCL0[]__attribute__((aligned(16)))=CLS(F,(2,BC 3,BC 4),Q);
+void*BCL1[]__attribute__((aligned(16)))=CLS(F,(10,BC 6,BC 7,BC 8,BC 9,BC 10,BC 11,BC 12,BC 13,BC 14,BC 15),Q);
+void*BCL2[]__attribute__((aligned(16)))=CLS(&BCL1,(11,BC 6,BC 7,BC 8,BC 9,BC 10,BC 11,BC 12,BC 13,BC 14,BC 15,BC 16),Q);
// The EVM bodies.
[...1666 lines suppressed...]
+[322]{car:W(LTDOTDOTDOTGT),cdr:Q},
+[323]{car:W(LTGT),cdr:BC 322},
+[324]{car:CH('i'),cdr:Q},
+[325]{car:CH('c'),cdr:BC 324},
+[326]{car:CH('C'),cdr:BC 325},
+[327]{car:CH('A'),cdr:BC 326},
+[328]{car:CH('e'),cdr:BC 327},
+[329]{car:B 680,cdr:Q},
+[330]{car:B 679,cdr:BC 329},
[331]{car:B 681,cdr:Q},
-[332]{car:B 680,cdr:BC 331},
-[333]{car:B 682,cdr:Q},
};
/* The root node of the compiled builtin library */
struct node *
-builtin_root = B 684;
+builtin_root = B 683;
/* essence.c ends here */
Index: wordlist.txt
===================================================================
RCS file: /cvsroot/wisp/wisp/src/wordlist.txt,v
retrieving revision 1.570
retrieving revision 1.571
diff -u -d -r1.570 -r1.571
--- wordlist.txt 18 Sep 2002 20:56:51 -0000 1.570
+++ wordlist.txt 18 Sep 2002 20:57:26 -0000 1.571
@@ -90,10 +90,10 @@
finally find find-tail first fit-for-symbol? fit-for-variable-name?
fixnum fixnum? flag-specifier? flatten flock floor fluid-list fluid-my
fluid? fluids flush follow-not for-all-env-vars for-dir-entries
-for-each fork form? formfeed fourth fraction fraction? freeze-class
-frer frer->structure friend frozen frozen? ftruncate getcwd getegid
-geteuid getgid getpgid getpid getppid getuid gid grammar-error hache
-hidden hide hide* hold home hop ia32 if iflag immediate-sublambdas
+for-each fork form? formfeed fourth fraction fraction? frer
+frer->structure friend frozen frozen? ftruncate getcwd getegid geteuid
+getgid getpgid getpid getppid getuid gid grammar-error hache hidden
+hide hide* hold home hop ia32 if iflag immediate-sublambdas
imported-variables inc incr! infix init-input-file init-output-file
init-port ino input-port? instance instance-of-wrong-class instance?
instruction-list int integer integer->char integer->flag-list
|
|
From: <di...@us...> - 2002-09-18 20:56:54
|
Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv26135/src
Modified Files:
essence.c wordlist.txt
Log Message:
Dropped the obsolete |hide-slots| procedure.
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.204
retrieving revision 1.205
diff -u -d -r1.204 -r1.205
--- essence.c 18 Sep 2002 20:55:54 -0000 1.204
+++ essence.c 18 Sep 2002 20:56:48 -0000 1.205
@@ -676,385 +676,384 @@
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 125,tc,V 1,c,jinf,V 15,qi,W(symbol_huh),dig,V 1,q,mha,l,V 1,l,V 111,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,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 118,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 111,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 111,tc,V 2,c,q,qi,F,mha,l,V 1,l,V 118,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 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 142,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*Y236[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 97,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*Y237[]={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 97,tc,V 1,c,jinf,V 15,qi,W(instance_huh),dig,V 1,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 0,ds,V 1,dig,V 0,l,V 1,ds,V 1,r};
-void*Y238[]={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*Y239[]={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 97,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 238,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*Y240[]={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 146,tc,V 1,c,jinf,V 15,qi,W(vector_huh),dig,V 1,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 0,ds,V 1,mla,l,V 0,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 118,tc,V 2,c,q,dig,V 0,q,mha,l,V 1,l,V 125,tc,V 1,c,jinf,V 15,qi,W(symbol_huh),dig,V 1,q,mha,l,V 1,l,V 111,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 159,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 103,tc,V 0,c,q,mla,l,V 0,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 118,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 111,tc,V 2,c,j,V 65,dig,V 1,q,mha,l,V 1,l,V 125,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 99,tc,V 2,c,q,mha,l,V 1,l,V 118,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 111,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,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 97,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};
[...1025 lines suppressed...]
struct cons conses [] = {
@@ -2078,13 +2076,13 @@
[328]{car:CH('C'),cdr:BC 327},
[329]{car:CH('A'),cdr:BC 328},
[330]{car:CH('e'),cdr:BC 329},
-[331]{car:B 682,cdr:Q},
-[332]{car:B 681,cdr:BC 331},
-[333]{car:B 683,cdr:Q},
+[331]{car:B 681,cdr:Q},
+[332]{car:B 680,cdr:BC 331},
+[333]{car:B 682,cdr:Q},
};
/* The root node of the compiled builtin library */
struct node *
-builtin_root = B 685;
+builtin_root = B 684;
/* essence.c ends here */
Index: wordlist.txt
===================================================================
RCS file: /cvsroot/wisp/wisp/src/wordlist.txt,v
retrieving revision 1.569
retrieving revision 1.570
diff -u -d -r1.569 -r1.570
--- wordlist.txt 18 Sep 2002 20:56:18 -0000 1.569
+++ wordlist.txt 18 Sep 2002 20:56:51 -0000 1.570
@@ -93,15 +93,15 @@
for-each fork form? formfeed fourth fraction fraction? freeze-class
frer frer->structure friend frozen frozen? ftruncate getcwd getegid
geteuid getgid getpgid getpid getppid getuid gid grammar-error hache
-hidden hide hide* hide-slots hold home hop ia32 if iflag
-immediate-sublambdas imported-variables inc incr! infix init-input-file
-init-output-file init-port ino input-port? instance
-instance-of-wrong-class instance? instruction-list int integer
-integer->char integer->flag-list integer->string integer? intermingle
-internal-trouble invalid invalid-argument-name invalid-assignment
-invalid-branch-target invalid-char invalid-cut invalid-definition
-invalid-dollar-construct invalid-export invalid-form invalid-frer
-invalid-frer-opcode invalid-intercode-instruction invalid-lambda-list
+hidden hide hide* hold home hop ia32 if iflag immediate-sublambdas
+imported-variables inc incr! infix init-input-file init-output-file
+init-port ino input-port? instance instance-of-wrong-class instance?
+instruction-list int integer integer->char integer->flag-list
+integer->string integer? intermingle internal-trouble invalid
+invalid-argument-name invalid-assignment invalid-branch-target
+invalid-char invalid-cut invalid-definition invalid-dollar-construct
+invalid-export invalid-form invalid-frer invalid-frer-opcode
+invalid-intercode-instruction invalid-lambda-list
invalid-lambda-pack-clause invalid-module-name invalid-my-target
invalid-place invalid-reader-syntax invalid-slot-name
invalid-system-constant-name-part invalid-try-clause
|
|
From: <di...@us...> - 2002-09-18 20:56:54
|
Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv26135/src/builtin
Modified Files:
objects.wisp
Log Message:
Dropped the obsolete |hide-slots| procedure.
Index: objects.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/objects.wisp,v
retrieving revision 1.159
retrieving revision 1.160
diff -u -d -r1.159 -r1.160
--- objects.wisp 18 Sep 2002 20:56:19 -0000 1.159
+++ objects.wisp 18 Sep 2002 20:56:51 -0000 1.160
@@ -43,14 +43,6 @@
sl))
(friend (class->vector c)
(vector-copy slots))
- (friend (hide-slots c sl)
- (if frozen?
- (raise 'frozen c))
- (for-each
- (lambda (x)
- (set! slots[(or (lookup-slot c x)
- (raise 'unknown x))] #f))
- sl))
(friend (make-instance c)
(my in (valloc (asm slots (l . 1) mat (tn . 2) addat mta))
(asm (in . c) pt (s . 1) (tn . 10) s0)
|
|
From: <di...@us...> - 2002-09-18 20:56:22
|
Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv25842/src/builtin
Modified Files:
objects.wisp
Log Message:
Dropped the obsolete |protect-slots| procedure.
Index: objects.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/objects.wisp,v
retrieving revision 1.158
retrieving revision 1.159
diff -u -d -r1.158 -r1.159
--- objects.wisp 7 Sep 2002 21:59:27 -0000 1.158
+++ objects.wisp 18 Sep 2002 20:56:19 -0000 1.159
@@ -51,14 +51,6 @@
(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 slots[(or (lookup-slot c x)
- (raise 'unknown x))]) #f))
- sl))
(friend (make-instance c)
(my in (valloc (asm slots (l . 1) mat (tn . 2) addat mta))
(asm (in . c) pt (s . 1) (tn . 10) s0)
|
|
From: <di...@us...> - 2002-09-18 20:56:22
|
Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv25842/src
Modified Files:
essence.c wordlist.txt
Log Message:
Dropped the obsolete |protect-slots| procedure.
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.203
retrieving revision 1.204
diff -u -d -r1.203 -r1.204
--- essence.c 18 Sep 2002 20:54:23 -0000 1.203
+++ essence.c 18 Sep 2002 20:55:54 -0000 1.204
@@ -677,385 +677,384 @@
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,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 118,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 111,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 111,tc,V 2,c,q,qi,F,mha,l,V 1,l,V 118,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 111,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 111,tc,V 2,c,q,mha,l,V 1,l,V 118,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 142,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 97,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 97,tc,V 1,c,jinf,V 15,qi,W(instance_huh),dig,V 1,q,mha,l,V 1,l,V 111,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 97,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 146,tc,V 1,c,jinf,V 15,qi,W(vector_huh),dig,V 1,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 0,ds,V 1,mla,l,V 0,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 118,tc,V 2,c,q,dig,V 0,q,mha,l,V 1,l,V 125,tc,V 1,c,jinf,V 15,qi,W(symbol_huh),dig,V 1,q,mha,l,V 1,l,V 111,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 159,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 103,tc,V 0,c,q,mla,l,V 0,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 118,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 111,tc,V 2,c,j,V 65,dig,V 1,q,mha,l,V 1,l,V 125,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 99,tc,V 2,c,q,mha,l,V 1,l,V 118,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 111,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 97,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};
[...1025 lines suppressed...]
struct cons conses [] = {
@@ -2080,13 +2078,13 @@
[328]{car:CH('C'),cdr:BC 327},
[329]{car:CH('A'),cdr:BC 328},
[330]{car:CH('e'),cdr:BC 329},
-[331]{car:B 683,cdr:Q},
-[332]{car:B 682,cdr:BC 331},
-[333]{car:B 684,cdr:Q},
+[331]{car:B 682,cdr:Q},
+[332]{car:B 681,cdr:BC 331},
+[333]{car:B 683,cdr:Q},
};
/* The root node of the compiled builtin library */
struct node *
-builtin_root = B 686;
+builtin_root = B 685;
/* essence.c ends here */
Index: wordlist.txt
===================================================================
RCS file: /cvsroot/wisp/wisp/src/wordlist.txt,v
retrieving revision 1.568
retrieving revision 1.569
diff -u -d -r1.568 -r1.569
--- wordlist.txt 13 Sep 2002 16:35:31 -0000 1.568
+++ wordlist.txt 18 Sep 2002 20:56:18 -0000 1.569
@@ -129,23 +129,23 @@
premature-eof prep preprocess preprocessed-source? preprocessing-error
prevent-invalid-call print procedure->macro procedure-remark procedure?
process-simple-quasiquote process-unquote-splicing processor-type
-prohibited protect-slots pt q qc qh qi ql qn qt quasiquote
-quasiquote-cons quote quotient r raise raise-unreadable-port
-raise-unseekable-port raise-unwritable-port range rassoc rassq rassv
-rational rational->cons rational->string rational? raw-file-seeker
-raw-input-file-reader raw-output-file-writer raw-read-string raw-ready?
-raw-seek raw-write-string rdev read read-all=> read-char
-read-char-sequence read-character-body read-directory
-read-external-string read-line read-only read-string read-until-dollar
-read-whole-file readable real-use real? rec record-constructor
-record-hook-name? record-type-discriminator record-type-referrer
-record-type-slot-count record-type? reduce-index ref reg regex
-regex-template regular regular-env relative remainder rename return
-reverse rolocal roslot round rubout run-ewisp-file run-file rvl s s0
-sbyte? sc scoped second seek semideque semideque->list semideque-bottom
-semideque-empty semideque-insert! semideque-pop! semideque-push!
-semideque-top semiraw-files serial set! setpgid setsid seventh sharp
-short sig signal signal-not signal-system-error signal-unreadable-port
+prohibited pt q qc qh qi ql qn qt quasiquote quasiquote-cons quote
+quotient r raise raise-unreadable-port raise-unseekable-port
+raise-unwritable-port range rassoc rassq rassv rational rational->cons
+rational->string rational? raw-file-seeker raw-input-file-reader
+raw-output-file-writer raw-read-string raw-ready? raw-seek
+raw-write-string rdev read read-all=> read-char read-char-sequence
+read-character-body read-directory read-external-string read-line
+read-only read-string read-until-dollar read-whole-file readable
+real-use real? rec record-constructor record-hook-name?
+record-type-discriminator record-type-referrer record-type-slot-count
+record-type? reduce-index ref reg regex regex-template regular
+regular-env relative remainder rename return reverse rolocal roslot
+round rubout run-ewisp-file run-file rvl s s0 sbyte? sc scoped second
+seek semideque semideque->list semideque-bottom semideque-empty
+semideque-insert! semideque-pop! semideque-push! semideque-top
+semiraw-files serial set! setpgid setsid seventh sharp short sig signal
+signal-not signal-system-error signal-unreadable-port
signal-unseekable-port signal-unwritable-port sixth size size-of slice
slot slots socket socketcall space splicing split-by-char st st_mode
stack start state-version stop strict-infix string string->c16string
|
|
From: <di...@us...> - 2002-09-18 20:55:26
|
Update of /cvsroot/wisp/wisp/modules/cpu
In directory usw-pr-cvs1:/tmp/cvs-serv25146/modules/cpu
Modified Files:
ia32.wim
Log Message:
Dropped |sys:raw:ioctl|.
Index: ia32.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/cpu/ia32.wim,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -d -r1.25 -r1.26
--- ia32.wim 31 Aug 2002 14:29:22 -0000 1.25
+++ ia32.wim 18 Sep 2002 20:54:23 -0000 1.26
@@ -157,6 +157,11 @@
((%?-e) #o362) ; aka REPNE
((%?-z) #o362)) ; aka REPNZ
+ ; Literals
+ (byte ((imm) (byte 0)))
+ (wyde ((imm) (wyde 0)))
+ (tetra ((imm) (tetra 0)))
+
; ModR/M - note that spare field is the first operand here
(\modrm ((* %) (combyte '3 0 1))
((* * imm) (combyte '0 0 '5) (tetra 2))
|
|
From: <di...@us...> - 2002-09-18 20:55:26
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv25146/modules
Modified Files:
linux.wrti wisptyp.wrti
Log Message:
Dropped |sys:raw:ioctl|.
Index: linux.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/linux.wrti,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- linux.wrti 13 Sep 2002 16:34:57 -0000 1.17
+++ linux.wrti 18 Sep 2002 20:54:23 -0000 1.18
@@ -80,6 +80,8 @@
(macro sys.getgid (conform) 47 \sys (believe %eax))
(macro sys.geteuid (conform) 49 \sys (believe %eax))
(macro sys.getegid (conform) 50 \sys (believe %eax))
+ (macro sys.ioctl (conform %ebx %ecx %edx) 54 \sys (believe %eax))
+ (macro sys.ioctl2 (conform %ebx %ecx %edx %esi) 54 \sys (believe %eax))
(macro sys.setpgid (conform %ebx %ecx) 57 \sys (believe %eax))
(macro sys.umask (conform %ebx) 60 \sys (believe %eax))
(macro sys.chroot (conform %ebx) 61 \sys (believe %eax))
@@ -124,7 +126,7 @@
(macro sys.getpeername swap rot 7 \skt (believe %eax) nip nip nip)
(macro sys.shutdown swap 13 \skt (believe %eax) nip nip)
- ; <asm/errno.h>
+ ;;;; <asm/errno.h>
(macro EPERM 1) ; Operation not permitted
(macro ENOENT 2) ; No such file or directory
(macro ESRCH 3) ; No such process
@@ -253,7 +255,7 @@
(macro ENOMEDIUM 123) ; No medium found
(macro EMEDIUMTYPE 124) ; Wrong medium type
- ; <bits/waitstatus.h> of glibc
+ ;;;; <bits/waitstatus.h> of glibc
(macro WEXITSTATUS 8 rshift #xFF and)
(macro WTERMSIG #x7F and)
(macro WSTOPSIG WEXITSTATUS)
@@ -262,11 +264,11 @@
(macro WIFSIGNALED dup WIFSTOPPED 0 = swap WIFEXITED 0 = and)
(macro WCOREDUMP #x80 and 0 <>)
- ; <linux/wait.h>
+ ;;;; <linux/wait.h>
(macro WNOHANG 1)
(macro WUNTRACED 2)
- ; <asm/stat.h>
+ ;;;; <asm/stat.h>
(macro stat.dev@ 0 + wyde@)
(macro stat.ino@ 4 + tetra@)
(macro stat.mode@ 8 + wyde@)
@@ -283,7 +285,35 @@
(macro sizeof.struct-stat 64)
(macro sizeof.struct-stat.aligned 64)
- ; <linux/socket.h>
+ ;;;;; <bits/termios.h> (NOT <asm/termbits.h>)
+ ; c_cc characters
+ (macro VINTR 0)
+ (macro VQUIT 1)
+ (macro VERASE 2)
+ (macro VKILL 3)
+ (macro VEOF 4)
+ (macro VTIME 5)
+ (macro VMIN 6)
+ (macro VSWTC 7)
+ (macro VSTART 8)
+ (macro VSTOP 9)
+ (macro VSUSP 10)
+ (macro VEOL 11)
+ (macro VREPRINT 12)
+ (macro VDISCARD 13)
+ (macro VWERASE 14)
+ (macro VLNEXT 15)
+ (macro VEOL2 16)
+ (macro sizeof.struct-termios 60)
+ (macro sizeof.struct-termios.aligned 60)
+
+ ;;;; <asm/ioctl.h>
+ (macro TCGETS #x5401)
+ (macro TCSETS #x5402)
+ (macro TCSETSW #x5403)
+ (macro TCSETSF #x5404)
+
+ ;;;; <linux/socket.h>
(macro AF_UNSPEC 0) (macro PF_UNSPEC 0)
(macro AF_UNIX 1) (macro PF_UNIX 1)
(macro AF_INET 2) (macro PF_INET 2)
Index: wisptyp.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/wisptyp.wrti,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- wisptyp.wrti 11 Sep 2002 17:36:46 -0000 1.12
+++ wisptyp.wrti 18 Sep 2002 20:54:23 -0000 1.13
@@ -42,6 +42,12 @@
(macro untag-node
-16 and)
+ (macro require-c8string
+ dup get-type NC_C8STRING <> if 'WB_c8string_huh swap go-raise then)
+
+ (macro string-length
+ cell+ cell@)
+
(macro string-data
dup 2 cells + swap cell@ NC_C8STRING = if cell@ then)
|
|
From: <di...@us...> - 2002-09-18 20:55:26
|
Update of /cvsroot/wisp/wisp/doc/examples In directory usw-pr-cvs1:/tmp/cvs-serv25146/doc/examples Modified Files: rawkey.wisp Log Message: Dropped |sys:raw:ioctl|. Index: rawkey.wisp =================================================================== RCS file: /cvsroot/wisp/wisp/doc/examples/rawkey.wisp,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- rawkey.wisp 22 Jul 2002 14:53:06 -0000 1.7 +++ rawkey.wisp 18 Sep 2002 20:54:23 -0000 1.8 @@ -11,10 +11,10 @@ (print "Type #\\q in order to quit.\n\n") (my termios (tcgetattr-raw *stdin*) - (cfmakeraw *stdin*) - (let (loop) - (my k (read-key *stdin*) - (print "You typed $[k]\r\n") - (if (not (eq? k #\q)) - (loop)))) - (tcsetattr-raw *stdin* 'now termios)) + (cfmakeraw *stdin*) + (let (loop) + (my k (read-key *stdin*) + (print "You typed $[k]\r\n") + (if (not (eqv? k #\q)) + (loop)))) + (tcsetattr-raw *stdin* 'now termios)) |
|
From: <di...@us...> - 2002-09-18 20:55:25
|
Update of /cvsroot/wisp/wisp/doc
In directory usw-pr-cvs1:/tmp/cvs-serv25146/doc
Modified Files:
wisp.texi worth.vim
Log Message:
Dropped |sys:raw:ioctl|.
Index: wisp.texi
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/wisp.texi,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -d -r1.25 -r1.26
--- wisp.texi 4 Sep 2002 14:27:48 -0000 1.25
+++ wisp.texi 18 Sep 2002 20:54:22 -0000 1.26
@@ -363,6 +363,7 @@
* odd?::
* open-input-file::
* open-output-file::
+* or::
* pack-be-integer::
* pack-le-integer::
* parse-lambda-list::
@@ -404,9 +405,7 @@
* string-downcase!::
* string-fill!::
* string-join::
-* string-length::
* string-null?::
-* string-ref::
* string-upcase!::
* string<=?::
* string<?::
@@ -2798,16 +2797,12 @@
@noindent
@b{Note:} Any two given objects @funcarg{a} and @funcarg{b} are considered recursively equivalent if and only if neither of them is a circular data structure and at least one of the following holds:
-@c (bullet space (slash "a") space "and" space (slash "b") space "are" space "identical" space "(see" space (bar "eq?") ");" space bullet space (slash "a") space "and" space (slash "b") space "are" space "atomically" space "equvalent" space "(see" space (bar "eqv?") ");" space bullet space (slash "a") space "and" space (slash "b") space "are" space "conses" space "whose" space "car" space "and" space "cdr" space "parts" space "are" space 5 "recursively" space "equal;" space bullet space (slash "a") space "and" space (slash "b") space "are" space "strings" space "of" space "equal" space "length" space "whose" space "corresponding" space 5 "characters" space "are" space "equal" space "charactes" space "(see" space (bar "char=?") ");" space bullet space (slash "a") space "and" space (slash "b") space "are" space "vectors" space "of" space "equal" space "length" space "whose" space "corresponding" space 5 "elements" space "are" space "recursively" space "equal.")
-@bullet{} @funcarg{a} and @funcarg{b} are identical (see @func{eq?}); @bullet{} @funcarg{a} and @funcarg{b} are atomically equvalent (see @func{eqv?}); @bullet{} @funcarg{a} and @funcarg{b} are conses whose car and cdr parts are &@math{_{5}}recursively equal; @bullet{} @funcarg{a} and @funcarg{b} are strings of equal length whose corresponding &@math{_{5}}characters are equal charactes (see @func{char=?}); @bullet{} @funcarg{a} and @funcarg{b} are vectors of equal length whose corresponding &@math{_{5}}elements are recursively equal.
+@c (bullet space (slash "a") space "and" space (slash "b") space "are" space "identical" space "(see" space (bar "eq?") ");" space bullet space (slash "a") space "and" space (slash "b") space "are" space "atomically" space "equvalent" space "(see" space (bar "eqv?") ");" space bullet space (slash "a") space "and" space (slash "b") space "are" space "conses" space "whose" space "car" space "and" space "cdr" space "parts" space "are" space 5 "recursively" space "equal;" space bullet space (slash "a") space "and" space (slash "b") space "are" space "strings" space "of" space "equal" space "length" space "whose" space "corresponding" space 5 "characters" space "are" space "equal" space "characters" space "(see" space (bar "char=?") ");" space bullet space (slash "a") space "and" space (slash "b") space "are" space "vectors" space "of" space "equal" space "length" space "whose" space "corresponding" space 5 "elements" space "are" space "recursively" space "equal.")
+@bullet{} @funcarg{a} and @funcarg{b} are identical (see @func{eq?}); @bullet{} @funcarg{a} and @funcarg{b} are atomically equvalent (see @func{eqv?}); @bullet{} @funcarg{a} and @funcarg{b} are conses whose car and cdr parts are &@math{_{5}}recursively equal; @bullet{} @funcarg{a} and @funcarg{b} are strings of equal length whose corresponding &@math{_{5}}characters are equal characters (see @func{char=?}); @bullet{} @funcarg{a} and @funcarg{b} are vectors of equal length whose corresponding &@math{_{5}}elements are recursively equal.
@c ("It" space "is" space "an" space "error" space "to" space "pass" space "a" space "circular" space "data" space "structure" space "to" space (bar "equal?") ".")
It is an error to pass a circular data structure to @func{equal?}.
-@c ((colon "Bugs:") space "the" space "current" space "implementation" space "of" space "wide-character" space "strings" space "is" space "unable" space "to" space "properly" space "compare" space "strings" space "of" space "different" space "character" space "width.")
-@noindent
-@b{Bugs:} the current implementation of wide-character strings is unable to properly compare strings of different character width.
-
@c ((colon "Conforms to:") space RfiveRS ".")
@noindent
@b{Conforms to:} @RfiveRS{}.
@@ -3341,12 +3336,12 @@
@node meaning,,,
@section @t{meaning}
@findex meaning
-@c ("(" (bar "meaning") space (slash "procedure") ")" space produces space (slash "symbol") space "|" space (slash "list"))
-(@func{meaning} @funcarg{procedure}) @produces{} @funcarg{symbol} | @funcarg{list}
+@c ("(" (bar "meaning") space (slash "object") ")" space produces space (slash "symbol") space "|" space (slash "list"))
+(@func{meaning} @funcarg{object}) @produces{} @funcarg{symbol} | @funcarg{list}
-@c ("Returns" space "a" space "copy" space "of" space "the" space "meaning" space "data" space "stored" space "in" space (slash "procedure") space "for" space "later" space "recognition" space "by" space "the" space "optimizer.")
-Returns a copy of the meaning data stored in @funcarg{procedure} for later recognition by the optimizer.
+@c ("Returns" space "a" space "copy" space "of" space "the" space "meaning" space "data" space "associated" space "with" space (slash "object") space "for" space "later" space "recognition" space "by" space "the" space "optimizer.")
+Returns a copy of the meaning data associated with @funcarg{object} for later recognition by the optimizer.
@c ((colon "Conforms to:") space "Wisp" space "internal.")
@noindent
@@ -3672,6 +3667,27 @@
@noindent
@b{See also:} @func{open-input-file}, @func{call-with-output-file}.
+@node or,,,
+@section @t{or}
+@findex or
+@c ("(" (bar "or") space (slash "expr") space dots ")" space produces space (slash "value"))
+(@func{or} @funcarg{expr} @dots{}) @produces{} @funcarg{value}
+
+@c ("(" (bar "or") ")" space produces space (tilde "#f"))
+(@func{or}) @produces{} @t{#f}
+
+
+@c ("Evaluates" space (slash "expr") ":s" space "from" space "left" space "to" space "right" space "and" space "returns" space "the" space "value" space "of" space "the" space "first" space "expression" space "that" space "returns" space "a" space "true" space "value." space "Any" space "remaining" space "expressions" space "are" space "not" space "evaluated." space "If" space "all" space "expressions" space "evaluate" space "to" space (tilde "#f") "," space "returns" space "the" space "value" space "of" space "the" space "last" space "expression.")
+Evaluates @funcarg{expr}:s from left to right and returns the value of the first expression that returns a true value. Any remaining expressions are not evaluated. If all expressions evaluate to @t{#f}, returns the value of the last expression.
+
+@c ((colon "Conforms to:") space RfiveRS ".")
+@noindent
+@b{Conforms to:} @RfiveRS{}.
+
+@c ((colon "See also:") space (bar "and") ".")
+@noindent
+@b{See also:} @func{and}.
+
@node pack-be-integer,,,
@section @t{pack-be-integer}
@findex pack-be-integer
@@ -4108,9 +4124,9 @@
@noindent
@b{Conforms to:} Wisp extension.
-@c ((colon "See also:") space (bar "string-ref") "," space (bar "vector-ref") "," space (bar "box-ref") "," space (bar "make-record-type") ".")
+@c ((colon "See also:") space (bar "vector-ref") "," space (bar "box-ref") "," space (bar "make-record-type") ".")
@noindent
-@b{See also:} @func{string-ref}, @func{vector-ref}, @func{box-ref}, @func{make-record-type}.
+@b{See also:} @func{vector-ref}, @func{box-ref}, @func{make-record-type}.
@node reverse,,,
@section @t{reverse}
@@ -4395,16 +4411,6 @@
@noindent
@b{Conforms to:} SRFI-13.
-@node string-length,,,
-@section @t{string-length}
-@findex string-length
-@c ("(" (bar "string-length") space (slash "string") ")" space produces space (slash "cardinal"))
-(@func{string-length} @funcarg{string}) @produces{} @funcarg{cardinal}
-
-
-@c ("Returns" space "the" space "length" space "of" space (slash "string") ".")
-Returns the length of @funcarg{string}.
-
@node string-null?,,,
@section @t{string-null?}
@findex string-null?
@@ -4419,28 +4425,6 @@
@noindent
@b{Conforms to:} SRFI-13.
-@node string-ref,,,
-@section @t{string-ref}
-@findex string-ref
-@c ("(" (bar "string-ref") space (slash "string") space (slash "index") ")" space accesses space (slash "char"))
-(@func{string-ref} @funcarg{string} @funcarg{index}) @accesses{} @funcarg{char}
-
-
-@c ("Accesses" space "a" space "character" space "cell" space "of" space (slash "string") "." space (slash "index") space "must" space "satisfy" space 8 "-L" space "<=" space (slash "index") space "<" space "L" space "where" space "L" space "is" space "the" space "length" space "of" space (slash "string") space "(see" space (bar "string-length") ")." space "If" space (slash "index") space "is" space "negative," space "it" space "is" space "relative" space "to" space "the" space "end" space "of" space (slash "string") ".")
-Accesses a character cell of @funcarg{string}. @funcarg{index} must satisfy &@math{_{8}}-L <= @funcarg{index} < L where L is the length of @funcarg{string} (see @func{string-length}). If @funcarg{index} is negative, it is relative to the end of @funcarg{string}.
-
-@c ((colon "Conforms to:") space RfiveRS "," space "SRFI-13," space "SRFI-17.")
-@noindent
-@b{Conforms to:} @RfiveRS{}, SRFI-13, SRFI-17.
-
-@c ((colon "Obsoletes:") space (bar "string-set!") space "of" space RfiveRS ".")
-@noindent
-@b{Obsoletes:} @func{string-set!} of @RfiveRS{}.
-
-@c ((colon "See also:") space (bar "reduce-index") ".")
-@noindent
-@b{See also:} @func{reduce-index}.
-
@node string-upcase!,,,
@section @t{string-upcase!}
@findex string-upcase!
@@ -4652,8 +4636,8 @@
(@func{symbol-ref} @funcarg{symbol} @funcarg{index}) @produces{} @funcarg{char}
-@c ("Equivalent" space "to" space "(" (bar "string-ref") space "(" (bar "symbol->string") space (slash "symbol") ")" space (slash "index") ")" space "but" space "more" space "efficient.")
-Equivalent to (@func{string-ref} (@func{symbol->string} @funcarg{symbol}) @funcarg{index}) but more efficient.
+@c ("Equivalent" space "to" space "(" (bar "ref") space "(" (bar "symbol->string") space (slash "symbol") ")" space (slash "index") ")" space "but" space "more" space "efficient.")
+Equivalent to (@func{ref} (@func{symbol->string} @funcarg{symbol}) @funcarg{index}) but more efficient.
@c ((colon "Conforms to:") space "Wisp" space "extension.")
@noindent
@@ -4980,9 +4964,9 @@
@noindent
@b{Conforms to:} @RfiveRS{}.
-@c ((colon "See also:") space (bar "make-vector") "," space (bar "vector-ref") "," space (bar "vector-length") "," space (bar "list") ".")
+@c ((colon "See also:") space (bar "make-vector") "," space (bar "vector-ref") "," space (bar "list") ".")
@noindent
-@b{See also:} @func{make-vector}, @func{vector-ref}, @func{vector-length}, @func{list}.
+@b{See also:} @func{make-vector}, @func{vector-ref}, @func{list}.
@node vector-copy,,,
@section @t{vector-copy}
Index: worth.vim
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/worth.vim,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- worth.vim 13 Sep 2002 16:34:57 -0000 1.15
+++ worth.vim 18 Sep 2002 20:54:22 -0000 1.16
@@ -32,36 +32,39 @@
syn keyword wispFunc d+ d- d>s dhexprint dig drop dup emit emit-digit
syn keyword wispFunc encode-digit fill get-type go-access-slot hexprint
syn keyword wispFunc lshift m+ max min mod move negate nip not octas or
-syn keyword wispFunc over rol ror rot rshift s>d sp! sp@ space square
-syn keyword wispFunc string-data swap sys.accept sys.access sys.alarm
-syn keyword wispFunc sys.bind sys.brk sys.chdir sys.chmod sys.chroot
-syn keyword wispFunc sys.close sys.connect sys.creat sys.dup sys.dup2
-syn keyword wispFunc sys.exit sys.fchdir sys.fchmod sys.fdatasync
-syn keyword wispFunc sys.flock sys.fork sys.fstat sys.fsync
-syn keyword wispFunc sys.ftruncate sys.getcwd sys.getegid sys.geteuid
-syn keyword wispFunc sys.getgid sys.getpeername sys.getpgid sys.getpgrp
-syn keyword wispFunc sys.getpid sys.getppid sys.getsid sys.getsockname
-syn keyword wispFunc sys.getuid sys.kill sys.link sys.listen sys.lseek
-syn keyword wispFunc sys.lstat sys.mkdir sys.mlock sys.mlockall
-syn keyword wispFunc sys.munlock sys.munlockall sys.nanosleep sys.nice
-syn keyword wispFunc sys.open sys.pause sys.pipe sys.read sys.rename
-syn keyword wispFunc sys.rmdir sys.setgid sys.setpgid sys.setregid
-syn keyword wispFunc sys.setreuid sys.setsid sys.setuid sys.shutdown
-syn keyword wispFunc sys.socket sys.stat sys.stime sys.swapoff
-syn keyword wispFunc sys.swapon sys.symlink sys.sync sys.time
-syn keyword wispFunc sys.truncate sys.umask sys.unlink sys.vhangup
-syn keyword wispFunc sys.waitpid sys.write sys.write-char tetra! tetra+
-syn keyword wispFunc tetra- tetra@ tetra@++ tetras tuck type u< u<= u>
-syn keyword wispFunc u>= wisp-bool-> wisp-epilogue wisp-prologue within
+syn keyword wispFunc over require-c8string rol ror rot rshift s>d sp!
+syn keyword wispFunc sp@ space square string-data string-length swap
+syn keyword wispFunc sys.accept sys.access sys.alarm sys.bind sys.brk
+syn keyword wispFunc sys.chdir sys.chmod sys.chroot sys.close
+syn keyword wispFunc sys.connect sys.creat sys.dup sys.dup2 sys.exit
+syn keyword wispFunc sys.fchdir sys.fchmod sys.fdatasync sys.flock
+syn keyword wispFunc sys.fork sys.fstat sys.fsync sys.ftruncate
+syn keyword wispFunc sys.getcwd sys.getegid sys.geteuid sys.getgid
+syn keyword wispFunc sys.getpeername sys.getpgid sys.getpgrp sys.getpid
+syn keyword wispFunc sys.getppid sys.getsid sys.getsockname sys.getuid
+syn keyword wispFunc sys.kill sys.link sys.listen sys.lseek sys.lstat
+syn keyword wispFunc sys.mkdir sys.mlock sys.mlockall sys.munlock
+syn keyword wispFunc sys.munlockall sys.nanosleep sys.nice sys.open
+syn keyword wispFunc sys.pause sys.pipe sys.read sys.rename sys.rmdir
+syn keyword wispFunc sys.setgid sys.setpgid sys.setregid sys.setreuid
+syn keyword wispFunc sys.setsid sys.setuid sys.shutdown sys.socket
+syn keyword wispFunc sys.stat sys.stime sys.swapoff sys.swapon
+syn keyword wispFunc sys.symlink sys.sync sys.time sys.truncate
+syn keyword wispFunc sys.umask sys.unlink sys.vhangup sys.waitpid
+syn keyword wispFunc sys.write sys.write-char tetra! tetra+ tetra-
+syn keyword wispFunc tetra@ tetra@++ tetras tuck type u< u<= u> u>=
+syn keyword wispFunc wisp-bool-> wisp-epilogue wisp-prologue within
syn keyword wispFunc wyde! wyde+ wyde- wyde@ wyde@++ wydes xor
" structure management
syn keyword wispLibFunc sizeof.struct-stat sizeof.struct-stat.aligned
-syn keyword wispLibFunc stat.atime@ stat.blksize@ stat.blocks@
-syn keyword wispLibFunc stat.ctime@ stat.dev@ stat.gid@ stat.ino@
-syn keyword wispLibFunc stat.mode@ stat.mtime@ stat.nlink@ stat.rdev@
-syn keyword wispLibFunc stat.size@ stat.uid@
+syn keyword wispLibFunc sizeof.struct-termios
+syn keyword wispLibFunc sizeof.struct-termios.aligned stat.atime@
+syn keyword wispLibFunc stat.blksize@ stat.blocks@ stat.ctime@
+syn keyword wispLibFunc stat.dev@ stat.gid@ stat.ino@ stat.mode@
+syn keyword wispLibFunc stat.mtime@ stat.nlink@ stat.rdev@ stat.size@
+syn keyword wispLibFunc stat.uid@
syn keyword worthConstant AF_APPLETALK AF_ASH AF_ATMPVC AF_ATMSVC
syn keyword worthConstant AF_AX25 AF_BLUETOOTH AF_BRIDGE AF_DECnet
@@ -99,7 +102,10 @@
syn keyword worthConstant PF_IRDA PF_KEY PF_LLC PF_NETBEUI PF_NETLINK
syn keyword worthConstant PF_NETROM PF_PACKET PF_PPPOX PF_ROSE
syn keyword worthConstant PF_SECURITY PF_SNA PF_UNIX PF_UNSPEC
-syn keyword worthConstant PF_WANPIPE PF_X25 WNOHANG WUNTRACED
+syn keyword worthConstant PF_WANPIPE PF_X25 TCGETS TCSETS TCSETSF
+syn keyword worthConstant TCSETSW VDISCARD VEOF VEOL VEOL2 VERASE VINTR
+syn keyword worthConstant VKILL VLNEXT VMIN VQUIT VREPRINT VSTART VSTOP
+syn keyword worthConstant VSUSP VSWTC VTIME VWERASE WNOHANG WUNTRACED
syn keyword worthRegister %ah %al %ax %bh %bl %bp %bx %ch %cl %cs %cx
syn keyword worthRegister %dh %di %dl %ds %dx %eax %ebp %ebx %ecx %edi
|
|
From: <di...@us...> - 2002-09-18 20:55:21
|
Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv25146/src
Modified Files:
essence.c
Log Message:
Dropped |sys:raw:ioctl|.
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.202
retrieving revision 1.203
diff -u -d -r1.202 -r1.203
--- essence.c 13 Sep 2002 16:34:58 -0000 1.202
+++ essence.c 18 Sep 2002 20:54:23 -0000 1.203
@@ -382,6 +382,8 @@
NN_sys_getppid,
NN_sys_getuid,
NN_sys_low_getcwd,
+ NN_sys_low_tcgetattr,
+ NN_sys_low_tcsetattr,
NN_sys_ns_chdir,
NN_sys_ns_chmod,
NN_sys_ns_close,
@@ -411,7 +413,6 @@
NN_sys_ns_waitpid,
NN_sys_ns_write,
NN_sys_raw_execve,
- NN_sys_raw_ioctl,
NN_sys_select,
NN_sys_sync,
NN_tenth,
@@ -446,8 +447,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 111,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 111,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 111,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 111,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 111,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 92,tc,V 1,c,jinf,V 28,dig,V 0,q,mha,l,V 1,l,V 110,tc,V 1,c,jinf,V 15,qi,W(procedure_huh),dig,V 1,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 0,dig,V 0,q,mha,l,V 1,l,V 153,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 154,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 92,tc,V 1,c,jinf,V 28,dig,V 0,q,mha,l,V 1,l,V 110,tc,V 1,c,jinf,V 15,qi,W(procedure_huh),dig,V 1,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 0,dig,V 0,q,mha,l,V 1,l,V 154,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 155,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 125,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 111,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};
@@ -490,7 +491,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 99,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 111,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 99,tc,V 2,c,q,mha,l,V 1,l,V 99,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 145,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 99,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 146,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 99,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 99,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 99,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 99,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};
@@ -521,7 +522,7 @@
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 124,tc,V 1,c,jif,V 13,dig,V 0,q,mha,l,V 1,l,V 124,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 145,tc,V 1,c,jif,V 13,dig,V 0,q,mha,l,V 1,l,V 145,tc,V 1,c,j,V 2,t,F,jif,V 87,dig,V 1,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 1,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+17,tc,V 2,c,jif,V 41,dig,V 1,q,dig,V 1,q,qi,I(0),dig,V 4,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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*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 124,tc,V 1,c,jif,V 13,dig,V 0,q,mha,l,V 1,l,V 124,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 146,tc,V 1,c,jif,V 13,dig,V 0,q,mha,l,V 1,l,V 146,tc,V 1,c,j,V 2,t,F,jif,V 87,dig,V 1,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 1,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+17,tc,V 2,c,jif,V 41,dig,V 1,q,dig,V 1,q,qi,I(0),dig,V 4,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 118,tc,V 2,c,q,dig,V 3,q,dig,V 3,q,mha,l,V 1,l,V 118,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};
@@ -540,9 +541,9 @@
void*Y96[]={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,mla,l,V 0,xri,Q,jinz,V 3,t,I(0),r,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 20,qi,I(0),mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,li,rvec+5,tc,V 2,c,r,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 1,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 0,mla,l,V 0,xri,Q,jiz,V 41,mla,l,V 1,q,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,li,rvec+5,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 -48,mla,l,V 1,r};
void*Y97[]={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,t,I(1),mlt,s,V 1,mla,l,V 0,xri,Q,jiz,V 41,mla,l,V 1,q,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,li,rvec+6,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 -48,mla,l,V 1,r};
void*Y98[]={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,mla,l,V 0,xri,Q,jinz,V 3,t,I(1),r,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 20,qi,I(1),mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,li,rvec+7,tc,V 2,c,r,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 1,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 0,mla,l,V 0,xri,Q,jiz,V 41,mla,l,V 1,q,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,li,rvec+7,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 -48,mla,l,V 1,r};
-void*Y99[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,dig,V 1,q,li,rvec+7,tc,V 2,c,q,mha,l,V 1,l,V 136,tc,V 1,c,ds,V 2,r};
-void*Y100[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,qi,I(0),dig,V 1,q,mha,l,V 1,l,V 139,tc,V 2,c,xri,I(0),jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r};
-void*Y101[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,qi,I(0),dig,V 1,q,mha,l,V 1,l,V 139,tc,V 2,c,xri,I(1),jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r};
+void*Y99[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,dig,V 1,q,li,rvec+7,tc,V 2,c,q,mha,l,V 1,l,V 137,tc,V 1,c,ds,V 2,r};
+void*Y100[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,qi,I(0),dig,V 1,q,mha,l,V 1,l,V 140,tc,V 2,c,xri,I(0),jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r};
+void*Y101[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,qi,I(0),dig,V 1,q,mha,l,V 1,l,V 140,tc,V 2,c,xri,I(1),jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r};
void*Y102[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 112,tc,V 1,c,q,li,rvec+10,tc,V 1,c,ct,l0,ds,V 1,r};
void*Y103[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 112,tc,V 1,c,q,li,rvec+10,tc,V 1,c,ct,l,V 1,ds,V 1,r};
void*Y104[]={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,jif,V 13,qi,I(0),dig,V 1,q,li,rvec+5,tc,V 2,c,ds,V 1,r,dig,V 0,ds,V 1,r};
@@ -562,19 +563,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 124,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 145,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 124,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 146,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 155,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 157,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 156,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 158,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 145,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 157,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 155,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 157,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 146,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 158,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 156,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 158,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 111,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 157,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 158,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 157,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 158,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};
@@ -584,7 +585,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 124,tc,V 1,c,jif,V 14,dig,V 0,q,mha,l,V 1,l,V 123,tc,V 1,c,ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 145,tc,V 1,c,jif,V 14,dig,V 0,q,mha,l,V 1,l,V 143,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 124,tc,V 1,c,jif,V 14,dig,V 0,q,mha,l,V 1,l,V 123,tc,V 1,c,ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 146,tc,V 1,c,jif,V 14,dig,V 0,q,mha,l,V 1,l,V 144,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};
@@ -606,7 +607,7 @@
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 145,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 103,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 146,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 103,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 103,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,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 118,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 99,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};
@@ -618,11 +619,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 155,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 156,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 155,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 156,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};
@@ -640,7 +641,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 124,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 125,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 111,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 125,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 155,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 125,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 156,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};
@@ -667,8 +668,8 @@
void*Y223[]={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,xri,Q,jinz,V 15,qi,W(begin),mla,l,V 2,q,mha,l,V 1,l,V 80,tc,V 2,c,r,t,B 220,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 1,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 1,qi,W(let),t,B 221,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 1,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,t,B 222,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 1,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mla,l,V 2,q,mha,l0,q,qi,W(append),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,q,mha,l,V 1,l,V 80,tc,V 2,c,r};
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 105,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 118,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,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 105,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 144,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 145,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 62,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,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 -68,ds,V 1,mla,l,V 1,q,mha,l,V 1,l,V 105,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 91,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,dig,V 1,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 144,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 -97,ds,V 1,mla,l,V 2,r};
+void*Y226[]={binc,&branch_EVM_invargc,hop,V 2,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,mlt,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 105,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 145,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 146,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 62,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,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 -68,ds,V 1,mla,l,V 1,q,mha,l,V 1,l,V 105,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 91,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,dig,V 1,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 145,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 -97,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 118,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};
@@ -677,17 +678,17 @@
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 111,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 111,tc,V 2,c,q,qi,F,mha,l,V 1,l,V 118,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 111,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 111,tc,V 2,c,q,mha,l,V 1,l,V 118,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 141,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*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 142,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 97,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 97,tc,V 1,c,jinf,V 15,qi,W(instance_huh),dig,V 1,q,mha,l,V 1,l,V 111,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 97,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 145,tc,V 1,c,jinf,V 15,qi,W(vector_huh),dig,V 1,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 0,ds,V 1,mla,l,V 0,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 118,tc,V 2,c,q,dig,V 0,q,mha,l,V 1,l,V 125,tc,V 1,c,jinf,V 15,qi,W(symbol_huh),dig,V 1,q,mha,l,V 1,l,V 111,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 158,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 103,tc,V 0,c,q,mla,l,V 0,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 118,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 111,tc,V 2,c,j,V 65,dig,V 1,q,mha,l,V 1,l,V 125,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 99,tc,V 2,c,q,mha,l,V 1,l,V 118,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 111,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 146,tc,V 1,c,jinf,V 15,qi,W(vector_huh),dig,V 1,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 0,ds,V 1,mla,l,V 0,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 118,tc,V 2,c,q,dig,V 0,q,mha,l,V 1,l,V 125,tc,V 1,c,jinf,V 15,qi,W(symbol_huh),dig,V 1,q,mha,l,V 1,l,V 111,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 159,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 103,tc,V 0,c,q,mla,l,V 0,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,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 118,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 111,tc,V 2,c,j,V 65,dig,V 1,q,mha,l,V 1,l,V 125,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 99,tc,V 2,c,q,mha,l,V 1,l,V 118,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 111,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 97,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,...
[truncated message content] |
|
From: <di...@us...> - 2002-09-18 20:55:21
|
Update of /cvsroot/wisp/wisp/tools
In directory usw-pr-cvs1:/tmp/cvs-serv25146/tools
Modified Files:
worth
Log Message:
Dropped |sys:raw:ioctl|.
Index: worth
===================================================================
RCS file: /cvsroot/wisp/wisp/tools/worth,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- worth 7 Sep 2002 22:03:56 -0000 1.29
+++ worth 18 Sep 2002 20:55:17 -0000 1.30
@@ -123,6 +123,8 @@
(case (car i)
((defun)
(add-code (worth->ia32 (cadr i) (cddr i))))
+ ((cells)
+ (add-code (cells->ia32 (cadr i) (cddr i))))
((native)
(add-code (worth->ia32 (string->symbol "N_$(cadr i)")
`(,',(nop)
@@ -180,6 +182,16 @@
(read-all=> process-piece
input))
(else (raise 'huh? input))))
+
+(define (cells->ia32 name body)
+ (if (word-class name)
+ (raise 'duplicate-word name))
+ (cons! known-procedure-box[] name)
+ (map (lambda (datum)
+ (cond
+ ((or (integer? datum) (symbol? datum))
+ (list 'tetra datum))
+ (else (signal 'cell? datum)))) body))
(define (worth->ia32 name body)
(if (word-class name)
|
|
From: <di...@us...> - 2002-09-18 20:55:21
|
Update of /cvsroot/wisp/wisp/src/native
In directory usw-pr-cvs1:/tmp/cvs-serv25146/src/native
Modified Files:
boxes.s boxes.wth records.nasm sys.s sys.wth sys_raw.nasm
Log Message:
Dropped |sys:raw:ioctl|.
Index: boxes.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/boxes.s,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- boxes.s 7 Sep 2002 22:02:43 -0000 1.7
+++ boxes.s 18 Sep 2002 20:55:17 -0000 1.8
@@ -51,3 +51,20 @@
.long record_constructor_body - (.+4)
.global N_make_box,NN_make_box
.equiv NN_make_box, N_make_box + 1
+.section .text
+.align 16
+N_box_huh:
+.byte 144,186
+.long RT_box
+.byte 233
+.long discriminator_body - (.+4)
+.global N_box_huh,NN_box_huh
+.equiv NN_box_huh, N_box_huh + 1
+.section .text
+.align 16
+RT_box:
+.long RT_record_type
+.byte 1,0,0,0
+.long NN_box_huh
+.long NN_box_ref
+.global RT_box
Index: boxes.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/boxes.wth,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- boxes.wth 26 Aug 2002 16:18:24 -0000 1.3
+++ boxes.wth 18 Sep 2002 20:55:17 -0000 1.4
@@ -8,8 +8,17 @@
(include wisptyp)
+(assemble RT_box
+ (tetra RT_record_type)
+ (tetra 1)
+ (tetra NN_box_huh)
+ (tetra NN_box_ref))
+
(extern RT_box)
(extern WB_undefined)
+
+(native box_huh
+ 'RT_box go-discriminate)
(native make_box
dup 0 = if UNDEF swap 1+ then
Index: records.nasm
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/records.nasm,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- records.nasm 26 Aug 2002 16:18:24 -0000 1.27
+++ records.nasm 18 Sep 2002 20:55:17 -0000 1.28
@@ -227,12 +227,6 @@
rt_slot_count 3
endrectype
-; The box type
-rectype box
- rt_slot_count 1
- rt_ref NN_box_ref
-endrectype
-
; FOR INTERNAL USE BY |make-record-type| ONLY!
; It is an important guarantee that it's safe to share record-type:s
; without need to fear undue influence.
Index: sys.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sys.s,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- sys.s 13 Sep 2002 16:35:33 -0000 1.7
+++ sys.s 18 Sep 2002 20:55:17 -0000 1.8
@@ -1,16 +1,79 @@
.section .text
.align 16
+N_sys_low_tcsetattr:
+.byte 144,81,131,249,3,15,132,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,88,91,89,83,80,104
+.long N_sys_low_tcsetattr.L1
+.byte 81,233
+.long decui$1 - (.+4)
+.byte 91,89,83,80,81,129,249
+.long WB_now
+.byte 15,133,11,0,0,0,88,104,2,84,0,0,233,60,0,0,0,88,80,61
+.long WB_drain
+.byte 15,133,11,0,0,0,88,104,3,84,0,0,233,36,0,0,0,88,80,61
+.long WB_flush
+.byte 15,133,11,0,0,0,88,104,4,84,0,0,233,12,0,0,0,88,104
+.long WB_unknown
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,91,89,137,207,131,231,3,83,80,81,81,133,255,15,132,8,0,0,0,88
+.byte 106,19,233,22,0,0,0,88,80,133,192,15,133,8,0,0,0,88,106,19,233,4,0
+.byte 0,0,88,139,0,80,88,61,9,0,0,0,15,132,12,0,0,0,88,104
+.long WB_c8string_huh
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,137,195,131,195,4,139,27,80,131,251,60,15,132,12,0,0,0,88,104
+.long WB_range
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,137,195,131,195,8,139,0,83,61,9,0,0,0,15,133,4,0,0,0,88,139,0
+.byte 80,88,137,194,88,137,193,88,137,195,184,54,0,0,0,205,128,80,233
+.long encsi$1 - (.+4)
+.byte 88,195
+.global N_sys_low_tcsetattr,NN_sys_low_tcsetattr,N_sys_low_tcsetattr.L1
+.equiv NN_sys_low_tcsetattr, N_sys_low_tcsetattr + 1
+.equiv N_sys_low_tcsetattr.L1, N_sys_low_tcsetattr + 36
+.section .text
+.align 16
+N_sys_low_tcgetattr:
+.byte 144,81,133,201,15,133,17,0,0,0,88,184,224,1,0,0,13,7,0,0,0,80,233
+.byte 185,0,0,0,88,80,61,2,0,0,0,15,132,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,88,91,80,104
+.long N_sys_low_tcgetattr.L3
+.byte 83,233
+.long decui$1 - (.+4)
+.byte 91,137,217,131,225,3,80,83,83,133,201,15,132,8,0,0,0,88,106,19,233
+.byte 22,0,0,0,88,80,133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0,88,139
+.byte 0,80,88,61,9,0,0,0,15,132,12,0,0,0,88,104
+.long WB_c8string_huh
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,137,195,131,195,4,139,27,80,131,251,60,15,132,12,0,0,0,88,104
+.long WB_range
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,137,195,131,195,8,139,0,83,61,9,0,0,0,15,133,4,0,0,0,88,139,0
+.byte 80,88,137,194,185,1,84,0,0,88,137,195,184,54,0,0,0,205,128,80,233
+.long encsi$1 - (.+4)
+.byte 88,195
+.global N_sys_low_tcgetattr,NN_sys_low_tcgetattr,N_sys_low_tcgetattr.L3
+.equiv NN_sys_low_tcgetattr, N_sys_low_tcgetattr + 1
+.equiv N_sys_low_tcgetattr.L3, N_sys_low_tcgetattr + 63
+.section .text
+.align 16
N_sys_low_getcwd:
.byte 144,81,131,249,1,15,132,8,0,0,0,88,137,193,233
.long N_signal_argcount - (.+4)
.byte 88,88,137,195,131,227,3,80,80,133,219,15,132,8,0,0,0,88,106,19,233
.byte 22,0,0,0,88,80,133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0,88,139
-.byte 0,80,88,80,61,9,0,0,0,15,132,13,0,0,0,88,88,104
+.byte 0,80,88,61,9,0,0,0,15,132,12,0,0,0,88,104
.long WB_c8string_huh
.byte 80,233
.long raise$2 - (.+4)
-.byte 88,88,137,195,131,195,8,137,193,139,9,80,83,131,249,9,15,133,4,0,0
-.byte 0,88,139,0,80,88,91,131,195,4,139,27,137,217,137,195,184,183,0,0,0
+.byte 88,137,195,131,195,8,137,193,139,9,80,83,131,249,9,15,133,4,0,0,0
+.byte 88,139,0,80,88,91,131,195,4,139,27,137,217,137,195,184,183,0,0,0
.byte 205,128,137,195,247,219,80,131,251,34,15,133,8,0,0,0,88,106,19,233
.byte 5,0,0,0,233
.long encsi$1 - (.+4)
Index: sys.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sys.wth,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- sys.wth 13 Sep 2002 16:35:33 -0000 1.8
+++ sys.wth 18 Sep 2002 20:55:17 -0000 1.9
@@ -12,10 +12,14 @@
(extern WB_c8string_huh)
(extern WB_cons_huh)
(extern WB_core)
+(extern WB_drain)
(extern WB_exit)
+(extern WB_flush)
+(extern WB_now)
(extern WB_range)
(extern WB_signal)
(extern WB_stop)
+(extern WB_unknown)
(extern cons$2)
(extern decsi$1)
(extern decui$1)
@@ -130,8 +134,7 @@
(native sys_ns_read dup 4 = argc drop ; ( fd buffer delta amount )
3 dig decui
- 3 dig dup get-type
- NC_C8STRING <> if 'WB_c8string_huh swap go-raise then cell+ cell@
+ 3 dig require-c8string string-length
3 dig decui 3 dig decui
; ( fd buffer delta amount *fd *length *delta *amount )
@@ -195,8 +198,7 @@
(native sys_ns_write dup 4 = argc drop ; ( fd buffer delta amount )
3 dig decui
- 3 dig dup get-type
- NC_C8STRING <> if 'WB_c8string_huh swap go-raise then cell+ cell@
+ 3 dig require-c8string string-length
3 dig decui 3 dig decui
; ( fd buffer delta amount *fd *length *delta *amount )
@@ -261,9 +263,46 @@
sizeof.struct-stat.aligned 1 deallocate)
(native sys_low_getcwd dup 1 = argc drop
- dup get-type dup NC_C8STRING <> if drop 'WB_c8string_huh swap go-raise
- then drop dup string-data swap cell+ cell@
+ require-c8string
+ dup string-data swap string-length
sys.getcwd dup
negate ERANGE = if drop FALSE else (flush) 'encsi$1 jump then)
+
+; |sys:low:tcgetattr| returns the required buffer size
+; if called with no arguments
+(native sys_low_tcgetattr
+ dup 0 = if
+ drop sizeof.struct-termios tag-fixnum
+ else
+ dup 2 = argc drop
+ swap decui swap require-c8string
+ dup string-length sizeof.struct-termios <> if
+ 'WB_range swap go-raise
+ else
+ string-data TCGETS swap sys.ioctl (flush) 'encsi$1 jump
+ then
+ then)
+
+(native sys_low_tcsetattr dup 3 = argc drop
+ rot decui rot
+ dup 'WB_now = if
+ drop TCSETS
+ else
+ dup 'WB_drain = if
+ drop TCSETSW
+ else
+ dup 'WB_flush = if
+ drop TCSETSF
+ else
+ 'WB_unknown swap go-raise
+ then
+ then
+ then
+ rot require-c8string
+ dup string-length sizeof.struct-termios <> if
+ 'WB_range swap go-raise
+ else
+ string-data sys.ioctl (flush) 'encsi$1 jump
+ then)
; vim: ft=worth
Index: sys_raw.nasm
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sys_raw.nasm,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -d -r1.49 -r1.50
--- sys_raw.nasm 13 Sep 2002 16:35:33 -0000 1.49
+++ sys_raw.nasm 18 Sep 2002 20:55:17 -0000 1.50
@@ -9,4 +9,3 @@
ident '@(#) $Id$'
native_syscall execve, 3
-native_syscall ioctl, 3
|
|
From: <di...@us...> - 2002-09-18 20:55:20
|
Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv25146/src/builtin
Modified Files:
dictbase.wisp modular.wisp sys.wisp
Log Message:
Dropped |sys:raw:ioctl|.
Index: dictbase.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/dictbase.wisp,v
retrieving revision 1.244
retrieving revision 1.245
diff -u -d -r1.244 -r1.245
--- dictbase.wisp 13 Sep 2002 16:35:32 -0000 1.244
+++ dictbase.wisp 18 Sep 2002 20:55:16 -0000 1.245
@@ -145,7 +145,8 @@
(local sys:getpid (asm NN_sys_getpid))
(local sys:getppid (asm NN_sys_getppid))
(local sys:getuid (asm NN_sys_getuid))
-(local sys:ns:waitpid (asm NN_sys_ns_waitpid))
+(local sys:low:tcgetattr (asm NN_sys_low_tcgetattr))
+(local sys:low:tcsetattr (asm NN_sys_low_tcsetattr))
(local sys:select (asm NN_sys_select))
(local sys:sync (asm NN_sys_sync))
(local truncate (asm NN_truncate))
Index: modular.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/modular.wisp,v
retrieving revision 1.65
retrieving revision 1.66
diff -u -d -r1.65 -r1.66
--- modular.wisp 13 Sep 2002 16:35:32 -0000 1.65
+++ modular.wisp 18 Sep 2002 20:55:16 -0000 1.66
@@ -59,9 +59,9 @@
sys:getcwd sys:getegid sys:geteuid sys:getgid sys:getpgid
sys:getpgrp sys:getpid sys:getppid sys:getuid sys:kill
sys:link sys:listen sys:lseek sys:lstat sys:mkdir
- sys:nanosleep sys:ns:waitpid sys:open sys:pipe sys:read
- sys:rename sys:select sys:setpgid sys:setpgrp sys:setsid
- sys:stat sys:symlink sys:sync sys:tcgetattr sys:tcsetattr
+ sys:nanosleep sys:open sys:pipe sys:read sys:rename
+ sys:select sys:setpgid sys:setpgrp sys:setsid sys:stat
+ sys:symlink sys:sync sys:tcgetattr sys:tcsetattr
sys:truncate sys:unlink sys:waitpid sys:write))))))
(define modules ; a box containing an alist
Index: sys.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/sys.wisp,v
retrieving revision 1.114
retrieving revision 1.115
diff -u -d -r1.114 -r1.115
--- sys.wisp 13 Sep 2002 16:35:32 -0000 1.114
+++ sys.wisp 18 Sep 2002 20:55:16 -0000 1.115
@@ -118,13 +118,10 @@
(sys:close fd)
entries)))
-; This is specific to Linux and ia32.
+; FIXME: This is specific to Linux and ia32.
(local (sys:tcgetattr fd)
- (my buffer (make-string (system-constant 'size-of 'struct 'termios))
- (my res (encsi ((asm NN_sys_raw_ioctl) (decui fd)
- (decui (system-constant
- 'ioctl 'TCGETS))
- (asm buffer (l . 2))))
+ (my buffer (make-c8string (sys:low:tcgetattr))
+ (my res (sys:low:tcgetattr fd buffer)
(cond
((zero? res)
(list
@@ -163,16 +160,10 @@
(pack-le-integer lflag 4)
(integer->char line)
cc)
- (my res (encsi ((asm NN_sys_raw_ioctl)
- (decui fd)
- (decui
- (system-constant
- 'ioctl (case time
- ((now) 'TCSETS)
- ((drain) 'TCSETSW)
- ((flush) 'TCSETSF)
- (else (raise 'unknown time)))))
- (asm buffer (l . 2))))
+ (set! buffer (string-append
+ buffer (make-c8string (- (sys:low:tcgetattr)
+ (length buffer)))))
+ (my res (sys:low:tcsetattr fd time buffer)
(if (not (zero? res))
(signal-system-error res `(sys:tcsetattr ,fd)))))))
|
|
From: <di...@us...> - 2002-09-13 16:36:01
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv10070/modules
Modified Files:
linux.wrti
Log Message:
Dropped |sys:raw:read|, |sys:raw:write|, |sys:raw:open|, and |sys:raw:waitpid| in favour of the new corresponding low-level non-signalling procedures.
Index: linux.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/linux.wrti,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- linux.wrti 7 Sep 2002 22:03:51 -0000 1.16
+++ linux.wrti 13 Sep 2002 16:34:57 -0000 1.17
@@ -16,15 +16,7 @@
(macro sys.exit (->reg 0 %ebx) 1 \sys ,(\skip))
- (macro sys.write
- (->reg 0 %edx)
- (->reg 1 %ecx)
- (->reg 2 %ebx)
- (register %eax)
- 4 \sys
- nip nip nip)
-
- (macro sys.write-char
+ (macro sys.write-char ; ( fd char )
(flush)
,(pop %ecx)
,(pop %ebx)
@@ -49,6 +41,9 @@
then)
(macro sys.fork (conform) 2 \sys (believe %eax))
+ (macro sys.read (conform %ebx %ecx %edx) 3 \sys (believe %eax))
+ (macro sys.write (conform %ebx %ecx %edx) 4 \sys (believe %eax))
+ (macro sys.open (conform %ebx %ecx %edx) 5 \sys (believe %eax))
(macro sys.close (conform %ebx) 6 \sys (believe %eax))
; |sys.waitpid| takes (pid options) and
; returns (status pid) or (-errno) or (0)
|
