wisp-cvs — Automatic announcements of commits to the CVS repository

[Wisp-cvs] wisp/src/builtin filing.wisp,1.106,1.107 records.wisp,1.7,1.8

[<di...@us...>]

Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv32183/src/builtin

Modified Files:
	filing.wisp records.wisp 
Log Message:
Added the |read-char| and |write-char| dispatcher slots to record types.

Index: filing.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/filing.wisp,v
retrieving revision 1.106
retrieving revision 1.107
diff -u -d -r1.106 -r1.107
--- filing.wisp	7 Sep 2002 22:03:56 -0000	1.106
+++ filing.wisp	18 Sep 2002 21:10:02 -0000	1.107
@@ -115,8 +115,8 @@
                         '#f))
                     (else ; got some--analyse this
                       (loop len))))))))))
-  (friend (read-char port (block? #t))
-    (my ch (peek-char port block?)
+  (friend (%read-char port)
+    (my ch (peek-char port #t)
       (if (char? ch)
         (incr! start))
       ch))
@@ -219,6 +219,11 @@
   (friend (file-descriptor port)
     fd))
 
+(define (read-char (port *stdin*))
+  (if (instance? port)
+    (%read-char port)
+    (((asm NN_pr_record_type_read_char_slot) (type-of port)) port)))
+
 (define (construct-filename dir base)
   (cond
     ((not dir)            base)
@@ -432,8 +437,27 @@
   (write object port)
   (newline port))
 
-(define (write-char object (port *stdout*))
-  (write-string (string object) port))
+(define (read-char (port *stdin*))
+  (if (instance? port)
+    (%read-char port)
+    (((asm NN_pr_record_type_read_char_slot) (type-of port)) port)))
+
+; Note that Scheme's |write-char| takes the port argument *last*;
+; most likely because it's been historically easier to implement
+; optional arguments at the end of the argument list.  This does
+; not work well with the idea that the object argument (upon which
+; dispatching is decided) should be the first, so we're going to
+; change it.  During the conversion period, *both* orderings are
+; allowed.
+(define (write-char (port *stdout*) object)
+  (if (char? port)
+    (my x port
+      (set! port object)
+      (set! object x)))
+  (if (instance? port)
+    (write-string (string object) port)
+    (((asm NN_pr_record_type_write_char_slot) (type-of port))
+      port object)))
 
 (define (newline (port *stdout*))
   (write-char #\newline port)

Index: records.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/records.wisp,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- records.wisp	18 Sep 2002 21:09:00 -0000	1.7
+++ records.wisp	18 Sep 2002 21:10:02 -0000	1.8
@@ -11,20 +11,28 @@
     (let ((record-type (car data))
           (ref-hook #f)
           (length-hook #f)
-          (new-hook #f))
+          (new-hook #f)
+          (read-char-hook #f)
+          (write-char-hook #f))
       (while (not (null? hooks))
         (my (hook-name hook-generator . rest-hooks) hooks
           (set! hooks rest-hooks)
           (case hook-name
-            ((ref)    (if ref-hook
-                        (raise 'duplicate-ref-hook hook-generator)
-                        (set! ref-hook (apply hook-generator data))))
-            ((length) (if length-hook
-                        (raise 'duplicate-length-hook hook-generator)
-                        (set! length-hook (apply hook-generator data))))
-            ((new)    (if new-hook
-                        (raise 'duplicate-new-hook hook-generator)
-                        (set! new-hook (apply hook-generator data))))
+            ((ref)        (if ref-hook
+                            (raise 'duplicate-ref-hook hook-generator)
+                            (set! ref-hook (apply hook-generator data))))
+            ((length)     (if length-hook
+                            (raise 'duplicate-length-hook hook-generator)
+                            (set! length-hook (apply hook-generator data))))
+            ((new)        (if new-hook
+                            (raise 'duplicate-new-hook hook-generator)
+                            (set! new-hook (apply hook-generator data))))
+            ((read-char)  (if read-char-hook
+                            (raise 'duplicate-read-char-hook hook-generator)
+                            (set! read-char-hook (apply hook-generator data))))
+            ((write-char) (if write-char-hook
+                            (raise 'duplicate-write-char-hook hook-generator)
+                            (set! write-char-hook (apply hook-generator data))))
             (else (raise 'record-hook-name? hook-name)))))
       (if ref-hook
         (set! ((asm NN_pr_record_type_ref_slot) record-type)
@@ -34,5 +42,11 @@
           length-hook))
       (if new-hook
         (set! ((asm NN_pr_record_type_new_slot) record-type)
-          new-hook)))
+          new-hook))
+      (if read-char-hook
+        (set! ((asm NN_pr_record_type_read_char_slot) record-type)
+          read-char-hook))
+      (if write-char-hook
+        (set! ((asm NN_pr_record_type_write_char_slot) record-type)
+          write-char-hook)))
     data))

[Wisp-cvs] wisp/modules builtin.wid,1.178,1.179 collectors.wim,1.8,1.9 frer.wim,1.11,1.12 wisptyp.wrti,1.15,1.16

[<di...@us...>]

Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv31529/modules

Modified Files:
	builtin.wid collectors.wim frer.wim wisptyp.wrti 
Log Message:
Defined |new| dispatchers for |<c16string>|, |<box>|, and |<collector>|.

Index: builtin.wid
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/builtin.wid,v
retrieving revision 1.178
retrieving revision 1.179
diff -u -d -r1.178 -r1.179
--- builtin.wid	18 Sep 2002 21:06:19 -0000	1.178
+++ builtin.wid	18 Sep 2002 21:08:50 -0000	1.179
@@ -1940,12 +1940,13 @@
  the results will be used as the actual dispatch points. Currently,
  the following dispatch names are recognized:
 
-   * ~ref~;
-   * ~length~.
+   * ~length~;
+   * ~new~;
+   * ~ref~.
 
  :Conforms to: Wisp extension.
 
- :See also: |ref|, |length|, |record-type-discriminator|.
+ :See also: |length|, |new|, |ref|, |record-type-discriminator|.
 
 
 make-string

Index: collectors.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/collectors.wim,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- collectors.wim	26 Aug 2002 16:18:18 -0000	1.8
+++ collectors.wim	18 Sep 2002 21:08:51 -0000	1.9
@@ -9,7 +9,7 @@
 (module collectors)
 
 (export
-  <collector> collector->vector collector-find/add make-collector)
+  <collector> collector->vector collector-find/add)
 
 ; FIXME: This code is not thread-safe.
 
@@ -22,10 +22,11 @@
                ((not (integer? index)) (raise 'integer? index))
                ((assv index
                       (%coll-length))  => cdr)
-               (else                   (raise 'range index)))))))
-
-(define (make-collector (comparer equal?))
-  (%make-coll comparer '() 0))
+               (else                   (raise 'range index)))))
+    'new (lambda (<collector> %make-coll %coll-obj=?
+                              %coll-data %coll-length)
+           (lambda ((comparer equal?))
+             (%make-coll comparer '() 0)))))
 
 (define (collector-find/add collector item)
   (my c (rassoc item (%coll-data collector) (%coll-obj=? collector))

Index: frer.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/frer.wim,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- frer.wim	7 Sep 2002 21:58:20 -0000	1.11
+++ frer.wim	18 Sep 2002 21:08:51 -0000	1.12
@@ -75,7 +75,7 @@
           (else  (raise 'frerrable-structure? x)))))))
 
 (define (structure->frer x)
-  (my symbols (make-collector eq?)
+  (my symbols (new <collector> eq?)
     (my struc (%structure->frer x symbols)
       (my const (%structure->frer (collector->vector symbols) #f)
         (string-append "FRER\u[0]" const #\U+1B struc #\U+00)))))

Index: wisptyp.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/wisptyp.wrti,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- wisptyp.wrti	18 Sep 2002 21:07:35 -0000	1.15
+++ wisptyp.wrti	18 Sep 2002 21:08:51 -0000	1.16
@@ -63,6 +63,9 @@
   (macro string-data
     dup 2 cells + swap cell@ NC_C8STRING = if cell@ then)
 
+  (macro require-record-type
+    dup get-type 'RT_record_type <> if 'WB_record_type_huh swap go-raise then)
+
   ;; Unique node pointers
 
   (macro NULL 0)

[Wisp-cvs] wisp/doc wisp.vim,1.227,1.228 worth.vim,1.20,1.21

[<di...@us...>]

Update of /cvsroot/wisp/wisp/doc
In directory usw-pr-cvs1:/tmp/cvs-serv31529/doc

Modified Files:
	wisp.vim worth.vim 
Log Message:
Defined |new| dispatchers for |<c16string>|, |<box>|, and |<collector>|.

Index: wisp.vim
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/wisp.vim,v
retrieving revision 1.227
retrieving revision 1.228
diff -u -d -r1.227 -r1.228
--- wisp.vim	18 Sep 2002 21:06:19 -0000	1.227
+++ wisp.vim	18 Sep 2002 21:08:50 -0000	1.228
@@ -117,21 +117,20 @@
 syn keyword wispFunc * + - / /= < << <= = > >= >> abs address-of
 syn keyword wispFunc alist->dict alist->vector alist-copy analyse angle
 syn keyword wispFunc append append-reverse apply assert-object-type
-syn keyword wispFunc assoc assq assv atom? big-integer? bit?
-syn keyword wispFunc bitstring-ref boolean? box-empty! box-empty?
-syn keyword wispFunc box-ref box? broketed? builtin-modules c16string?
-syn keyword wispFunc c8string? caaaar caaadr caaar caadar caaddr caadr
-syn keyword wispFunc caar cadaar cadadr cadar caddar cadddr caddr cadr
-syn keyword wispFunc call-with-in/out-files call-with-input-file
-syn keyword wispFunc call-with-output-file car car* cardinal? catch
-syn keyword wispFunc cdaaar cdaadr cdaar cdadar cdaddr cdadr cdar
-syn keyword wispFunc cddaar cddadr cddar cdddar cddddr cdddr cddr cdr
-syn keyword wispFunc cdr* ceiling cfmakeraw char->control-char
-syn keyword wispFunc char->integer char-and char-bit-clear char-bit-set
-syn keyword wispFunc char-bit-toggle char-bit? char-decimal?
-syn keyword wispFunc char-digit? char-downcase char-hexadecimal?
-syn keyword wispFunc char-letter-modifier? char-letter?
-syn keyword wispFunc char-lower-case? char-mirrored?
+syn keyword wispFunc assoc assq assv atom? big-integer? bit? boolean?
+syn keyword wispFunc box-empty! box-empty? box-ref box? broketed?
+syn keyword wispFunc builtin-modules c16string? c8string? caaaar caaadr
+syn keyword wispFunc caaar caadar caaddr caadr caar cadaar cadadr cadar
+syn keyword wispFunc caddar cadddr caddr cadr call-with-in/out-files
+syn keyword wispFunc call-with-input-file call-with-output-file car
+syn keyword wispFunc car* cardinal? catch cdaaar cdaadr cdaar cdadar
+syn keyword wispFunc cdaddr cdadr cdar cddaar cddadr cddar cdddar
+syn keyword wispFunc cddddr cdddr cddr cdr cdr* ceiling cfmakeraw
+syn keyword wispFunc char->control-char char->integer char-and
+syn keyword wispFunc char-bit-clear char-bit-set char-bit-toggle
+syn keyword wispFunc char-bit? char-decimal? char-digit? char-downcase
+syn keyword wispFunc char-hexadecimal? char-letter-modifier?
+syn keyword wispFunc char-letter? char-lower-case? char-mirrored?
 syn keyword wispFunc char-number-letter? char-octal? char-or char-order
 syn keyword wispFunc char-punctuation-close?
 syn keyword wispFunc char-punctuation-connector? char-punctuation-dash?
@@ -174,7 +173,7 @@
 syn keyword wispFunc make-record-type make-rectangular make-string
 syn keyword wispFunc make-vector map max meaning member memq memv min
 syn keyword wispFunc modify-bit module-macro-ref module-ref modulo
-syn keyword wispFunc native? negative? newline ninth nop not
+syn keyword wispFunc native? negative? new newline ninth nop not
 syn keyword wispFunc null-environment null-list? null? number->string
 syn keyword wispFunc number? numerator nybble? nyp? odd?
 syn keyword wispFunc open-input-file open-output-file order->dict

Index: worth.vim
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/worth.vim,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- worth.vim	18 Sep 2002 21:07:35 -0000	1.20
+++ worth.vim	18 Sep 2002 21:08:50 -0000	1.21
@@ -33,32 +33,32 @@
 syn keyword wispFunc emit emit-digit encode-digit fill get-type
 syn keyword wispFunc go-access-slot hexprint lshift m+ max min mod move
 syn keyword wispFunc negate nip not octas or over require-c8string
-syn keyword wispFunc require-string-length require-vector rol ror rot
-syn keyword wispFunc rshift s>d sp! sp@ space square string-data
-syn keyword wispFunc string-length 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.execve sys.exit sys.fchdir sys.fchmod
-syn keyword wispFunc sys.fdatasync sys.flock sys.fork sys.fstat
-syn keyword wispFunc sys.fsync sys.ftruncate sys.getcwd sys.getdents
-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.ioctl
-syn keyword wispFunc sys.ioctl2 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.select sys.setgid sys.setpgid
-syn keyword wispFunc sys.setregid sys.setreuid sys.setsid sys.setuid
-syn keyword wispFunc sys.shutdown sys.socket sys.stat sys.stime
-syn keyword wispFunc sys.swapoff sys.swapon sys.symlink sys.sync
-syn keyword wispFunc sys.time sys.truncate sys.umask sys.unlink
-syn keyword wispFunc sys.vhangup sys.waitpid sys.write sys.write-char
-syn keyword wispFunc tetra! tetra+ tetra- tetra@ tetra@++ tetrafill
-syn keyword wispFunc tetras tuck type u< u<= u> u>= vector-data
-syn keyword wispFunc vector-length wisp-bool-> wisp-epilogue
-syn keyword wispFunc wisp-prologue within wyde! wyde+ wyde- wyde@
-syn keyword wispFunc wyde@++ wydes xor
+syn keyword wispFunc require-record-type require-string-length
+syn keyword wispFunc require-vector rol ror rot rshift s>d sp! sp@
+syn keyword wispFunc 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.execve
+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.getdents sys.getegid
+syn keyword wispFunc sys.geteuid sys.getgid sys.getpeername sys.getpgid
+syn keyword wispFunc sys.getpgrp sys.getpid sys.getppid sys.getsid
+syn keyword wispFunc sys.getsockname sys.getuid sys.ioctl sys.ioctl2
+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.select 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@++ tetrafill tetras tuck type
+syn keyword wispFunc u< u<= u> u>= vector-data vector-length
+syn keyword wispFunc wisp-bool-> wisp-epilogue wisp-prologue within
+syn keyword wispFunc wyde! wyde+ wyde- wyde@ wyde@++ wydes xor
 
 " structure management
 

[Wisp-cvs] wisp/src boot.wisp,1.258,1.259 essence.c,1.216,1.217 wordlist.txt,1.578,1.579

[<di...@us...>]

Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv31529/src

Modified Files:
	boot.wisp essence.c wordlist.txt 
Log Message:
Defined |new| dispatchers for |<c16string>|, |<box>|, and |<collector>|.

Index: boot.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/boot.wisp,v
retrieving revision 1.258
retrieving revision 1.259
diff -u -d -r1.258 -r1.259
--- boot.wisp	18 Sep 2002 21:02:56 -0000	1.258
+++ boot.wisp	18 Sep 2002 21:08:51 -0000	1.259
@@ -190,9 +190,9 @@
   (if (not (eq? rnc 'PROCEDURE))
     (raise 'invalid-root-node-category rnc)))
 
-(define *cvec* (make-collector))
-(define *cons-vec* (make-collector))
-(define *class-vec* (make-collector))
+(define *cvec* (new <collector>))
+(define *cons-vec* (new <collector>))
+(define *class-vec* (new <collector>))
 (define *symbols* (make-dict))
 
 (define (ptc datum)

Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.216
retrieving revision 1.217
diff -u -d -r1.216 -r1.217
--- essence.c	18 Sep 2002 21:07:35 -0000	1.216
+++ essence.c	18 Sep 2002 21:08:51 -0000	1.217
@@ -326,9 +326,11 @@
     NN_mk_e2f,
     NN_modulo,
     NN_native_huh,
+    NN_new,
     NN_ninth,
     NN_pr_make_record_type,
     NN_pr_record_type_length_slot,
+    NN_pr_record_type_new_slot,
     NN_pr_record_type_ref_slot,
     NN_printeger2string,
     NN_prlshl,
@@ -425,13 +427,13 @@
 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.
-void*Y0[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 79,tc,V 1,c,jinf,V 16,qi,W(cons_huh),dig,V 1,q,mha,l,V 1,l,V 109,tc,V 2,c,ds,V 1,r,dig,V 0,ds,V 1,r};
-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 109,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 85,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 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 109,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 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 109,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 156,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 40,dig,V 2,jif,V 16,qi,W(duplicate_ref_hook),mla,l,V 4,q,mha,l,V 1,l,V 109,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 2,j,V 60,dig,V 0,xri,W(length),jinz,V 40,dig,V 1,jif,V 16,qi,W(duplicate_length_hook),mla,l,V 4,q,mha,l,V 1,l,V 109,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 1,j,V 14,qi,W(record_hook_name_huh),mla,l,V 3,q,mha,l,V 1,l,V 109,tc,V 2,c,ds,V 1,j,V -163,dig,V 1,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,dig,V 0,jif,V 13,dig,V 2,q,dig,V 1,q,t,&NN_pr_record_type_length_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 90,tc,V 1,c,jinf,V 28,dig,V 0,q,mha,l,V 1,l,V 108,tc,V 1,c,jinf,V 15,qi,W(procedure_huh),dig,V 1,q,mha,l,V 1,l,V 109,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*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 79,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 78,tc,V 2,c,q,mla,l,V 2,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 120,tc,V 1,c,jif,V 42,mla,l,V 2,q,mha,l,V 1,l,V 79,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 78,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 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,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 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 109,tc,V 2,c,r};
+void*Y0[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 79,tc,V 1,c,jinf,V 16,qi,W(cons_huh),dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 1,r,dig,V 0,ds,V 1,r};
+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 110,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 85,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 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 110,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 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 110,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,t,F,q,mla,l,V 1,xri,Q,jiz,V 202,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 40,dig,V 3,jif,V 16,qi,W(duplicate_ref_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 3,j,V 106,dig,V 0,xri,W(length),jinz,V 40,dig,V 2,jif,V 16,qi,W(duplicate_length_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 2,j,V 60,dig,V 0,xri,W(new),jinz,V 40,dig,V 1,jif,V 16,qi,W(duplicate_new_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 1,j,V 14,qi,W(record_hook_name_huh),mla,l,V 3,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 1,j,V -209,dig,V 2,jif,V 13,dig,V 3,q,dig,V 3,q,t,&NN_pr_record_type_ref_slot,tc,V -2,c,j,V 0,dig,V 1,jif,V 13,dig,V 3,q,dig,V 2,q,t,&NN_pr_record_type_length_slot,tc,V -2,c,j,V 0,dig,V 0,jif,V 13,dig,V 3,q,dig,V 1,q,t,&NN_pr_record_type_new_slot,tc,V -2,c,j,V 0,ds,V 1,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 90,tc,V 1,c,jinf,V 28,dig,V 0,q,mha,l,V 1,l,V 108,tc,V 1,c,jinf,V 15,qi,W(procedure_huh),dig,V 1,q,mha,l,V 1,l,V 110,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 79,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 78,tc,V 2,c,q,mla,l,V 2,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 121,tc,V 1,c,jif,V 42,mla,l,V 2,q,mha,l,V 1,l,V 79,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 78,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 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,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 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 110,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 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(raise),qi,W(quote),mla,l,V 2,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(quote),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(begin),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r};
 void*Y10[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 3,binc,&branch_EVM_invargca,mac,mca,subc,V 5,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 3,jizc,V 15,mac,p,s,V 3,p,s,V 2,p,s,V 1,p,s,V 0,j,V 101,mac,p,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,qi,I(-1),mha,l0,q,qi,W(symbol_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,CH('?'),mha,l0,q,qi,W(charEQ_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 5,mla,l,V 1,j,V 47,mla,l,V 1,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 9,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string2symbol),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,s,V 3,mla,l,V 1,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 9,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string2symbol),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 4,qi,W(my),qi,W(val),mla,l,V 2,q,qi,W(if),qi,W(not),mla,l,V 4,q,qi,W(val),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(raise),qi,W(quote),mla,l,V 3,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(val),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(begin),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r};
@@ -464,21 +466,21 @@
 void*Y37[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,qi,F,dig,V 2,q,dig,V 2,q,mha,l0,q,qi,W(compile),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,tc,V 0,c,ds,V 2,r};
 void*Y38[]={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 13,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,ds,V 1,r,qi,W(OR),dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,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 97,tc,V 3,c,ds,V 1,r};
 void*Y39[]={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 3,t,F,r,t,Q,mlt,s,V 2,t,B 38,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*Y40[]={binc,&branch_EVM_invargc,hop,V 3,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 13,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,ds,V 1,r,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 51,dig,V 0,q,mha,l0,q,qi,W(cadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,W(EQGT),jinz,V 27,dig,V 0,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 79,tc,V 1,c,j,V 2,t,F,j,V 2,t,F,jif,V 302,dig,V 0,q,mha,l0,q,qi,W(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,qi,W(my),qi,W(DOTl),dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(if),qi,W(DOTl),qi,W(and),mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 1,l,V 120,tc,V 1,c,jif,V 23,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,xri,W(DOTl),jiz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 13,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,j,V 44,qi,W(hide),qi,W(DOTl),mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(quote),qi,F,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 1,r,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 51,dig,V 0,q,mha,l0,q,qi,W(cadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,W(2),jinz,V 27,dig,V 0,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 79,tc,V 1,c,j,V 2,t,F,j,V 2,t,F,jif,V 302,dig,V 0,q,mha,l0,q,qi,W(caddr),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(flatten),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 2,qi,W(my),qi,W(DOTl),dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(if),qi,W(DOTl),qi,W(my),mla,l,V 1,q,qi,W(DOTl),qi,W(hide),qi,W(hideTIMES),mla,l,V 2,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(and),dig,V 11,q,mha,l0,q,qi,W(cdddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(quote),qi,F,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 1,r,qi,W(if),dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(and),dig,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,F,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 1,r};
+void*Y40[]={binc,&branch_EVM_invargc,hop,V 3,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 13,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,ds,V 1,r,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 51,dig,V 0,q,mha,l0,q,qi,W(cadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,W(EQGT),jinz,V 27,dig,V 0,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 79,tc,V 1,c,j,V 2,t,F,j,V 2,t,F,jif,V 302,dig,V 0,q,mha,l0,q,qi,W(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,qi,W(my),qi,W(DOTl),dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(if),qi,W(DOTl),qi,W(and),mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 1,l,V 121,tc,V 1,c,jif,V 23,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,xri,W(DOTl),jiz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 13,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,j,V 44,qi,W(hide),qi,W(DOTl),mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(quote),qi,F,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 1,r,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 51,dig,V 0,q,mha,l0,q,qi,W(cadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,W(2),jinz,V 27,dig,V 0,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 79,tc,V 1,c,j,V 2,t,F,j,V 2,t,F,jif,V 302,dig,V 0,q,mha,l0,q,qi,W(caddr),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(flatten),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 2,qi,W(my),qi,W(DOTl),dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(if),qi,W(DOTl),qi,W(my),mla,l,V 1,q,qi,W(DOTl),qi,W(hide),qi,W(hideTIMES),mla,l,V 2,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(and),dig,V 11,q,mha,l0,q,qi,W(cdddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(quote),qi,F,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 1,r,qi,W(if),dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(and),dig,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,F,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 1,r};
 void*Y41[]={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 3,t,T,r,t,Q,mlt,s,V 2,t,B 40,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*Y42[]={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 97,tc,V 1,c,mlt,s,V 0,mha,l,V 2,l,V 2,q,mla,l,V 0,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 0,mat,mha,l,V 2,st,V 2,t,Z,ds,V 1,r};
 void*Y43[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,qi,Q,mha,l,V 1,l,V 97,tc,V 1,c,mlt,s,V 1,mla,l,V 1,mlt,s,V 2,t,B 42,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 0,tc,V 1,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,r};
 void*Y44[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 36,mha,l,V 2,l,V 2,q,dig,V 1,q,mha,l,V 1,l,V 97,tc,V 1,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mha,l,V 2,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,dig,V 1,q,mha,l0,q,qi,W(car),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r};
-void*Y45[]={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,xri,Q,jinz,V 4,t,T,j,V 2,t,F,jinf,V 52,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 22,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 2,l,V 3,tc,V 1,c,j,V 14,qi,W(argcount),mla,l,V 0,q,mha,l,V 1,l,V 109,tc,V 2,c,mha,l,V 2,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jiz,V 23,mha,l,V 2,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mat,mha,l,V 2,st,V 2,t,Z,r,t,Z,r};
+void*Y45[]={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,xri,Q,jinz,V 4,t,T,j,V 2,t,F,jinf,V 52,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 22,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 2,l,V 3,tc,V 1,c,j,V 14,qi,W(argcount),mla,l,V 0,q,mha,l,V 1,l,V 110,tc,V 2,c,mha,l,V 2,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jiz,V 23,mha,l,V 2,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mat,mha,l,V 2,st,V 2,t,Z,r,t,Z,r};
 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 97,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 78,tc,V 2,c,ds,V 2,r,dig,V 1,q,dig,V 1,q,mha,l,V 1,l,V 109,tc,V 2,c,ds,V 2,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 78,tc,V 2,c,ds,V 2,r,dig,V 1,q,dig,V 1,q,mha,l,V 1,l,V 110,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 24,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 97,tc,V 2,c,q,mha,l,V 1,l,V 97,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 79,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 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 25,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 28,tc,V 3,c,r,qi,W(quote),mla,l,V 1,q,mha,l,V 1,l,V 97,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 79,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 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 25,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 28,tc,V 3,c,r,qi,W(quote),mla,l,V 1,q,mha,l,V 1,l,V 97,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 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,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 79,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 79,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 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,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 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(quasiquote),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,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 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(quasiquote),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 1,r,qi,W(quote),dig,V 1,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,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 79,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 79,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 79,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 79,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 78,tc,V 2,c,q,mha,l,V 1,l,V 97,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 78,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 78,tc,V 2,c,q,mha,l,V 1,l,V 97,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 78,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 97,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 78,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 78,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 78,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 78,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 78,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 78,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};
 void*Y53[]={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,mha,l0,q,qi,W(second),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 1,r};
-void*Y54[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 3,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 3,p,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l0,q,qi,W(list_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,F,jiz,V 21,mla,l,V 2,q,mha,l0,q,qi,W(list_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,F,jinz,V 53,qi,W(syntax_error),qi,W(do),mla,l,V 1,q,mla,l,V 2,q,mla,l,V 3,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 109,tc,V 2,c,j,V 0,mla,l,V 1,q,dig,V 0,xri,Q,jiz,V 117,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(list_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,F,jiz,V 49,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 0,xri,I(2),jinz,V 4,t,T,j,V 2,t,F,jinf,V 12,dig,V 0,xri,I(3),jinz,V 4,t,T,j,V 2,t,F,ds,V 1,xri,F,jinz,V 15,qi,W(erroneous_binding),dig,V 2,q,mha,l,V 1,l,V 109,tc,V 2,c,j,V 0,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 -123,ds,V 1,qi,W(let),t,B 53,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,qi,W(while),qi,W(not),mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mla,l,V 3,q,t,Q,mlt,s,V 4,mla,l,V 1,q,dig,V 0,xri,Q,jiz,V 151,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(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,Q,jiz,V 98,qi,W(set_bang),dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(hold),dig,V 4,q,mha,l0,q,qi,W(caddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mla,l,V 4,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,mlt,s,V 4,j,V 0,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 -157,ds,V 1,mla,l,V 4,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 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r};
+void*Y54[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 3,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 3,p,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l0,q,qi,W(list_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,F,jiz,V 21,mla,l,V 2,q,mha,l0,q,qi,W(list_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,F,jinz,V 53,qi,W(syntax_error),qi,W(do),mla,l,V 1,q,mla,l,V 2,q,mla,l,V 3,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 0,mla,l,V 1,q,dig,V 0,xri,Q,jiz,V 117,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(list_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,F,jiz,V 49,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 0,xri,I(2),jinz,V 4,t,T,j,V 2,t,F,jinf,V 12,dig,V 0,xri,I(3),jinz,V 4,t,T,j,V 2,t,F,ds,V 1,xri,F,jinz,V 15,qi,W(erroneous_binding),dig,V 2,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 0,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 -123,ds,V 1,qi,W(let),t,B 53,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,qi,W(while),qi,W(not),mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mla,l,V 3,q,t,Q,mlt,s,V 4,mla,l,V 1,q,dig,V 0,xri,Q,jiz,V 151,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(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,Q,jiz,V 98,qi,W(set_bang),dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(hold),dig,V 4,q,mha,l0,q,qi,W(caddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mla,l,V 4,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,mlt,s,V 4,j,V 0,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 -157,ds,V 1,mla,l,V 4,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 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r};
 void*Y55[]={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,I(1),s,V 2,qi,W(set_bang),mla,l,V 1,q,qi,W(PLUS),mla,l,V 1,q,mla,l,V 2,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r};
 void*Y56[]={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,I(1),s,V 2,qi,W(set_bang),mla,l,V 1,q,qi,W(_),mla,l,V 1,q,mla,l,V 2,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r};
 void*Y57[]={binc,&branch_EVM_invargc,mca,subc,V 3,binzc,&branch_EVM_invargca,qi,W(set_bang),dig,V 2,q,qi,W(cons),dig,V 3,q,dig,V 5,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 3,r};
@@ -504,8 +506,8 @@
 void*Y77[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,xri,I(0),jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r};
 void*Y78[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,qi,I(0),dig,V 1,q,li,rvec+15,tc,V 2,c,ds,V 1,r};
 void*Y79[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,qi,I(0),li,rvec+15,tc,V 2,c,ds,V 1,r};
-void*Y80[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 13,dig,V 0,q,mha,l,V 1,l,V 79,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 119,tc,V 1,c,jif,V 13,dig,V 0,q,mha,l,V 1,l,V 119,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*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 113,tc,V 2,c,q,dig,V 3,q,dig,V 3,q,mha,l,V 1,l,V 113,tc,V 2,c,q,mha,l0,q,qi,W(binary_equal_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 35,dig,V 3,q,dig,V 3,q,dig,V 3,q,qi,I(1),li,rvec+4,tc,V 2,c,q,dig,V 3,q,mha,l0,q,qi,W(binary_vector_contents_equal_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 4,c,j,V 2,t,F,ds,V 4,r};
+void*Y80[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 13,dig,V 0,q,mha,l,V 1,l,V 79,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 120,tc,V 1,c,jif,V 13,dig,V 0,q,mha,l,V 1,l,V 120,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 114,tc,V 2,c,q,dig,V 3,q,dig,V 3,q,mha,l,V 1,l,V 114,tc,V 2,c,q,mha,l0,q,qi,W(binary_equal_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 35,dig,V 3,q,dig,V 3,q,dig,V 3,q,qi,I(1),li,rvec+4,tc,V 2,c,q,dig,V 3,q,mha,l0,q,qi,W(binary_vector_contents_equal_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 4,c,j,V 2,t,F,ds,V 4,r};
 void*Y82[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 1,xri,Q,jinz,V 3,t,T,r,mha,l,V 2,l,V 0,q,mha,l,V 2,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(binary_equal_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 29,mha,l,V 2,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mat,mha,l,V 2,st,V 1,mha,l,V 2,l,V 2,tc,V 0,c,r,t,F,r};
 void*Y83[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,t,Q,mlt,s,V 2,t,B 82,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 2,mla,l,V 2,tc,V 0,c,r};
 void*Y84[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,xri,T,jinz,V 4,t,T,j,V 2,t,F,jinf,V 12,dig,V 0,xri,F,jinz,V 4,t,T,j,V 2,t,F,ds,V 1,r};
@@ -517,17 +519,17 @@
 void*Y90[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,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 60,t,I(0),mlt,s,V 0,dig,V 0,mlt,s,V 1,t,I(255),mlt,s,V 2,mla,l,V 1,q,mla,l,V 0,q,li,rvec+15,tc,V 2,c,jinf,V 25,mla,l,V 2,q,mla,l,V 1,q,li,rvec+15,tc,V 2,c,jinf,V 5,t,T,ds,V 1,r,t,F,ds,V 1,r,t,F,ds,V 1,r,t,F,ds,V 1,r};
 void*Y91[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,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 90,qi,I(0),qi,I(128),qi,I(256),li,rvec+6,tc,V 2,c,q,li,rvec+5,tc,V 2,c,mlt,s,V 0,dig,V 0,mlt,s,V 1,qi,I(128),qi,I(256),li,rvec+6,tc,V 2,c,q,qi,I(1),li,rvec+5,tc,V 2,c,mlt,s,V 2,mla,l,V 1,q,mla,l,V 0,q,li,rvec+15,tc,V 2,c,jinf,V 25,mla,l,V 2,q,mla,l,V 1,q,li,rvec+15,tc,V 2,c,jinf,V 5,t,T,ds,V 1,r,t,F,ds,V 1,r,t,F,ds,V 1,r,t,F,ds,V 1,r};
 void*Y92[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,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 67,t,I(0),mlt,s,V 0,dig,V 0,mlt,s,V 1,qi,I(256),qi,I(256),li,rvec+6,tc,V 2,c,mlt,s,V 2,mla,l,V 1,q,mla,l,V 0,q,li,rvec+15,tc,V 2,c,jinf,V 25,mla,l,V 2,q,mla,l,V 1,q,li,rvec+15,tc,V 2,c,jinf,V 5,t,T,ds,V 1,r,t,F,ds,V 1,r,t,F,ds,V 1,r,t,F,ds,V 1,r};
-void*Y93[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 120,tc,V 1,c,jif,V 32,dig,V 0,q,qi,I(0),mha,l0,q,qi,W(symbol_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,xri,CH('\\'),jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r,t,F,ds,V 1,r};
-void*Y94[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 120,tc,V 1,c,jif,V 59,dig,V 0,q,qi,I(0),mha,l0,q,qi,W(symbol_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,xri,CH('<'),jinz,V 32,dig,V 0,q,qi,I(-1),mha,l0,q,qi,W(symbol_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,xri,CH('>'),jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r,t,F,ds,V 1,r,t,F,ds,V 1,r};
+void*Y93[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 121,tc,V 1,c,jif,V 32,dig,V 0,q,qi,I(0),mha,l0,q,qi,W(symbol_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,xri,CH('\\'),jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r,t,F,ds,V 1,r};
+void*Y94[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 121,tc,V 1,c,jif,V 59,dig,V 0,q,qi,I(0),mha,l0,q,qi,W(symbol_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,xri,CH('<'),jinz,V 32,dig,V 0,q,qi,I(-1),mha,l0,q,qi,W(symbol_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,xri,CH('>'),jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r,t,F,ds,V 1,r,t,F,ds,V 1,r};
 void*Y95[]={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(0),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+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 -48,mla,l,V 1,r};
 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*Y102[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 110,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 110,tc,V 1,c,q,li,rvec+10,tc,V 1,c,ct,l,V 1,ds,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*Y102[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 111,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 111,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};
 void*Y105[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 93,tc,V 1,c,mlt,s,V 0,dig,V 0,q,mla,l,V 0,q,li,rvec+5,tc,V 2,c,mlt,s,V 1,mla,l,V 1,q,qi,I(1),qi,I(2),li,rvec+7,tc,V 2,c,q,li,rvec+17,tc,V 2,c,jif,V 39,mla,l,V 0,q,mha,l0,q,qi,W(even_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 6,mla,l,V 0,ds,V 1,r,mla,l,V 0,q,qi,I(1),li,rvec+4,tc,V 2,c,ds,V 1,r,dig,V 0,q,qi,I(1),qi,I(2),li,rvec+7,tc,V 2,c,q,li,rvec+4,tc,V 2,c,q,mha,l,V 1,l,V 93,tc,V 1,c,ds,V 1,r};
 void*Y106[]={binc,&branch_EVM_invargc,mca,subc,V 0,binc,&branch_EVM_invargca,mlt,inc,dcc,jizc,V 3,p,j,V -6,mha,l,V 2,l,V 0,q,qi,I(1),li,rvec+4,tc,V 2,c,mat,mha,l,V 2,st,V 0,mha,l,V 2,l,V 0,r};
@@ -537,27 +539,27 @@
 void*Y110[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(rational_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r};
 void*Y111[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(real_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r};
 void*Y112[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 90,tc,V 1,c,jinf,V 11,dig,V 0,q,mha,l,V 1,l,V 108,tc,V 1,c,ds,V 1,r};
-void*Y113[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(number_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 74,dig,V 0,q,mha,l,V 1,l,V 120,tc,V 1,c,jinf,V 61,dig,V 0,q,mha,l,V 1,l,V 77,tc,V 1,c,jinf,V 48,dig,V 0,q,mha,l0,q,qi,W(boolean_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 30,dig,V 0,xri,Q,jinz,V 4,t,T,j,V 2,t,F,jinf,V 16,dig,V 0,q,mha,l0,q,qi,W(void_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r};
+void*Y113[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(number_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 74,dig,V 0,q,mha,l,V 1,l,V 121,tc,V 1,c,jinf,V 61,dig,V 0,q,mha,l,V 1,l,V 77,tc,V 1,c,jinf,V 48,dig,V 0,q,mha,l0,q,qi,W(boolean_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 30,dig,V 0,xri,Q,jinz,V 4,t,T,j,V 2,t,F,jinf,V 16,dig,V 0,q,mha,l0,q,qi,W(void_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r};
 void*Y114[]={binc,&branch_EVM_invargc,hop,V 6,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,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 3,mla,l,V 3,xri,I(2),jinz,V 209,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 4,p,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 5,mla,l,V 4,xri,W(DOTDOTDOT),jinz,V 15,mla,l,V 5,xri,W(DOTDOTDOT),jiz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 50,qi,W(slice),mla,l,V 1,q,qi,F,mla,l,V 5,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r,mla,l,V 4,xri,W(DOTDOTDOT),jiz,V 15,mla,l,V 5,xri,W(DOTDOTDOT),jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 50,qi,W(slice),mla,l,V 1,q,mla,l,V 4,q,qi,F,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r,qi,W(ref),mla,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r,mla,l,V 3,xri,I(3),jinz,V 123,mla,l,V 2,q,mha,l0,q,qi,W(second),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,W(DOTDOTDOT),jinz,V 74,qi,W(slice),mla,l,V 1,q,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 2,q,mha,l0,q,qi,W(third),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r,qi,W(ref),mla,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r,qi,W(ref),mla,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r};
-void*Y115[]={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 0,mlt,s,V 2,mla,l,V 2,q,mha,l,V 1,l,V 119,tc,V 1,c,jif,V 28,mha,l0,q,qi,W(substring),t,&NN_dict_ref_2,tc,V 2,c,q,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 11,tc,V 3,c,r,qi,W(compound_huh),mla,l,V 0,q,mha,l,V 1,l,V 109,tc,V 2,c,r};
+void*Y115[]={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 0,mlt,s,V 2,mla,l,V 2,q,mha,l,V 1,l,V 120,tc,V 1,c,jif,V 28,mha,l0,q,qi,W(substring),t,&NN_dict_ref_2,tc,V 2,c,q,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 11,tc,V 3,c,r,qi,W(compound_huh),mla,l,V 0,q,mha,l,V 1,l,V 110,tc,V 2,c,r};
 void*Y116[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,qi,W(eqv_huh),qi,W(sig),qi,W(quote),dig,V 3,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 1,r};
-void*Y117[]={binc,&branch_EVM_invargc,hop,V 12,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,mlt,s,V 3,mla,l,V 2,mlt,s,V 4,mla,l,V 4,xri,Q,jiz,V 775,mla,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 5,t,T,mlt,s,V 6,mla,l,V 5,q,mha,l,V 1,l,V 79,tc,V 1,c,jinf,V 16,qi,W(invalid_try_clause),mla,l,V 5,q,mha,l,V 1,l,V 109,tc,V 2,c,j,V 0,mla,l,V 5,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 7,p,l,V 1,mlt,s,V 8,mla,l,V 7,mlt,s,V 9,mla,l,V 9,xri,W(finally),jinz,V 340,qi,W(my),qi,W(cleanup),qi,W(lambda),qi,Q,mla,l,V 8,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(catch),qi,T,qi,W(lambda),qi,W(sig),qi,W(dat),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(cleanup),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(raise),qi,W(sig),qi,W(dat),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(lambda),qi,Q,qi,W(hold),qi,W(hide),qi,W(cleanup),mla,l,V 3,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(cleanup),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,mlt,s,V 3,j,V 335,mla,l,V 9,xri,W(except),jinz,V 314,mla,l,V 8,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 10,p,l,V 1,mlt,s,V 11,qi,W(catch),qi,T,qi,W(lambda),qi,W(sig),qi,W(dat),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mla,l,V 10,xri,Q,jinz,V 16,qi,W(begin),mla,l,V 11,q,mha,l,V 1,l,V 78,tc,V 2,c,j,V 131,qi,W(if),qi,W(or),t,B 116,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 10,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 78,tc,V 2,c,q,qi,W(begin),mla,l,V 11,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(raise),qi,W(sig),qi,W(dat),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(lambda),qi,Q,mla,l,V 3,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,mlt,s,V 3,j,V 14,qi,W(invalid_try_clause),mla,l,V 5,q,mha,l,V 1,l,V 109,tc,V 2,c,mla,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 4,j,V -782,mla,l,V 3,r};
+void*Y117[]={binc,&branch_EVM_invargc,hop,V 12,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,mlt,s,V 3,mla,l,V 2,mlt,s,V 4,mla,l,V 4,xri,Q,jiz,V 775,mla,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 5,t,T,mlt,s,V 6,mla,l,V 5,q,mha,l,V 1,l,V 79,tc,V 1,c,jinf,V 16,qi,W(invalid_try_clause),mla,l,V 5,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 0,mla,l,V 5,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 7,p,l,V 1,mlt,s,V 8,mla,l,V 7,mlt,s,V 9,mla,l,V 9,xri,W(finally),jinz,V 340,qi,W(my),qi,W(cleanup),qi,W(lambda),qi,Q,mla,l,V 8,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(catch),qi,T,qi,W(lambda),qi,W(sig),qi,W(dat),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(cleanup),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(raise),qi,W(sig),qi,W(dat),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(lambda),qi,Q,qi,W(hold),qi,W(hide),qi,W(cleanup),mla,l,V 3,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(cleanup),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,mlt,s,V 3,j,V 335,mla,l,V 9,xri,W(except),jinz,V 314,mla,l,V 8,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 10,p,l,V 1,mlt,s,V 11,qi,W(catch),qi,T,qi,W(lambda),qi,W(sig),qi,W(dat),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mla,l,V 10,xri,Q,jinz,V 16,qi,W(begin),mla,l,V 11,q,mha,l,V 1,l,V 78,tc,V 2,c,j,V 131,qi,W(if),qi,W(or),t,B 116,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 10,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 78,tc,V 2,c,q,qi,W(begin),mla,l,V 11,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(raise),qi,W(sig),qi,W(dat),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(lambda),qi,Q,mla,l,V 3,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,mlt,s,V 3,j,V 14,qi,W(invalid_try_clause),mla,l,V 5,q,mha,l,V 1,l,V 110,tc,V 2,c,mla,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 4,j,V -782,mla,l,V 3,r};
 void*Y118[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mha,l,V 1,l,V 79,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 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(quote),dig,V 4,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,dig,V 3,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,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 79,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 78,tc,V 2,c,ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 119,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 86,tc,V 1,c,jif,V 37,dig,V 0,q,mha,l,V 1,l,V 82,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 79,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 78,tc,V 2,c,ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 120,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 86,tc,V 1,c,jif,V 37,dig,V 0,q,mha,l,V 1,l,V 82,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...
 
[truncated message content]

[Wisp-cvs] wisp/src/native boxes.s,1.9,1.10 boxes.wth,1.5,1.6 misc.s,1.6,1.7 misc.wth,1.6,1.7 records.nasm,1.33,1.34 wstrings.s,1.4,1.5 wstrings.wth,1.4,1.5

[<di...@us...>]

Update of /cvsroot/wisp/wisp/src/native
In directory usw-pr-cvs1:/tmp/cvs-serv31529/src/native

Modified Files:
	boxes.s boxes.wth misc.s misc.wth records.nasm wstrings.s 
	wstrings.wth 
Log Message:
Defined |new| dispatchers for |<c16string>|, |<box>|, and |<collector>|.

Index: boxes.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/boxes.s,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- boxes.s	18 Sep 2002 21:05:08 -0000	1.9
+++ boxes.s	18 Sep 2002 21:09:00 -0000	1.10
@@ -68,4 +68,5 @@
 .long NN_box_huh
 .long NN_box_ref
 .byte 19,0,0,0
+.long NN_make_box
 .global RT_box

Index: boxes.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/boxes.wth,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- boxes.wth	18 Sep 2002 21:05:08 -0000	1.5
+++ boxes.wth	18 Sep 2002 21:09:00 -0000	1.6
@@ -13,7 +13,8 @@
   (tetra 1)
   (tetra NN_box_huh)
   (tetra NN_box_ref)
-  (tetra 19)) ; FALSE
+  (tetra 19)  ; FALSE
+  (tetra NN_make_box))
 
 (extern RT_box)
 (extern WB_undefined)

Index: misc.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/misc.s,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- misc.s	18 Sep 2002 21:08:14 -0000	1.6
+++ misc.s	18 Sep 2002 21:09:00 -0000	1.7
@@ -1,5 +1,35 @@
 .section .text
 .align 16
+N_new:
+.byte 144,81,133,201,15,143,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,137,227,137,193,193,225,2,1,203,131,235,4,137,217,139,9,137,207
+.byte 131,231,3,80,83,81,81,81,133,255,15,132,8,0,0,0,88,106,19,233,22,0
+.byte 0,0,88,80,133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0,88,139,0,80
+.byte 88,61
+.long RT_record_type
+.byte 15,132,12,0,0,0,88,104
+.long WB_record_type_huh
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,5,20,0,0,0,139,0,80,61,19,0,0,0,15,133,13,0,0,0,88,88,104
+.long WB_creatable_huh
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,91,91,199,3
+.long immediate_return
+.byte 91,75,137,217,233
+.long funcall - (.+4)
+.byte 81,195
+.global N_new,NN_new
+.equiv NN_new, N_new + 1
+.section .text
+.align 16
+immediate_return:
+.byte 195
+.global immediate_return
+.section .text
+.align 16
 N_vector_fill:
 .byte 144,81,131,249,2,15,132,8,0,0,0,88,137,193,233
 .long N_signal_argcount - (.+4)
@@ -93,6 +123,15 @@
 .equiv NN_record_type_length, N_record_type_length + 1
 .section .text
 .align 16
+N_pr_record_type_new_slot:
+.byte 144,187,5,0,0,0,186
+.long RT_record_type
+.byte 233
+.long slot_accessor_body - (.+4)
+.global N_pr_record_type_new_slot,NN_pr_record_type_new_slot
+.equiv NN_pr_record_type_new_slot, N_pr_record_type_new_slot + 1
+.section .text
+.align 16
 N_pr_record_type_length_slot:
 .byte 144,187,4,0,0,0,186
 .long RT_record_type
@@ -129,10 +168,11 @@
 .align 16
 RT_record_type:
 .long RT_record_type
-.byte 4,0,0,0
+.byte 5,0,0,0
 .long NN_record_type_huh
 .byte 19,0,0,0
 .long NN_record_type_length
+.byte 19,0,0,0
 .global RT_record_type
 .section .text
 .align 16

Index: misc.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/misc.wth,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- misc.wth	18 Sep 2002 21:08:14 -0000	1.6
+++ misc.wth	18 Sep 2002 21:09:00 -0000	1.7
@@ -9,6 +9,7 @@
 (include wisptyp)
 
 (extern RT_record_type)
+(extern WB_creatable_huh)
 (extern WB_range)
 (extern WB_record_type_huh)
 (extern WB_vector_huh)
@@ -16,6 +17,7 @@
 (extern decui$1)
 (extern encsi$1)
 (extern encui$1)
+(extern funcall)
 (extern rvec)
 
 (macro RVEC_LEN 30)
@@ -30,11 +32,12 @@
   swap RVEC_LEN rdecui cells 'rvec + cell! VOID)
 
 (assemble RT_record_type
-  (tetra RT_record_type)         ; type pointer
-  (tetra 4)                      ; slot count
-  (tetra NN_record_type_huh)     ; discriminator
-  (tetra 19)  ; FALSE            ; |ref|
-  (tetra NN_record_type_length)) ; |length|
+  (tetra RT_record_type)        ; type pointer
+  (tetra 5)                     ; slot count
+  (tetra NN_record_type_huh)    ; discriminator
+  (tetra 19)  ; FALSE           ; |ref|
+  (tetra NN_record_type_length) ; |length|
+  (tetra 19)) ; FALSE           ; |new|
 
 (native record_type_huh
   'RT_record_type go-discriminate)
@@ -52,6 +55,9 @@
 (native pr_record_type_length_slot
   'RT_record_type 4 go-access-slot)
 
+(native pr_record_type_new_slot
+  'RT_record_type 5 go-access-slot)
+
 (native record_type_length dup 1 = argc drop
   dup get-type 'RT_record_type = if
     1 cells + cell@ (flush) 'encui$1 jump
@@ -96,5 +102,20 @@
 
 (native vector_fill dup 2 = argc drop
   swap dup vector-data swap vector-length rot tetrafill VOID)
+
+(extern immediate_return)
+(assemble immediate_return
+  (ret))
+
+; Note that |new| is not supposed to work in setter context.
+(native new dup 0 > argc
+  (stack=! 1) sp@ over cells + cell- dup cell@
+  dup require-record-type 5 cells + cell@
+  dup FALSE = if
+    drop 'WB_creatable_huh swap go-raise
+  then
+  nip swap 'immediate_return swap cell! ; fix the return address
+  swap 1- swap ; decrement argcount
+  (conform %ecx %eax) ,(jmp funcall))
 
 ; vim: ft=worth

Index: records.nasm
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/records.nasm,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -d -r1.33 -r1.34
--- records.nasm	18 Sep 2002 21:06:32 -0000	1.33
+++ records.nasm	18 Sep 2002 21:09:00 -0000	1.34
@@ -28,7 +28,7 @@
     mov [esp], eax
     mov edx, RT_record_type
     ; we don't have a discriminator yet
-    gcall record_constructor_body, eax, FALSE, FALSE, FALSE
+    gcall record_constructor_body, eax, FALSE, FALSE, FALSE, FALSE
     push eax
     ; stack: (slot-count record-type)
     valloc 6

Index: wstrings.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/wstrings.s,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- wstrings.s	18 Sep 2002 21:05:09 -0000	1.4
+++ wstrings.s	18 Sep 2002 21:09:00 -0000	1.5
@@ -34,4 +34,5 @@
 .long NN_c16string_huh
 .long NN_c16string_ref
 .byte 19,0,0,0
+.long NN_make_c16string
 .global RT_c16string

Index: wstrings.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/wstrings.wth,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- wstrings.wth	18 Sep 2002 21:05:09 -0000	1.4
+++ wstrings.wth	18 Sep 2002 21:09:00 -0000	1.5
@@ -13,7 +13,8 @@
   (tetra 1)
   (tetra NN_c16string_huh)
   (tetra NN_c16string_ref)
-  (tetra 19)) ; FALSE
+  (tetra 19)  ; FALSE
+  (tetra NN_make_c16string)) ; FALSE
 
 (extern RT_c16string)
 (extern WB_range)

[Wisp-cvs] wisp/src/builtin dictbase.wisp,1.251,1.252 records.wisp,1.6,1.7 stdenv.wisp,1.366,1.367

[<di...@us...>]

Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv31529/src/builtin

Modified Files:
	dictbase.wisp records.wisp stdenv.wisp 
Log Message:
Defined |new| dispatchers for |<c16string>|, |<box>|, and |<collector>|.

Index: dictbase.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/dictbase.wisp,v
retrieving revision 1.251
retrieving revision 1.252
diff -u -d -r1.251 -r1.252
--- dictbase.wisp	18 Sep 2002 21:08:01 -0000	1.251
+++ dictbase.wisp	18 Sep 2002 21:09:00 -0000	1.252
@@ -120,6 +120,7 @@
 (local mk-e2f (asm NN_mk_e2f))
 (local modulo (asm NN_modulo))
 (local native? (asm NN_native_huh))
+(local new (asm NN_new))
 (local raise (asm NN_raise))
 (local rational->cons (asm NN_rat2cons))
 (local record-type-discriminator (asm NN_record_type_discriminator))

Index: records.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/records.wisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- records.wisp	18 Sep 2002 21:05:08 -0000	1.6
+++ records.wisp	18 Sep 2002 21:09:00 -0000	1.7
@@ -10,7 +10,8 @@
   (my data ((asm NN_pr_make_record_type) slot-count)
     (let ((record-type (car data))
           (ref-hook #f)
-          (length-hook #f))
+          (length-hook #f)
+          (new-hook #f))
       (while (not (null? hooks))
         (my (hook-name hook-generator . rest-hooks) hooks
           (set! hooks rest-hooks)
@@ -21,11 +22,17 @@
             ((length) (if length-hook
                         (raise 'duplicate-length-hook hook-generator)
                         (set! length-hook (apply hook-generator data))))
+            ((new)    (if new-hook
+                        (raise 'duplicate-new-hook hook-generator)
+                        (set! new-hook (apply hook-generator data))))
             (else (raise 'record-hook-name? hook-name)))))
       (if ref-hook
         (set! ((asm NN_pr_record_type_ref_slot) record-type)
           ref-hook))
       (if length-hook
         (set! ((asm NN_pr_record_type_length_slot) record-type)
-          length-hook)))
+          length-hook))
+      (if new-hook
+        (set! ((asm NN_pr_record_type_new_slot) record-type)
+          new-hook)))
     data))

Index: stdenv.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/stdenv.wisp,v
retrieving revision 1.366
retrieving revision 1.367
diff -u -d -r1.366 -r1.367
--- stdenv.wisp	18 Sep 2002 21:06:31 -0000	1.366
+++ stdenv.wisp	18 Sep 2002 21:09:00 -0000	1.367
@@ -61,7 +61,7 @@
              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?
+             native? negative? new 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

[Wisp-cvs] wisp/src/native misc.s,1.5,1.6 misc.wth,1.5,1.6 vectors.nasm,1.12,1.13

[<di...@us...>]

Update of /cvsroot/wisp/wisp/src/native
In directory usw-pr-cvs1:/tmp/cvs-serv31276/src/native

Modified Files:
	misc.s misc.wth vectors.nasm 
Log Message:
Converted |vector-fill!|, |vector-length|, |vector-ref|, and |vector?| from Nasm to Worth.

Index: misc.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/misc.s,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- misc.s	18 Sep 2002 21:05:44 -0000	1.5
+++ misc.s	18 Sep 2002 21:08:14 -0000	1.6
@@ -1,5 +1,80 @@
 .section .text
 .align 16
+N_vector_fill:
+.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,137,217,131,193,8,139,9,131,195,4,139,27,137,207,137,217
+.byte 252,243,171,184,27,0,0,0,195
+.global N_vector_fill,NN_vector_fill
+.equiv NN_vector_fill, N_vector_fill + 1
+.section .text
+.align 16
+N_vector_ref:
+.byte 144,81,131,249,2,15,133,187,0,0,0,88,88,80,104
+.long N_vector_ref.L1
+.byte 80,233
+.long decsi$1 - (.+4)
+.byte 91,89,137,207,131,231,3,83,80,81,81,133,255,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,8,0,0,0,15,132,12,0,0,0,88,104
+.long WB_vector_huh
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,137,195,131,195,8,139,27,5,4,0,0,0,139,0,89,83,80,81,133,201,15
+.byte 141,29,0,0,0,88,91,1,216,83,80,133,192,15,141,15,0,0,0,88,88,88,88
+.byte 104
+.long WB_range
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,91,83,80,57,216,15,140,15,0,0,0,88,88,88,88,104
+.long WB_range
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,91,91,89,193,224,2,1,195,139,27,83,233,209,0,0,0,88,80,61,253
+.byte 255,255,255,15,132,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,88,91,89,80,81,83,104
+.long N_vector_ref.L12
+.byte 83,233
+.long decsi$1 - (.+4)
+.byte 91,89,137,207,131,231,3,83,80,81,81,133,255,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,8,0,0,0,15,132,12,0,0,0,88,104
+.long WB_vector_huh
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,137,195,131,195,8,139,27,5,4,0,0,0,139,0,89,83,80,81,133,201,15
+.byte 141,29,0,0,0,88,91,1,216,83,80,133,192,15,141,15,0,0,0,88,88,88,88
+.byte 104
+.long WB_range
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,91,83,80,57,216,15,140,15,0,0,0,88,88,88,88,104
+.long WB_range
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,91,91,89,193,224,2,1,195,88,137,3,106,27,88,195
+.global N_vector_ref,NN_vector_ref,N_vector_ref.L1,N_vector_ref.L12
+.equiv NN_vector_ref, N_vector_ref + 1
+.equiv N_vector_ref.L1, N_vector_ref + 25
+.equiv N_vector_ref.L12, N_vector_ref + 237
+.section .text
+.align 16
+N_vector_length:
+.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,61,8,0,0,0,15,132,12,0,0,0,88,104
+.long WB_vector_huh
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,5,4,0,0,0,139,0,80,233
+.long encui$1 - (.+4)
+.global N_vector_length,NN_vector_length
+.equiv NN_vector_length, N_vector_length + 1
+.section .text
+.align 16
 N_record_type_length:
 .byte 144,81,131,249,1,15,132,8,0,0,0,88,137,193,233
 .long N_signal_argcount - (.+4)
@@ -34,6 +109,13 @@
 .long slot_accessor_body - (.+4)
 .global N_pr_record_type_ref_slot,NN_pr_record_type_ref_slot
 .equiv NN_pr_record_type_ref_slot, N_pr_record_type_ref_slot + 1
+.section .text
+.align 16
+N_vector_huh:
+.byte 144,186,8,0,0,0,233
+.long discriminator_body - (.+4)
+.global N_vector_huh,NN_vector_huh
+.equiv NN_vector_huh, N_vector_huh + 1
 .section .text
 .align 16
 N_record_type_huh:

Index: misc.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/misc.wth,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- misc.wth	18 Sep 2002 21:05:44 -0000	1.5
+++ misc.wth	18 Sep 2002 21:08:14 -0000	1.6
@@ -11,12 +11,16 @@
 (extern RT_record_type)
 (extern WB_range)
 (extern WB_record_type_huh)
-(extern encui$1)
+(extern WB_vector_huh)
+(extern decsi$1)
 (extern decui$1)
+(extern encsi$1)
+(extern encui$1)
 (extern rvec)
 
 (macro RVEC_LEN 30)
 
+(macro decsi <: swap (flush) 'decsi$1 jump :>)
 (macro decui <: swap (flush) 'decui$1 jump :>)
 (macro rdecui ; ( node limit )
   over decui swap over swap
@@ -35,6 +39,9 @@
 (native record_type_huh
   'RT_record_type go-discriminate)
 
+(native vector_huh
+  NC_VECTOR go-discriminate)
+
 ; 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.
@@ -51,5 +58,43 @@
   else
     'WB_record_type_huh swap go-raise
   then)
+
+(native vector_length dup 1 = argc drop
+  require-vector vector-length (flush) 'encui$1 jump)
+
+(native vector_ref
+  dup 2 = if
+    drop dup decsi rot ; (nindex index vec)
+    require-vector dup vector-data swap vector-length
+    rot ; (nindex vecdata veclen index)
+    dup 0 < if
+      over +
+      dup 0 < if
+        drop drop drop 'WB_range swap go-raise
+      then
+    then
+    2dup swap >= if
+      drop drop drop 'WB_range swap go-raise
+    then
+    nip rot drop cells + cell@
+  else
+    dup -3 = argc drop ; (vec nindex obj)
+    -rot dup decsi rot ; (obj nindex index vec)
+    require-vector dup vector-data swap vector-length
+    rot ; (obj nindex vecdata veclen index)
+    dup 0 < if
+      over +
+      dup 0 < if
+        drop drop drop 'WB_range swap go-raise
+      then
+    then
+    2dup swap >= if
+      drop drop drop 'WB_range swap go-raise
+    then
+    nip rot drop cells + cell! VOID
+  then)
+
+(native vector_fill dup 2 = argc drop
+  swap dup vector-data swap vector-length rot tetrafill VOID)
 
 ; vim: ft=worth

Index: vectors.nasm
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/vectors.nasm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- vectors.nasm	26 Aug 2002 16:18:24 -0000	1.12
+++ vectors.nasm	18 Sep 2002 21:08:14 -0000	1.13
@@ -11,89 +11,6 @@
 %define vector#length(x) dword [(x) + 4]
 %define vector#body(x)   dword [(x) + 8]
 
-; {{{ |vector?|
-native vector_huh, any
-    mov edx, NC_VECTOR
-    jmp discriminator_body
-; }}}
-
-; {{{ |vector-ref|
-global N_vector_ref
-native vector_ref, any
-    cmp ecx, -3
-    jz vector_ref$s3
-    cmp ecx, 2
-    jnz near N_signal_argcount
-global vector_ref$2
-vector_ref$2:
-    pop edx ; index
-    pop eax ; vector
-    req_vector
-    push edx ; for later reference on signalling
-    push eax
-    decsi edx
-    pop edx ; vector
-    mov ecx, vector#length(edx)
-    test eax, eax ; sign?
-    if nge
-        add eax, ecx ; wrap around the end
-        jnc signal_range_1
-    endif
-    cmp eax, ecx
-    jnc signal_range_1
-    shl eax, 2 ; multiply by cell size
-    add eax, vector#body(edx)
-    mov eax, [eax]
-    drop
-    ret
-global vector_ref$s3
-vector_ref$s3:
-    dig eax, 1 ; index
-    decsi eax
-    pop ebx ; new object
-    dig edx, 1 ; vector
-    req_vector edx
-    mov ecx, vector#length(edx)
-    test eax, eax ; sign?
-    if nge
-        add eax, ecx ; wrap around the end
-        jnc signal_range_1
-    endif
-    cmp eax, ecx
-    jnc signal_range_1
-    shl eax, 2 ; multiply by cell size
-    add eax, vector#body(edx)
-    mov [eax], ebx
-    drop 2
-    retvoid
-
-signal_range_1:
-    push dword WB_range
-    pick 1
-    jmp raise$2
-; }}}
-
-; {{{ |vector-length|
-native vector_length, 1
-    pop eax
-    req_vector eax
-    mov eax, vector#length(eax)
-    encui eax
-    ret
-; }}}
-
-; {{{ |vector-fill|
-native vector_fill, 2
-    pop eax
-    pop edx
-    req_vector edx
-    mov ecx, vector#length(edx)
-    mov edi, vector#body(edx)
-    rep stosd
-    mov eax, VOID
-    ret
-; }}}
-
 ; {{{ |make-vector|
 native make_vector, any
     cmp ecx, byte 2
@@ -116,7 +33,7 @@
     pop vector#length(eax)
     pop edx
     mov [esp], eax
-    gcall vector_fill$2, eax, edx
+    gcall N_vector_fill, eax, edx
     pop eax
     ret
 ; }}}
@@ -181,6 +98,7 @@
     ret
 ; }}}
 
+extern N_vector_fill
 extern WB_range
 extern _signal_range_encui_eax
 extern _signal_range_encui_ecx

[Wisp-cvs] wisp/modules linux.wrti,1.21,1.22 universal.wrti,1.19,1.20 wisptyp.wrti,1.14,1.15

[<di...@us...>]

Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv30725/modules

Modified Files:
	linux.wrti universal.wrti wisptyp.wrti 
Log Message:
Replaced |sys:raw:execve| by Worth-written |sys:ns:execve|.

Index: linux.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/linux.wrti,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- linux.wrti	18 Sep 2002 21:00:49 -0000	1.21
+++ linux.wrti	18 Sep 2002 21:07:35 -0000	1.22
@@ -55,6 +55,7 @@
   (macro sys.creat (conform %ebx %ecx) 8 \sys (believe %eax))
   (macro sys.link (conform %ebx %ecx) 9 \sys (believe %eax))
   (macro sys.unlink (conform %ebx) 10 \sys (believe %eax))
+  (macro sys.execve (conform %ebx %ecx %edx) 11 \sys (believe %eax))
   (macro sys.chdir (conform %ebx) 12 \sys (believe %eax))
   ; |sys.time| takes no argument and returns the time
   (macro sys.time (conform) ,(mov %ebx 0) 13 \sys (believe %eax))

Index: universal.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/universal.wrti,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- universal.wrti	18 Sep 2002 21:03:20 -0000	1.19
+++ universal.wrti	18 Sep 2002 21:07:35 -0000	1.20
@@ -90,6 +90,12 @@
   (macro 2drop
     drop drop)
 
+  (macro 2swap
+    (copy 3)
+    (delete 4)
+    (copy 3)
+    (delete 4))
+
   (macro 2rot
     (copy 5)
     (delete 6)

Index: wisptyp.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/wisptyp.wrti,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- wisptyp.wrti	18 Sep 2002 20:58:04 -0000	1.14
+++ wisptyp.wrti	18 Sep 2002 21:07:35 -0000	1.15
@@ -42,6 +42,15 @@
   (macro untag-node
     -16 and)
 
+  (macro require-vector
+    dup get-type NC_VECTOR <> if 'WB_vector_huh swap go-raise then)
+
+  (macro vector-length
+    cell+ cell@)
+
+  (macro vector-data
+    2 cells + cell@)
+
   (macro require-c8string
     dup get-type NC_C8STRING <> if 'WB_c8string_huh swap go-raise then)
 

[Wisp-cvs] wisp/doc worth.vim,1.19,1.20

[<di...@us...>]

Update of /cvsroot/wisp/wisp/doc
In directory usw-pr-cvs1:/tmp/cvs-serv30725/doc

Modified Files:
	worth.vim 
Log Message:
Replaced |sys:raw:execve| by Worth-written |sys:ns:execve|.

Index: worth.vim
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/worth.vim,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- worth.vim	18 Sep 2002 21:00:49 -0000	1.19
+++ worth.vim	18 Sep 2002 21:07:35 -0000	1.20
@@ -25,38 +25,40 @@
 
 syn keyword wispFunc * + - --byte@ --cell@ --tetra@ --wyde@ -2rot
 syn keyword wispFunc ->wisp-bool -rot / /mod 0= 1+ 1- 2* 2drop 2dup
-syn keyword wispFunc 2rot < <= <> = > >= ?dup WCOREDUMP WEXITSTATUS
-syn keyword wispFunc WIFEXITED WIFSIGNALED WIFSTOPPED WSTOPSIG WTERMSIG
-syn keyword wispFunc abs and argc arshift bsf bsr bury byte! byte@
-syn keyword wispFunc byte@++ cell! cell+ cell- cell@ cell@++ cells cr
-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 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.getdents 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.ioctl sys.ioctl2 sys.kill sys.link sys.listen
-syn keyword wispFunc sys.lseek sys.lstat sys.mkdir sys.mlock
-syn keyword wispFunc 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.select
-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@++ tetrafill tetras tuck type u< u<=
-syn keyword wispFunc u> u>= wisp-bool-> wisp-epilogue wisp-prologue
-syn keyword wispFunc within wyde! wyde+ wyde- wyde@ wyde@++ wydes xor
+syn keyword wispFunc 2rot 2swap < <= <> = > >= ?dup WCOREDUMP
+syn keyword wispFunc WEXITSTATUS WIFEXITED WIFSIGNALED WIFSTOPPED
+syn keyword wispFunc WSTOPSIG WTERMSIG abs and argc arshift bsf bsr
+syn keyword wispFunc bury byte! byte@ byte@++ cell! cell+ cell- cell@
+syn keyword wispFunc cell@++ cells cr d+ d- d>s dhexprint dig drop dup
+syn keyword wispFunc emit emit-digit encode-digit fill get-type
+syn keyword wispFunc go-access-slot hexprint lshift m+ max min mod move
+syn keyword wispFunc negate nip not octas or over require-c8string
+syn keyword wispFunc require-string-length require-vector rol ror rot
+syn keyword wispFunc rshift s>d sp! sp@ space square string-data
+syn keyword wispFunc string-length 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.execve sys.exit sys.fchdir sys.fchmod
+syn keyword wispFunc sys.fdatasync sys.flock sys.fork sys.fstat
+syn keyword wispFunc sys.fsync sys.ftruncate sys.getcwd sys.getdents
+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.ioctl
+syn keyword wispFunc sys.ioctl2 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.select sys.setgid sys.setpgid
+syn keyword wispFunc sys.setregid sys.setreuid sys.setsid sys.setuid
+syn keyword wispFunc sys.shutdown sys.socket sys.stat sys.stime
+syn keyword wispFunc sys.swapoff sys.swapon sys.symlink sys.sync
+syn keyword wispFunc sys.time sys.truncate sys.umask sys.unlink
+syn keyword wispFunc sys.vhangup sys.waitpid sys.write sys.write-char
+syn keyword wispFunc tetra! tetra+ tetra- tetra@ tetra@++ tetrafill
+syn keyword wispFunc tetras tuck type u< u<= u> u>= vector-data
+syn keyword wispFunc vector-length wisp-bool-> wisp-epilogue
+syn keyword wispFunc wisp-prologue within wyde! wyde+ wyde- wyde@
+syn keyword wispFunc wyde@++ wydes xor
 
 " structure management
 

[Wisp-cvs] wisp/src/native Makefile.am,1.156,1.157 sys.s,1.11,1.12 sys.wth,1.12,1.13 sys_raw.nasm,1.51,NONE sysconst.inc,1.11,NONE

[<di...@us...>]

Update of /cvsroot/wisp/wisp/src/native
In directory usw-pr-cvs1:/tmp/cvs-serv30725/src/native

Modified Files:
	Makefile.am sys.s sys.wth 
Removed Files:
	sys_raw.nasm sysconst.inc 
Log Message:
Replaced |sys:raw:execve| by Worth-written |sys:ns:execve|.

Index: Makefile.am
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/Makefile.am,v
retrieving revision 1.156
retrieving revision 1.157
diff -u -d -r1.156 -r1.157
--- Makefile.am	18 Sep 2002 21:05:36 -0000	1.156
+++ Makefile.am	18 Sep 2002 21:08:01 -0000	1.157
@@ -11,11 +11,10 @@
 DEFS = $(filter-out -DHAVE_CONFIG_H,@DEFS@) -I.
 
 libnative_a_SOURCES = native_call.nasm branches.nasm \
-    base.inc sysconst.inc \
+    base.inc \
     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 \
+    strings.nasm types.nasm valloc.nasm vectors.nasm wrap.nasm \
     boxes.wth cons.wth death.wth misc.wth sys.wth wstrings.wth \
     boxes.s cons.s death.s misc.s sys.s wstrings.s
 
@@ -25,8 +24,8 @@
 
 libnative_a_LIBADD = native_call.o branches.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
+    resignal.o signal.o strings.o sys.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 $@ $<
@@ -41,8 +40,6 @@
 %.was: %.wth
 	WISP_PATH=$(top_srcdir)/modules $(top_builddir)/src/wisp \
         $(top_srcdir)/tools/worth -III -o $@ $<
-
-sys_raw.o: sysconst.inc
 
 clean: clean-am
 	-rm -f *.prn

Index: sys.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sys.s,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- sys.s	18 Sep 2002 21:05:44 -0000	1.11
+++ sys.s	18 Sep 2002 21:08:01 -0000	1.12
@@ -1,5 +1,41 @@
 .section .text
 .align 16
+N_sys_ns_execve:
+.byte 144,81,131,249,3,15,132,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,137,224,88,91,89,83,80,81,232
+.long ws2zt - (.+4)
+.byte 91,91,89,137,231,80,81,83,137,248,45,8,0,0,0,139,0,137,195,131,227
+.byte 3,106,0,87,80,80,133,219,15,132,8,0,0,0,88,106,19,233,22,0,0,0,88
+.byte 80,133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0,88,139,0,80,88,61
+.byte 8,0,0,0,15,132,12,0,0,0,88,104
+.long WB_vector_huh
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,137,195,131,195,4,139,27,5,8,0,0,0,139,0,137,217,193,225,2,1
+.byte 200,83,80,88,91,83,80,133,219,15,142,33,0,0,0,88,91,75,45,4,0,0,0
+.byte 137,193,139,9,83,80,81,232
+.long ws2zt - (.+4)
+.byte 91,91,89,95,80,87,81,83,233,211,255,255,255,88,88,88,137,227,137
+.byte 193,131,233,8,137,25,137,195,131,235,12,139,27,137,217,131,225,3
+.byte 106,0,80,83,83,133,201,15,132,8,0,0,0,88,106,19,233,22,0,0,0,88,80
+.byte 133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0,88,139,0,80,88,61,8,0
+.byte 0,0,15,132,12,0,0,0,88,104
+.long WB_vector_huh
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,137,195,131,195,4,139,27,5,8,0,0,0,139,0,83,80,88,91,83,80,133
+.byte 219,15,142,31,0,0,0,88,91,75,137,193,131,193,4,139,0,83,81,80,232
+.long ws2zt - (.+4)
+.byte 91,91,89,95,80,87,81,83,233,213,255,255,255,88,88,88,137,227,137
+.byte 193,131,233,12,137,25,137,195,131,235,4,139,27,137,193,131,233,8
+.byte 139,9,137,199,131,239,12,139,63,80,137,250,184,11,0,0,0,205,128,91
+.byte 137,220,80,233
+.long encsi$1 - (.+4)
+.global N_sys_ns_execve,NN_sys_ns_execve
+.equiv NN_sys_ns_execve, N_sys_ns_execve + 1
+.section .text
+.align 16
 N_sys_ns_for_dir_entries:
 .byte 144,81,131,249,2,15,132,8,0,0,0,88,137,193,233
 .long N_signal_argcount - (.+4)

Index: sys.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sys.wth,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- sys.wth	18 Sep 2002 21:05:44 -0000	1.12
+++ sys.wth	18 Sep 2002 21:08:01 -0000	1.13
@@ -20,6 +20,7 @@
 (extern WB_signal)
 (extern WB_stop)
 (extern WB_unknown)
+(extern WB_vector_huh)
 (extern cons$2)
 (extern decsi$1)
 (extern decui$1)
@@ -370,5 +371,50 @@
   nip nip nip
   sfde-bufsize 1 deallocate
   (flush) 'encsi$1 jump)
+
+(native sys_ns_execve dup 3 = argc drop
+  (flush) sp@ drop
+  rot ws->zt -rot
+  (stack=! 3) ; so that all arguments are in registers
+  sp@ ; this is the stack pointer we're going to return with
+  (stack<=! 1)
+  ; sp[-1 cells] is filename, sp[-2 cells] is argvp and
+  ; sp[-3 cells] is envp.
+
+  ; Process the argument list:
+  0 swap
+  ; (sp)
+  dup 2 cells - cell@ require-vector
+  dup vector-length swap vector-data
+  over cells +
+  ; (sp len data)
+  begin over 0 > while
+    swap 1- swap --cell@ ws->zt ; (sp len data datum)
+    swap ; (sp len datum data)
+    2swap ; (datum data sp len)
+    rot ; (datum sp len data)
+  repeat drop drop
+  (stack=! 1) sp@ over 2 cells - cell!
+
+  ; Process the environment:
+  0 swap
+  ; (sp)
+  dup 3 cells - cell@ require-vector
+  dup vector-length swap vector-data
+  ; (sp len data)
+  begin over 0 > while
+    swap 1- swap cell@++ ws->zt ; (sp len data datum)
+    swap ; (sp len datum data)
+    2swap ; (datum data sp len)
+    rot ; (datum sp len data)
+  repeat drop drop
+  (stack=! 1) sp@ over 3 cells - cell!
+
+  dup dup dup ; (sp sp sp sp)
+  rot 1 cells - cell@
+  rot 2 cells - cell@
+  rot 3 cells - cell@
+  sys.execve swap ; (result sp)
+  (stack=! 2) sp! (flush) 'encsi$1 jump)
 
 ; vim: ft=worth

--- sys_raw.nasm DELETED ---

--- sysconst.inc DELETED ---

[Wisp-cvs] wisp/src/builtin dictbase.wisp,1.250,1.251 modular.wisp,1.67,1.68 sys.wisp,1.118,1.119

[<di...@us...>]

Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv30725/src/builtin

Modified Files:
	dictbase.wisp modular.wisp sys.wisp 
Log Message:
Replaced |sys:raw:execve| by Worth-written |sys:ns:execve|.

Index: dictbase.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/dictbase.wisp,v
retrieving revision 1.250
retrieving revision 1.251
diff -u -d -r1.250 -r1.251
--- dictbase.wisp	18 Sep 2002 21:06:31 -0000	1.250
+++ dictbase.wisp	18 Sep 2002 21:08:01 -0000	1.251
@@ -18,7 +18,6 @@
 (local %shr (asm NN_prlshr))
 (local %string->integer (asm NN_prstring2integer))
 (local %symbol->string (asm NN_prsymbol2string))
-(local %ws->0t (asm NN_ws2zt))
 (local <box> (asm RT_box))
 (local <c16string> (asm RT_c16string))
 (local <record-type> (asm RT_record_type))
@@ -147,6 +146,7 @@
 (local sys:getuid (asm NN_sys_getuid))
 (local sys:low:tcgetattr (asm NN_sys_low_tcgetattr))
 (local sys:low:tcsetattr (asm NN_sys_low_tcsetattr))
+(local sys:ns:execve (asm NN_sys_ns_execve))
 (local sys:sync (asm NN_sys_sync))
 (local truncate (asm NN_truncate))
 (local type-of (asm NN_type_of))

Index: modular.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/modular.wisp,v
retrieving revision 1.67
retrieving revision 1.68
diff -u -d -r1.67 -r1.68
--- modular.wisp	18 Sep 2002 21:01:03 -0000	1.67
+++ modular.wisp	18 Sep 2002 21:08:01 -0000	1.68
@@ -58,11 +58,11 @@
               sys:fork sys:fstat sys:ftruncate 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: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))))))
+              sys:lseek sys:lstat sys:mkdir sys:nanosleep sys:ns:execve
+              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
     (make-box builtin-module-data))

Index: sys.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/sys.wisp,v
retrieving revision 1.118
retrieving revision 1.119
diff -u -d -r1.118 -r1.119
--- sys.wisp	18 Sep 2002 21:02:06 -0000	1.118
+++ sys.wisp	18 Sep 2002 21:08:01 -0000	1.119
@@ -33,6 +33,7 @@
                (close fd)
                (dup fd)
                (dup2 oldfd newfd)
+               (execve filename argv envp)
                (fork)
                (fstat fd)
                (ftruncate fd len)
@@ -71,23 +72,6 @@
           ((not res) (loop (* bufsize 2)))
           ((negative? res) (signal-system-error res `(sys:getcwd)))
           (else buffer[... res]))))))
-
-(local (%wsv->0tv wsv)
-  (my i (length wsv)
-    (my ztv (make-vector (+ i 1))
-      (set! ztv[i] '())
-      (while (not (zero? i))
-        (decr! i)
-        (set! ztv[i] (%ws->0t wsv[i])))
-      (asm ztv (l . 2)))))
-
-(define (sys:execve filename argv envp)
-  (signal-system-error
-    (encsi ((asm NN_sys_raw_execve)
-            (%ws->0t filename)
-            (%wsv->0tv argv)
-            (%wsv->0tv envp)))
-    `(sys:execve ,filename ,argv ,envp)))
 
 (local (sys:nanosleep req)
   (my res ((asm NN_sys_ns_nanosleep)

[Wisp-cvs] wisp/src essence.c,1.215,1.216 rgnwsysc.wisp,1.9,1.10 sysconst.h,1.11,1.12 sysconst.txt,1.18,1.19 wordlist.txt,1.577,1.578

[<di...@us...>]

Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv30725/src

Modified Files:
	essence.c rgnwsysc.wisp sysconst.h sysconst.txt wordlist.txt 
Log Message:
Replaced |sys:raw:execve| by Worth-written |sys:ns:execve|.

Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.215
retrieving revision 1.216
diff -u -d -r1.215 -r1.216
--- essence.c	18 Sep 2002 21:06:20 -0000	1.215
+++ essence.c	18 Sep 2002 21:07:35 -0000	1.216
@@ -371,6 +371,7 @@
     NN_sys_ns_close,
     NN_sys_ns_dup,
     NN_sys_ns_dup2,
+    NN_sys_ns_execve,
     NN_sys_ns_for_dir_entries,
     NN_sys_ns_fork,
     NN_sys_ns_fstat,
@@ -396,7 +397,6 @@
     NN_sys_ns_unlink,
     NN_sys_ns_waitpid,
     NN_sys_ns_write,
[...1344 lines suppressed...]
 
 struct cons conses [] = {
@@ -2055,13 +2052,13 @@
 [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},
+[329]{car:B 679,cdr:Q},
+[330]{car:B 678,cdr:BC 329},
+[331]{car:B 680,cdr:Q},
 };
 
 /* The root node of the compiled builtin library */
 struct node *
-builtin_root = B 683;
+builtin_root = B 682;
 
 /* essence.c ends here */

Index: rgnwsysc.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/rgnwsysc.wisp,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- rgnwsysc.wisp	26 Aug 2002 16:15:01 -0000	1.9
+++ rgnwsysc.wisp	18 Sep 2002 21:08:00 -0000	1.10
@@ -20,18 +20,6 @@
       ((unknown) (print p "#error Unknown system?\n"))
       ((close) (close-port p)))))
 
-(define (make-nasm)
-  (my p (open-output-file "native/sysconst.inc")
-    (lambda-pack
-      ((remark line) (print p ";; $,[line]\n"))
-      ((newline) (newline p))
-      ((define name value) (print p "%define CCC_$,(string-join (map structure->string name) #\_) $,[value]\n"))
-      ((ifdef cond) (print p "%ifdef $,[cond]\n"))
-      ((else cond) (print p "%else ; $,[cond]\n"))
-      ((endif cond) (print p "%endif ; $,[cond]\n"))
-      ((unknown) (print p "%error Unknown system?\n"))
-      ((close) (close-port p)))))
-
 (my data (call-with-input-file "sysconst.txt"
            read-all)
   (for-each
@@ -65,4 +53,4 @@
                                          value)) else)))
                        datum))) data))
         (now 'close)))
-    (list make-C make-nasm)))
+    (list make-C)))

Index: sysconst.h
===================================================================
RCS file: /cvsroot/wisp/wisp/src/sysconst.h,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- sysconst.h	4 Sep 2002 14:28:37 -0000	1.11
+++ sysconst.h	18 Sep 2002 21:08:00 -0000	1.12
@@ -1,47 +1,6 @@
 /* This is a generated file--do not edit. */
 /* See sysconst.txt for the original. */
 
-#ifdef LINUX
-#define CCC_sysnr_exit 1
-#define CCC_sysnr_fork 2
-#define CCC_sysnr_read 3
-#define CCC_sysnr_write 4
-#define CCC_sysnr_open 5
-#define CCC_sysnr_close 6
-#define CCC_sysnr_waitpid 7
-#define CCC_sysnr_link 9
-#define CCC_sysnr_unlink 10
-#define CCC_sysnr_execve 11
-#define CCC_sysnr_chdir 12
-#define CCC_sysnr_time 13
-#define CCC_sysnr_chmod 15
-#define CCC_sysnr_lseek 19
-#define CCC_sysnr_getpid 20
-#define CCC_sysnr_getuid 24
-#define CCC_sysnr_kill 37
-#define CCC_sysnr_rename 38
-#define CCC_sysnr_mkdir 39
-#define CCC_sysnr_dup 41
-#define CCC_sysnr_pipe 42
-#define CCC_sysnr_getgid 47
-#define CCC_sysnr_geteuid 49
-#define CCC_sysnr_getegid 50
-#define CCC_sysnr_ioctl 54
-#define CCC_sysnr_fcntl 55
-#define CCC_sysnr_setpgid 57
-#define CCC_sysnr_dup2 63
-#define CCC_sysnr_getppid 64
-#define CCC_sysnr_setsid 66
-#define CCC_sysnr_symlink 83
-#define CCC_sysnr_truncate 92
-#define CCC_sysnr_ftruncate 93
-#define CCC_sysnr_socketcall 102
-#define CCC_sysnr_getpgid 132
-#define CCC_sysnr_nanosleep 162
-#define CCC_sysnr_getcwd 183
-#else /* LINUX */
-#error Unknown system?
-#endif /* LINUX */
 #define CCC_termios_NCCS 32
 #ifdef LINUX
 #define CCC_termios_cc_VINTR 0
@@ -65,14 +24,6 @@
 #error Unknown system?
 #endif /* LINUX */
 #ifdef LINUX
-#define CCC_ioctl_TCGETS 21505
-#define CCC_ioctl_TCSETS 21506
-#define CCC_ioctl_TCSETSW 21507
-#define CCC_ioctl_TCSETSF 21508
-#else /* LINUX */
-#error Unknown system?
-#endif /* LINUX */
-#ifdef LINUX
 #define CCC_open_O_RDONLY 0
 #define CCC_open_O_WRONLY 1
 #define CCC_open_O_RDWR 2
@@ -127,30 +78,11 @@
 #error Unknown system?
 #endif /* LINUX */
 #ifdef IA32
-#define CCC_size-of_short 2
-#define CCC_size-of_int 4
-#define CCC_size-of_long 4
-#define CCC_size-of_long-long 8
 #ifdef LINUX
-#define CCC_size-of_fd_set 128
-#define CCC_size-of_FD_SETSIZE 1024
-#define CCC_size-of_off_t 4
-#define CCC_size-of_pid_t 4
 #define CCC_size-of_struct_flock 16
-#define CCC_size-of_struct_termios 60
 #else /* LINUX */
 #error Unknown system?
 #endif /* LINUX */
-#else /* IA32 */
-#error Unknown system?
-#endif /* IA32 */
-#ifdef LINUX
-#define CCC_target_system-type Linux
-#else /* LINUX */
-#error Unknown system?
-#endif /* LINUX */
-#ifdef IA32
-#define CCC_target_processor-type ia32
 #else /* IA32 */
 #error Unknown system?
 #endif /* IA32 */

Index: sysconst.txt
===================================================================
RCS file: /cvsroot/wisp/wisp/src/sysconst.txt,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- sysconst.txt	18 Sep 2002 20:59:52 -0000	1.18
+++ sysconst.txt	18 Sep 2002 21:08:00 -0000	1.19
@@ -6,47 +6,6 @@
 ;;
 ;;;; @(#) $Id$
 
-(<group> sysnr ; syscall numbers
-  (<case>
-    (LINUX
-      (exit         1)
-      (fork         2)
-      (read         3)
-      (write        4)
-      (open         5)
-      (close        6)
-      (waitpid      7)
-      (link         9)
-      (unlink      10)
-      (execve      11)
-      (chdir       12)
-      (time        13)
-      (chmod       15)
-      (lseek       19)
-      (getpid      20)
-      (getuid      24)
-      (kill        37)
-      (rename      38)
-      (mkdir       39)
-      (dup         41)
-      (pipe        42)
-      (getgid      47)
-      (geteuid     49)
-      (getegid     50)
-      (ioctl       54)
-      (fcntl       55)
-      (setpgid     57)
-      (dup2        63)
-      (getppid     64)
-      (setsid      66)
-      (symlink     83)
-      (truncate    92)
-      (ftruncate   93)
-      (socketcall 102)
-      (getpgid    132)
-      (nanosleep  162)
-      (getcwd     183))))
-
 (<group> termios
   (NCCS 32)
   (<group> cc

Index: wordlist.txt
===================================================================
RCS file: /cvsroot/wisp/wisp/src/wordlist.txt,v
retrieving revision 1.577
retrieving revision 1.578
diff -u -d -r1.577 -r1.578
--- wordlist.txt	18 Sep 2002 21:06:31 -0000	1.577
+++ wordlist.txt	18 Sep 2002 21:08:01 -0000	1.578
@@ -164,20 +164,20 @@
 sys:fork sys:fstat sys:ftruncate 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:low:getcwd sys:lseek sys:lstat
-sys:mkdir sys:nanosleep sys:ns:for-dir-entries 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:truncate sys:unlink sys:waitpid sys:write syscalls sysnr
-system-constant system-constant-internal system-constants system-path
-system-type t t* tab takervec target tc tcchangeattr tcgetattr
-tcgetattr-raw tcsetattr-raw tenth termios th third time tn
-too-long-character topocopy toposplit translate tree-copy true truncate
-truncate-not try tty? type type-of ubyte? uid undefined unix-time
-unknown unknown-context unknown-local unknown-open-input-file-flag
-unknown-open-output-file-flag unlink unpack-be-integer
-unpack-le-integer unpack-struct-flock unquote unquote-splicing
-unreadable unreadable-port unseekable-port unsure-collect
-unwritable-port use utf-8->c16string utf-8-continuer?
+sys:mkdir sys:nanosleep sys:ns:execve sys:ns:for-dir-entries
+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:truncate sys:unlink sys:waitpid
+sys:write syscalls sysnr system-constant system-constant-internal
+system-constants system-path system-type t t* tab takervec target tc
+tcchangeattr tcgetattr tcgetattr-raw tcsetattr-raw tenth termios th
+third time tn too-long-character topocopy toposplit translate tree-copy
+true truncate truncate-not try tty? type type-of ubyte? uid undefined
+unix-time unknown unknown-context unknown-local
+unknown-open-input-file-flag unknown-open-output-file-flag unlink
+unpack-be-integer unpack-le-integer unpack-struct-flock unquote
+unquote-splicing unreadable unreadable-port unseekable-port
+unsure-collect unwritable-port use utf-8->c16string utf-8-continuer?
 utf-8-first-byte->length uwyde? val valloc value vector vector->list
 vector-append vector-copy vector-fill! vector-length vector-move!
 vector? void void? vs vtab waitpid while wisp-build wisp-builder

[Wisp-cvs] wisp/modules builtin.wid,1.177,1.178

[<di...@us...>]

Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv30227/modules

Modified Files:
	builtin.wid 
Log Message:
Dropped |record-type-slot-count|.

Index: builtin.wid
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/builtin.wid,v
retrieving revision 1.177
retrieving revision 1.178
diff -u -d -r1.177 -r1.178
--- builtin.wid	18 Sep 2002 21:04:55 -0000	1.177
+++ builtin.wid	18 Sep 2002 21:06:19 -0000	1.178
@@ -2454,17 +2454,6 @@
  :See also: |make-record-type|.
 
 
-record-type-slot-count
-
- (|record-type-slot-count| /record-type/) => /cardinal/
-
- Returns the number of slots contained in records of type /record-type/.
-
- :Conforms to: Wisp extension.
-
- :See also: |make-record-type|.
-
-
 record-type?
 
  (|record-type?| /object/) => /boolean/

[Wisp-cvs] wisp/doc wisp.vim,1.226,1.227

[<di...@us...>]

Update of /cvsroot/wisp/wisp/doc
In directory usw-pr-cvs1:/tmp/cvs-serv30227/doc

Modified Files:
	wisp.vim 
Log Message:
Dropped |record-type-slot-count|.

Index: wisp.vim
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/wisp.vim,v
retrieving revision 1.226
retrieving revision 1.227
diff -u -d -r1.226 -r1.227
--- wisp.vim	7 Sep 2002 22:01:21 -0000	1.226
+++ wisp.vim	18 Sep 2002 21:06:19 -0000	1.227
@@ -188,8 +188,8 @@
 syn keyword wispFunc read-directory read-line read-string
 syn keyword wispFunc read-whole-file real-part real?
 syn keyword wispFunc record-type-discriminator record-type-referrer
-syn keyword wispFunc record-type-slot-count record-type? reduce-index
-syn keyword wispFunc ref remainder reverse round run-ewisp-file sbyte?
+syn keyword wispFunc record-type? reduce-index ref remainder reverse
+syn keyword wispFunc round run-ewisp-file sbyte?
 syn keyword wispFunc scheme-report-environment second seek semideque
 syn keyword wispFunc semideque->list semideque-bottom semideque-insert!
 syn keyword wispFunc semideque-pop! semideque-push! semideque-top

[Wisp-cvs] wisp/src essence.c,1.214,1.215 wordlist.txt,1.576,1.577

[<di...@us...>]

Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv30227/src

Modified Files:
	essence.c wordlist.txt 
Log Message:
Dropped |record-type-slot-count|.

Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.214
retrieving revision 1.215
diff -u -d -r1.214 -r1.215
--- essence.c	18 Sep 2002 21:04:55 -0000	1.214
+++ essence.c	18 Sep 2002 21:06:20 -0000	1.215
@@ -340,7 +340,6 @@
     NN_rat2cons,
     NN_record_type_discriminator,
     NN_record_type_huh,
-    NN_record_type_slot_count,
     NN_ref,
     NN_remainder,
     NN_rvec_set,
@@ -431,9 +430,9 @@
 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 110,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 86,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 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 110,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 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 110,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 156,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 40,dig,V 2,jif,V 16,qi,W(duplicate_ref_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,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 60,dig,V 0,xri,W(length),jinz,V 40,dig,V 1,jif,V 16,qi,W(duplicate_length_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 12,tc,V 2,c,bury,V 1,j,V 14,qi,W(record_hook_name_huh),mla,l,V 3,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 1,j,V -163,dig,V 1,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,dig,V 0,jif,V 13,dig,V 2,q,dig,V 1,q,t,&NN_pr_record_type_length_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 91,tc,V 1,c,jinf,V 28,dig,V 0,q,mha,l,V 1,l,V 109,tc,V 1,c,jinf,V 15,qi,W(procedure_huh),dig,V 1,q,mha,l,V 1,l,V 110,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 80,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 79,tc,V 2,c,q,mla,l,V 2,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 122,tc,V 1,c,jif,V 42,mla,l,V 2,q,mha,l,V 1,l,V 80,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 79,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 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,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 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 110,tc,V 2,c,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 91,tc,V 1,c,jinf,V 28,dig,V 0,q,mha,l,V 1,l,V 109,tc,V 1,c,jinf,V 15,qi,W(procedure_huh),dig,V 1,q,mha,l,V 1,l,V 110,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*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 80,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 79,tc,V 2,c,q,mla,l,V 2,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 121,tc,V 1,c,jif,V 42,mla,l,V 2,q,mha,l,V 1,l,V 80,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 79,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 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,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 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 110,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 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(raise),qi,W(quote),mla,l,V 2,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(quote),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(begin),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r};
 void*Y10[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 3,binc,&branch_EVM_invargca,mac,mca,subc,V 5,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 3,jizc,V 15,mac,p,s,V 3,p,s,V 2,p,s,V 1,p,s,V 0,j,V 101,mac,p,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,qi,I(-1),mha,l0,q,qi,W(symbol_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,CH('?'),mha,l0,q,qi,W(charEQ_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 5,mla,l,V 1,j,V 47,mla,l,V 1,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 9,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string2symbol),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,s,V 3,mla,l,V 1,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 9,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string2symbol),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 4,qi,W(my),qi,W(val),mla,l,V 2,q,qi,W(if),qi,W(not),mla,l,V 4,q,qi,W(val),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(raise),qi,W(quote),mla,l,V 3,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(val),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(begin),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r};
@@ -466,7 +465,7 @@
 void*Y37[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,qi,F,dig,V 2,q,dig,V 2,q,mha,l0,q,qi,W(compile),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,tc,V 0,c,ds,V 2,r};
 void*Y38[]={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 13,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,ds,V 1,r,qi,W(OR),dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,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 98,tc,V 3,c,ds,V 1,r};
 void*Y39[]={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 3,t,F,r,t,Q,mlt,s,V 2,t,B 38,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*Y40[]={binc,&branch_EVM_invargc,hop,V 3,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 13,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,ds,V 1,r,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 51,dig,V 0,q,mha,l0,q,qi,W(cadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,W(EQGT),jinz,V 27,dig,V 0,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 1,c,j,V 2,t,F,j,V 2,t,F,jif,V 302,dig,V 0,q,mha,l0,q,qi,W(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,qi,W(my),qi,W(DOTl),dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(if),qi,W(DOTl),qi,W(and),mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 1,l,V 122,tc,V 1,c,jif,V 23,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,xri,W(DOTl),jiz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 13,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,j,V 44,qi,W(hide),qi,W(DOTl),mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(quote),qi,F,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 51,dig,V 0,q,mha,l0,q,qi,W(cadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,W(2),jinz,V 27,dig,V 0,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 1,c,j,V 2,t,F,j,V 2,t,F,jif,V 302,dig,V 0,q,mha,l0,q,qi,W(caddr),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(flatten),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 2,qi,W(my),qi,W(DOTl),dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(if),qi,W(DOTl),qi,W(my),mla,l,V 1,q,qi,W(DOTl),qi,W(hide),qi,W(hideTIMES),mla,l,V 2,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(and),dig,V 11,q,mha,l0,q,qi,W(cdddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(quote),qi,F,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r,qi,W(if),dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(and),dig,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,F,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r};
+void*Y40[]={binc,&branch_EVM_invargc,hop,V 3,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 13,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,ds,V 1,r,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 51,dig,V 0,q,mha,l0,q,qi,W(cadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,W(EQGT),jinz,V 27,dig,V 0,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 1,c,j,V 2,t,F,j,V 2,t,F,jif,V 302,dig,V 0,q,mha,l0,q,qi,W(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,qi,W(my),qi,W(DOTl),dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(if),qi,W(DOTl),qi,W(and),mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 1,l,V 121,tc,V 1,c,jif,V 23,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,xri,W(DOTl),jiz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 13,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,j,V 44,qi,W(hide),qi,W(DOTl),mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(quote),qi,F,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 51,dig,V 0,q,mha,l0,q,qi,W(cadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,W(2),jinz,V 27,dig,V 0,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 1,c,j,V 2,t,F,j,V 2,t,F,jif,V 302,dig,V 0,q,mha,l0,q,qi,W(caddr),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(flatten),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 2,qi,W(my),qi,W(DOTl),dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(if),qi,W(DOTl),qi,W(my),mla,l,V 1,q,qi,W(DOTl),qi,W(hide),qi,W(hideTIMES),mla,l,V 2,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(and),dig,V 11,q,mha,l0,q,qi,W(cdddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(quote),qi,F,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r,qi,W(if),dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(and),dig,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,F,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r};
 void*Y41[]={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 3,t,T,r,t,Q,mlt,s,V 2,t,B 40,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*Y42[]={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 98,tc,V 1,c,mlt,s,V 0,mha,l,V 2,l,V 2,q,mla,l,V 0,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 0,mat,mha,l,V 2,st,V 2,t,Z,ds,V 1,r};
 void*Y43[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,qi,Q,mha,l,V 1,l,V 98,tc,V 1,c,mlt,s,V 1,mla,l,V 1,mlt,s,V 2,t,B 42,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 0,tc,V 1,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,r};
@@ -475,7 +474,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 98,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 79,tc,V 2,c,ds,V 2,r,dig,V 1,q,dig,V 1,q,mha,l,V 1,l,V 110,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 25,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 98,tc,V 2,c,q,mha,l,V 1,l,V 98,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 80,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 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 26,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 29,tc,V 3,c,r,qi,W(quote),mla,l,V 1,q,mha,l,V 1,l,V 98,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 80,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 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 26,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 29,tc,V 3,c,r,qi,W(quote),mla,l,V 1,q,mha,l,V 1,l,V 98,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 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,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 80,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 80,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 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,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 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(quasiquote),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,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 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(quasiquote),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r,qi,W(quote),dig,V 1,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,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 80,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 80,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 80,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 80,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 79,tc,V 2,c,q,mha,l,V 1,l,V 98,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 79,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 79,tc,V 2,c,q,mha,l,V 1,l,V 98,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 79,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 98,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 79,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 79,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 79,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 79,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 79,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 79,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};
@@ -506,8 +505,8 @@
 void*Y77[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,xri,I(0),jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r};
 void*Y78[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,qi,I(0),dig,V 1,q,li,rvec+15,tc,V 2,c,ds,V 1,r};
 void*Y79[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,qi,I(0),li,rvec+15,tc,V 2,c,ds,V 1,r};
-void*Y80[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 13,dig,V 0,q,mha,l,V 1,l,V 80,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 121,tc,V 1,c,jif,V 13,dig,V 0,q,mha,l,V 1,l,V 121,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 115,tc,V 2,c,q,dig,V 3,q,dig,V 3,q,mha,l,V 1,l,V 115,tc,V 2,c,q,mha,l0,q,qi,W(binary_equal_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 35,dig,V 3,q,dig,V 3,q,dig,V 3,q,qi,I(1),li,rvec+4,tc,V 2,c,q,dig,V 3,q,mha,l0,q,qi,W(binary_vector_contents_equal_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 4,c,j,V 2,t,F,ds,V 4,r};
+void*Y80[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 13,dig,V 0,q,mha,l,V 1,l,V 80,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 120,tc,V 1,c,jif,V 13,dig,V 0,q,mha,l,V 1,l,V 120,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*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 114,tc,V 2,c,q,dig,V 3,q,dig,V 3,q,mha,l,V 1,l,V 114,tc,V 2,c,q,mha,l0,q,qi,W(binary_equal_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 35,dig,V 3,q,dig,V 3,q,dig,V 3,q,qi,I(1),li,rvec+4,tc,V 2,c,q,dig,V 3,q,mha,l0,q,qi,W(binary_vector_contents_equal_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 4,c,j,V 2,t,F,ds,V 4,r};
 void*Y82[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 1,xri,Q,jinz,V 3,t,T,r,mha,l,V 2,l,V 0,q,mha,l,V 2,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(binary_equal_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 29,mha,l,V 2,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mat,mha,l,V 2,st,V 1,mha,l,V 2,l,V 2,tc,V 0,c,r,t,F,r};
 void*Y83[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,t,Q,mlt,s,V 2,t,B 82,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 2,mla,l,V 2,tc,V 0,c,r};
 void*Y84[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,xri,T,jinz,V 4,t,T,j,V 2,t,F,jinf,V 12,dig,V 0,xri,F,jinz,V 4,t,T,j,V 2,t,F,ds,V 1,r};
@@ -519,15 +518,15 @@
 void*Y90[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,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 60,t,I(0),mlt,s,V 0,dig,V 0,mlt,s,V 1,t,I(255),mlt,s,V 2,mla,l,V 1,q,mla,l,V 0,q,li,rvec+15,tc,V 2,c,jinf,V 25,mla,l,V 2,q,mla,l,V 1,q,li,rvec+15,tc,V 2,c,jinf,V 5,t,T,ds,V 1,r,t,F,ds,V 1,r,t,F,ds,V 1,r,t,F,ds,V 1,r};
 void*Y91[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,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 90,qi,I(0),qi,I(128),qi,I(256),li,rvec+6,tc,V 2,c,q,li,rvec+5,tc,V 2,c,mlt,s,V 0,dig,V 0,mlt,s,V 1,qi,I(128),qi,I(256),li,rvec+6,tc,V 2,c,q,qi,I(1),li,rvec+5,tc,V 2,c,mlt,s,V 2,mla,l,V 1,q,mla,l,V 0,q,li,rvec+15,tc,V 2,c,jinf,V 25,mla,l,V 2,q,mla,l,V 1,q,li,rvec+15,tc,V 2,c,jinf,V 5,t,T,ds,V 1,r,t,F,ds,V 1,r,t,F,ds,V 1,r,t,F,ds,V 1,r};
 void*Y92[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,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 67,t,I(0),mlt,s,V 0,dig,V 0,mlt,s,V 1,qi,I(256),qi,I(256),li,rvec+6,tc,V 2,c,mlt,s,V 2,mla,l,V 1,q,mla,l,V 0,q,li,rvec+15,tc,V 2,c,jinf,V 25,mla,l,V 2,q,mla,l,V 1,q,li,rvec+15,tc,V 2,c,jinf,V 5,t,T,ds,V 1,r,t,F,ds,V 1,r,t,F,ds,V 1,r,t,F,ds,V 1,r};
-void*Y93[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 122,tc,V 1,c,jif,V 32,dig,V 0,q,qi,I(0),mha,l0,q,qi,W(symbol_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,xri,CH('\\'),jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r,t,F,ds,V 1,r};
-void*Y94[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 122,tc,V 1,c,jif,V 59,dig,V 0,q,qi,I(0),mha,l0,q,qi,W(symbol_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,xri,CH('<'),jinz,V 32,dig,V 0,q,qi,I(-1),mha,l0,q,qi,W(symbol_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,xri,CH('>'),jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r,t,F,ds,V 1,r,t,F,ds,V 1,r};
+void*Y93[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 121,tc,V 1,c,jif,V 32,dig,V 0,q,qi,I(0),mha,l0,q,qi,W(symbol_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,xri,CH('\\'),jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r,t,F,ds,V 1,r};
+void*Y94[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 121,tc,V 1,c,jif,V 59,dig,V 0,q,qi,I(0),mha,l0,q,qi,W(symbol_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,xri,CH('<'),jinz,V 32,dig,V 0,q,qi,I(-1),mha,l0,q,qi,W(symbol_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,xri,CH('>'),jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r,t,F,ds,V 1,r,t,F,ds,V 1,r};
 void*Y95[]={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(0),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+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 -48,mla,l,V 1,r};
 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 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*Y102[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 111,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 111,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};
@@ -539,27 +538,27 @@
 void*Y110[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(rational_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r};
 void*Y111[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(real_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r};
 void*Y112[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 91,tc,V 1,c,jinf,V 11,dig,V 0,q,mha,l,V 1,l,V 109,tc,V 1,c,ds,V 1,r};
-void*Y113[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(number_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 74,dig,V 0,q,mha,l,V 1,l,V 122,tc,V 1,c,jinf,V 61,dig,V 0,q,mha,l,V 1,l,V 78,tc,V 1,c,jinf,V 48,dig,V 0,q,mha,l0,q,qi,W(boolean_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 30,dig,V 0,xri,Q,jinz,V 4,t,T,j,V 2,t,F,jinf,V 16,dig,V 0,q,mha,l0,q,qi,W(void_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r};
+void*Y113[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(number_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 74,dig,V 0,q,mha,l,V 1,l,V 121,tc,V 1,c,jinf,V 61,dig,V 0,q,mha,l,V 1,l,V 78,tc,V 1,c,jinf,V 48,dig,V 0,q,mha,l0,q,qi,W(boolean_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 30,dig,V 0,xri,Q,jinz,V 4,t,T,j,V 2,t,F,jinf,V 16,dig,V 0,q,mha,l0,q,qi,W(void_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r};
 void*Y114[]={binc,&branch_EVM_invargc,hop,V 6,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,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 3,mla,l,V 3,xri,I(2),jinz,V 209,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 4,p,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 5,mla,l,V 4,xri,W(DOTDOTDOT),jinz,V 15,mla,l,V 5,xri,W(DOTDOTDOT),jiz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 50,qi,W(slice),mla,l,V 1,q,qi,F,mla,l,V 5,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r,mla,l,V 4,xri,W(DOTDOTDOT),jiz,V 15,mla,l,V 5,xri,W(DOTDOTDOT),jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 50,qi,W(slice),mla,l,V 1,q,mla,l,V 4,q,qi,F,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r,qi,W(ref),mla,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r,mla,l,V 3,xri,I(3),jinz,V 123,mla,l,V 2,q,mha,l0,q,qi,W(second),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,W(DOTDOTDOT),jinz,V 74,qi,W(slice),mla,l,V 1,q,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 2,q,mha,l0,q,qi,W(third),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r,qi,W(ref),mla,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r,qi,W(ref),mla,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r};
-void*Y115[]={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 0,mlt,s,V 2,mla,l,V 2,q,mha,l,V 1,l,V 121,tc,V 1,c,jif,V 28,mha,l0,q,qi,W(substring),t,&NN_dict_ref_2,tc,V 2,c,q,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 12,tc,V 3,c,r,qi,W(compound_huh),mla,l,V 0,q,mha,l,V 1,l,V 110,tc,V 2,c,r};
+void*Y115[]={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 0,mlt,s,V 2,mla,l,V 2,q,mha,l,V 1,l,V 120,tc,V 1,c,jif,V 28,mha,l0,q,qi,W(substring),t,&NN_dict_ref_2,tc,V 2,c,q,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 12,tc,V 3,c,r,qi,W(compound_huh),mla,l,V 0,q,mha,l,V 1,l,V 110,tc,V 2,c,r};
 void*Y116[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,qi,W(eqv_huh),qi,W(sig),qi,W(quote),dig,V 3,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r};
 void*Y117[]={binc,&branch_EVM_invargc,hop,V 12,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,mlt,s,V 3,mla,l,V 2,mlt,s,V 4,mla,l,V 4,xri,Q,jiz,V 775,mla,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 5,t,T,mlt,s,V 6,mla,l,V 5,q,mha,l,V 1,l,V 80,tc,V 1,c,jinf,V 16,qi,W(invalid_try_clause),mla,l,V 5,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 0,mla,l,V 5,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 7,p,l,V 1,mlt,s,V 8,mla,l,V 7,mlt,s,V 9,mla,l,V 9,xri,W(finally),jinz,V 340,qi,W(my),qi,W(cleanup),qi,W(lambda),qi,Q,mla,l,V 8,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(catch),qi,T,qi,W(lambda),qi,W(sig),qi,W(dat),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(cleanup),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(raise),qi,W(sig),qi,W(dat),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(lambda),qi,Q,qi,W(hold),qi,W(hide),qi,W(cleanup),mla,l,V 3,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(cleanup),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,mlt,s,V 3,j,V 335,mla,l,V 9,xri,W(except),jinz,V 314,mla,l,V 8,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 10,p,l,V 1,mlt,s,V 11,qi,W(catch),qi,T,qi,W(lambda),qi,W(sig),qi,W(dat),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mla,l,V 10,xri,Q,jinz,V 16,qi,W(begin),mla,l,V 11,q,mha,l,V 1,l,V 79,tc,V 2,c,j,V 131,qi,W(if),qi,W(or),t,B 116,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 10,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 79,tc,V 2,c,q,qi,W(begin),mla,l,V 11,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(raise),qi,W(sig),qi,W(dat),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(lambda),qi,Q,mla,l,V 3,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,mlt,s,V 3,j,V 14,qi,W(invalid_try_clause),mla,l,V 5,q,mha,l,V 1,l,V 110,tc,V 2,c,mla,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 4,j,V -782,mla,l,V 3,r};
 void*Y118[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mha,l,V 1,l,V 80,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 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(quote),dig,V 4,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,dig,V 3,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,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 80,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 79,tc,V 2,c,ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 121,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 87,tc,V 1,c,jif,V 37,dig,V 0,q,mha,l,V 1,l,V 83,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 80,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 79,tc,V 2,c,ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 120,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 87,tc,V 1,c,jif,V 37,dig,V 0,q,mha,l,V 1,l,V 83,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 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*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 79,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 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*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 79,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 110,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 157,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 29,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 157,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 29,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 79,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};
@@ -569,7 +568,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 80,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 4,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,mlt,s,V 0,mla,l,V 0,xri,Q,jinz,V 5,t,I(0),ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 121,tc,V 1,c,jif,V 14,dig,V 0,q,mha,l,V 1,l,V 120,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,mla,l,V 0,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 53,t,I(0),mlt,s,V 1,dig,V 0,q,mha,l,V 1,l,V 80,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,dig,V 0,q,mha,l,V 1,l,V 138,tc,V 1,c,mlt,s,V 2,mla,l,V 2,q,mha,l,V 1,l,V 114,tc,V 1,c,jif,V 11,mla,l,V 2,q,t,&NN_pr_record_type_length_slot,tc,V 1,c,j,V 2,t,F,mlt,s,V 3,mla,l,V 3,jif,V 12,dig,V 0,q,mla,l,V 3,tc,V 1,c,ds,V 1,r,qi,W(measurable_huh),dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 1,r};
+void*Y143[]={binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,mlt,s,V 0,mla,l,V 0,xri,Q,jinz,V 5,t,I(0),ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 120,tc,V 1,c,jif,V 14,dig,V 0,q,mha,l,V 1,l,V 119,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,mla,l,V 0,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 53,t,I(0),mlt,s,V 1,dig,V 0,q,mha,l,V 1,l,V 80,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,dig,V 0,q,mha,l,V 1,l,V 137,tc,V 1,c,mlt,s,V 2,mla,l,V 2,q,mha,l,V 1,l,V 113,tc,V 1,c,jif,V 11,mla,l,V 2,q,t,&NN_pr_record_type_length_slot,tc,V 1,c,j,V 2,t,F,mlt,s,V 3,mla,l,V 3,jif,V 12,dig,V 0,q,mla,l,V 3,tc,V 1,c,ds,V 1,r,qi,W(measurable_huh),dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,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 80,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};
@@ -591,9 +590,9 @@
 void*Y162[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jiz,V 71,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 0,mha,l,V 2,l,V 0,q,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 2,tc,V 2,c,jif,V 6,mla,l,V 0,ds,V 1,r,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 3,tc,V 1,c,ds,V 1,r,t,F,ds,V 1,r};
 void*Y163[]={binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 2,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 12,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 19,mac,p,s,V 1,p,s,V 0,mha,l0,q,qi,W(equal_huh),t,&NN_dict_ref_2,tc,V 2,c,s,V 2,t,Q,mlt,s,V 3,t,B 162,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 3,mla,l,V 1,q,mla,l,V 3,tc,V 1,c,r};
 void*Y164[]={binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 79,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 102,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 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 102,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 102,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 86,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 115,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mla,l,V 0,q,qi,I(1),li,rvec+5,tc,V 2,c,q,dig,V 0,ds,V 1,mlt,s,V 0,dig,V 0,ds,V 1,mlt,s,V 1,j,V -70,mla,l,V 1,ds,V 1,r};
+void*Y167[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,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 114,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 79,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 98,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 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,ds,V 1,r};
 void*Y169[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,mla,l,V 1,xri,Q,jinz,V 3,t,Q,r,t,Q,mlt,s,V 2,t,B 168,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 2,mla,l,V 1,q,mla,l,V 2,tc,V 1,c,r};
 void*Y170[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jinz,V 4,t,T,j,V 2,t,F,jinf,V 79,dig,V 0,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 41,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 2,tc,V 1,c,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 2,l,V 2,tc,V 1,c,j,V 25,dig,V 0,q,mha,l,V 2,l,V 1,q,mha,l,V 1,l,V 79,tc,V 2,c,mat,mha,l,V 2,st,V 1,t,Z,ds,V 1,r};
@@ -603,11 +602,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 155,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 80,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 79,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...
 
[truncated message content]

[Wisp-cvs] wisp/src/native records.nasm,1.32,1.33

[<di...@us...>]

Update of /cvsroot/wisp/wisp/src/native
In directory usw-pr-cvs1:/tmp/cvs-serv30227/src/native

Modified Files:
	records.nasm 
Log Message:
Dropped |record-type-slot-count|.

Index: records.nasm
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/records.nasm,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -d -r1.32 -r1.33
--- records.nasm	18 Sep 2002 21:05:09 -0000	1.32
+++ records.nasm	18 Sep 2002 21:06:32 -0000	1.33
@@ -204,13 +204,6 @@
     jnz signal_record_type_huh
 %endmacro
 
-native record_type_slot_count, 1
-    pop eax
-    req_record_type
-    mov eax, record_type#slot_count(eax)
-    encui eax
-    ret
-
 native record_type_discriminator, 1
     pop eax
     req_record_type

[Wisp-cvs] wisp/src/builtin dictbase.wisp,1.249,1.250 stdenv.wisp,1.365,1.366 tostring.wisp,1.79,1.80

[<di...@us...>]

Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv30227/src/builtin

Modified Files:
	dictbase.wisp stdenv.wisp tostring.wisp 
Log Message:
Dropped |record-type-slot-count|.

Index: dictbase.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/dictbase.wisp,v
retrieving revision 1.249
retrieving revision 1.250
diff -u -d -r1.249 -r1.250
--- dictbase.wisp	18 Sep 2002 21:03:53 -0000	1.249
+++ dictbase.wisp	18 Sep 2002 21:06:31 -0000	1.250
@@ -124,7 +124,6 @@
 (local raise (asm NN_raise))
 (local rational->cons (asm NN_rat2cons))
 (local record-type-discriminator (asm NN_record_type_discriminator))
-(local record-type-slot-count (asm NN_record_type_slot_count))
 (local record-type? (asm NN_record_type_huh))
 (local ref (asm NN_ref))
 (local remainder (asm NN_remainder))

Index: stdenv.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/stdenv.wisp,v
retrieving revision 1.365
retrieving revision 1.366
diff -u -d -r1.365 -r1.366
--- stdenv.wisp	18 Sep 2002 21:03:54 -0000	1.365
+++ stdenv.wisp	18 Sep 2002 21:06:31 -0000	1.366
@@ -72,29 +72,28 @@
              rational->cons rational? read read-all=> read-char
              read-char-sequence read-character-body read-directory
              read-line read-string read-whole-file real? rec
-             record-type-discriminator record-type-slot-count
-             record-type? reduce-index ref remainder reverse round
-             run-ewisp-file sbyte? second seek semideque
-             semideque->list semideque-bottom semideque-insert!
-             semideque-pop! semideque-push! semideque-top serial
-             seventh signal sixth slice split-by-char string
-             string->c16string string->c8string string->integer
-             string->list string->number string->symbol string-append
-             string-concatenate string-copy string-downcase
-             string-downcase! string-fill! string-join string-move!
-             string-null? string-template string-upcase string-upcase!
-             string<=? string<? string=? string>=? string>? string?
-             structure->string sub subclass? substring superclass swap!
-             swyde? symbol->string symbol-length symbol-ref symbol<=?
-             symbol<? symbol>=? symbol>? symbol? system-constant
-             tcchangeattr tcgetattr tcgetattr-raw tcsetattr-raw tenth
-             third toposplit translate tree-copy truncate try tty? type
-             type-of ubyte? unix-time unpack-be-integer
-             unpack-le-integer unsure-collect use utf-8->c16string
-             utf-8-first-byte->length uwyde? vector vector->list
-             vector-append vector-copy vector-fill! vector-move!
-             vector? void? wisp-string-hash write write-char
-             write-string writeln zero?)))))
+             record-type-discriminator record-type? reduce-index ref
+             remainder reverse round run-ewisp-file sbyte? second seek
+             semideque semideque->list semideque-bottom
+             semideque-insert! semideque-pop! semideque-push!
+             semideque-top serial seventh signal sixth slice
+             split-by-char string string->c16string string->c8string
+             string->integer string->list string->number string->symbol
+             string-append string-concatenate string-copy
+             string-downcase string-downcase! string-fill! string-join
+             string-move! string-null? string-template string-upcase
+             string-upcase! string<=? string<? string=? string>=?
+             string>? string? structure->string sub subclass? substring
+             superclass swap! swyde? symbol->string symbol-length
+             symbol-ref symbol<=? symbol<? symbol>=? symbol>? symbol?
+             system-constant tcchangeattr tcgetattr tcgetattr-raw
+             tcsetattr-raw tenth third toposplit translate tree-copy
+             truncate try tty? type type-of ubyte? unix-time
+             unpack-be-integer unpack-le-integer unsure-collect use
+             utf-8->c16string utf-8-first-byte->length uwyde? vector
+             vector->list vector-append vector-copy vector-fill!
+             vector-move! vector? void? wisp-string-hash write
+             write-char write-string writeln zero?)))))
    ((*origin obj) ; => (original-name source-data ...) | #f
      (cond
        ; check for the regular environment

Index: tostring.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/tostring.wisp,v
retrieving revision 1.79
retrieving revision 1.80
diff -u -d -r1.79 -r1.80
--- tostring.wisp	11 Sep 2002 17:36:06 -0000	1.79
+++ tostring.wisp	18 Sep 2002 21:06:31 -0000	1.80
@@ -251,7 +251,7 @@
                       (begin
                         (emit (stringify-address s))
                         (emit ", slot count ")
-                        (emit (integer->string (record-type-slot-count s))))))
+                        (emit (integer->string (length s))))))
                   (emit #\>))
                 ((box? s)
                   (if (not (check-duplicity s))

[Wisp-cvs] wisp/src/native misc.s,1.4,1.5 misc.wth,1.4,1.5 sys.s,1.10,1.11 sys.wth,1.11,1.12

[<di...@us...>]

Update of /cvsroot/wisp/wisp/src/native
In directory usw-pr-cvs1:/tmp/cvs-serv30186/src/native

Modified Files:
	misc.s misc.wth sys.s sys.wth 
Log Message:
Made |length| return the slot count for record types.

Index: misc.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/misc.s,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- misc.s	18 Sep 2002 21:05:08 -0000	1.4
+++ misc.s	18 Sep 2002 21:05:44 -0000	1.5
@@ -1,5 +1,23 @@
 .section .text
 .align 16
+N_record_type_length:
+.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,61
+.long RT_record_type
+.byte 15,133,14,0,0,0,88,5,4,0,0,0,139,0,80,233
+.long encui$1 - (.+4)
+.byte 88,104
+.long WB_record_type_huh
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,195
+.global N_record_type_length,NN_record_type_length
+.equiv NN_record_type_length, N_record_type_length + 1
+.section .text
+.align 16
 N_pr_record_type_length_slot:
 .byte 144,187,4,0,0,0,186
 .long RT_record_type
@@ -31,7 +49,8 @@
 .long RT_record_type
 .byte 4,0,0,0
 .long NN_record_type_huh
-.byte 19,0,0,0,19,0,0,0
+.byte 19,0,0,0
+.long NN_record_type_length
 .global RT_record_type
 .section .text
 .align 16

Index: misc.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/misc.wth,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- misc.wth	18 Sep 2002 21:05:08 -0000	1.4
+++ misc.wth	18 Sep 2002 21:05:44 -0000	1.5
@@ -10,6 +10,8 @@
 
 (extern RT_record_type)
 (extern WB_range)
+(extern WB_record_type_huh)
+(extern encui$1)
 (extern decui$1)
 (extern rvec)
 
@@ -24,11 +26,11 @@
   swap RVEC_LEN rdecui cells 'rvec + cell! VOID)
 
 (assemble RT_record_type
-  (tetra RT_record_type)     ; type pointer
-  (tetra 4)                  ; slot count
-  (tetra NN_record_type_huh) ; discriminator
-  (tetra 19)  ; FALSE        ; |ref|
-  (tetra 19)) ; FALSE        ; |length|
+  (tetra RT_record_type)         ; type pointer
+  (tetra 4)                      ; slot count
+  (tetra NN_record_type_huh)     ; discriminator
+  (tetra 19)  ; FALSE            ; |ref|
+  (tetra NN_record_type_length)) ; |length|
 
 (native record_type_huh
   'RT_record_type go-discriminate)
@@ -42,5 +44,12 @@
 
 (native pr_record_type_length_slot
   'RT_record_type 4 go-access-slot)
+
+(native record_type_length dup 1 = argc drop
+  dup get-type 'RT_record_type = if
+    1 cells + cell@ (flush) 'encui$1 jump
+  else
+    'WB_record_type_huh swap go-raise
+  then)
 
 ; vim: ft=worth

Index: sys.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sys.s,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- sys.s	18 Sep 2002 21:01:03 -0000	1.10
+++ sys.s	18 Sep 2002 21:05:44 -0000	1.11
@@ -1137,20 +1137,3 @@
 .long encsi$1 - (.+4)
 .global N_unix_time,NN_unix_time
 .equiv NN_unix_time, N_unix_time + 1
-.section .text
-.align 16
-dhexprint:
-.byte 88,91,89,80,81,83,232
-.long hexprint - (.+4)
-.byte 232
-.long hexprint - (.+4)
-.byte 195
-.global dhexprint
-.section .text
-.align 16
-hexprint:
-.byte 88,91,80,106,8,83,88,193,192,4,137,195,131,227,15,80,83,131,251,10
-.byte 15,140,7,0,0,0,88,5,7,0,0,0,80,88,5,48,0,0,0,106,1,80,89,91,186,1
-.byte 0,0,0,81,137,225,184,4,0,0,0,205,128,131,196,4,88,91,75,83,80,133
-.byte 219,117,191,88,88,195
-.global hexprint

Index: sys.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sys.wth,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- sys.wth	18 Sep 2002 21:01:03 -0000	1.11
+++ sys.wth	18 Sep 2002 21:05:44 -0000	1.12
@@ -6,8 +6,6 @@
 ;;
 ;;;; @(#) $Id$
 
-(include io)
-
 (include linux)
 (include wisptyp)
 

[Wisp-cvs] wisp/src/native Makefile.am,1.155,1.156 sys_raw.nasm,1.50,1.51 linux_syscall.inc,1.12,NONE

[<di...@us...>]

Update of /cvsroot/wisp/wisp/src/native
In directory usw-pr-cvs1:/tmp/cvs-serv30157/src/native

Modified Files:
	Makefile.am sys_raw.nasm 
Removed Files:
	linux_syscall.inc 
Log Message:
Merged linux_syscall.inc into sys_raw.nasm .

Index: Makefile.am
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/Makefile.am,v
retrieving revision 1.155
retrieving revision 1.156
diff -u -d -r1.155 -r1.156
--- Makefile.am	18 Sep 2002 21:02:25 -0000	1.155
+++ Makefile.am	18 Sep 2002 21:05:36 -0000	1.156
@@ -11,7 +11,7 @@
 DEFS = $(filter-out -DHAVE_CONFIG_H,@DEFS@) -I.
 
 libnative_a_SOURCES = native_call.nasm branches.nasm \
-    base.inc linux_syscall.inc sysconst.inc \
+    base.inc sysconst.inc \
     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 \

Index: sys_raw.nasm
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sys_raw.nasm,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -d -r1.50 -r1.51
--- sys_raw.nasm	18 Sep 2002 20:55:17 -0000	1.50
+++ sys_raw.nasm	18 Sep 2002 21:05:36 -0000	1.51
@@ -4,8 +4,37 @@
 ;; This file is licensed under the GNU GPL v2.  If you
 ;; don't know what that means, please do read the GPL.
 
-%include "linux_syscall.inc"
+%include "base.inc"
+%include "sysconst.inc"
 
 ident '@(#) $Id$'
+
+%macro native_syscall 2-3
+native sys_raw_%1, %2
+%if %2 > 0
+%if %2 > 1
+%if %2 > 2
+%if %2 > 3
+%if %2 > 4
+    pop edi
+%if %2 > 4
+%error Too many arguments for sys_raw_%1
+%endif
+%endif
+    pop esi
+%endif
+    pop edx
+%endif
+    pop ecx
+%endif
+    pop ebx
+%endif
+%if %0 > 2
+    %3
+%endif
+    mov eax, CCC_sysnr_%1
+    int 0x80
+    ret
+%endmacro
 
 native_syscall execve, 3

--- linux_syscall.inc DELETED ---

[Wisp-cvs] wisp/modules builtin.wid,1.176,1.177

[<di...@us...>]

Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv29769/modules

Modified Files:
	builtin.wid 
Log Message:
Added the |length| dispatcher slot to record types.

Index: builtin.wid
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/builtin.wid,v
retrieving revision 1.176
retrieving revision 1.177
diff -u -d -r1.176 -r1.177
--- builtin.wid	18 Sep 2002 21:03:52 -0000	1.176
+++ builtin.wid	18 Sep 2002 21:04:55 -0000	1.177
@@ -1930,18 +1930,22 @@
 
 make-record-type
 
- (|make-record-type| /slot-count/ [/referrer-generator/])
+ (|make-record-type| /slot-count/ {/dispatch-name/ /generator/})
          => (/record-type/ /constructor/ /accessor/ ...)
 
  |Creates| a new record type. There will be as much /accessor/s as
- /slot-count/ indicates. If /referrer-generator/ is given, it is
- called with all the arguments in the list that |make-record-type|
- eventually returns and its result will be used as the referrer
- procedure of the new record type (see |ref|).
+ /slot-count/ indicates. The pairs of /dispatch-name/s and /generator/s
+ specify dispatch points: each generator is called with all the
+ arguments in the list that |make-record-type| eventually returns and
+ the results will be used as the actual dispatch points. Currently,
+ the following dispatch names are recognized:
+
+   * ~ref~;
+   * ~length~.
 
  :Conforms to: Wisp extension.
 
- :See also: |ref|, |record-type-discriminator|.
+ :See also: |ref|, |length|, |record-type-discriminator|.
 
 
 make-string

[Wisp-cvs] wisp/src/native boxes.s,1.8,1.9 boxes.wth,1.4,1.5 misc.s,1.3,1.4 misc.wth,1.3,1.4 records.nasm,1.31,1.32 wstrings.s,1.3,1.4 wstrings.wth,1.3,1.4

[<di...@us...>]

Update of /cvsroot/wisp/wisp/src/native
In directory usw-pr-cvs1:/tmp/cvs-serv29769/src/native

Modified Files:
	boxes.s boxes.wth misc.s misc.wth records.nasm wstrings.s 
	wstrings.wth 
Log Message:
Added the |length| dispatcher slot to record types.

Index: boxes.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/boxes.s,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- boxes.s	18 Sep 2002 20:55:17 -0000	1.8
+++ boxes.s	18 Sep 2002 21:05:08 -0000	1.9
@@ -67,4 +67,5 @@
 .byte 1,0,0,0
 .long NN_box_huh
 .long NN_box_ref
+.byte 19,0,0,0
 .global RT_box

Index: boxes.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/boxes.wth,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- boxes.wth	18 Sep 2002 20:55:17 -0000	1.4
+++ boxes.wth	18 Sep 2002 21:05:08 -0000	1.5
@@ -12,7 +12,8 @@
   (tetra RT_record_type)
   (tetra 1)
   (tetra NN_box_huh)
-  (tetra NN_box_ref))
+  (tetra NN_box_ref)
+  (tetra 19)) ; FALSE
 
 (extern RT_box)
 (extern WB_undefined)

Index: misc.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/misc.s,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- misc.s	18 Sep 2002 21:03:20 -0000	1.3
+++ misc.s	18 Sep 2002 21:05:08 -0000	1.4
@@ -1,5 +1,14 @@
 .section .text
 .align 16
+N_pr_record_type_length_slot:
+.byte 144,187,4,0,0,0,186
+.long RT_record_type
+.byte 233
+.long slot_accessor_body - (.+4)
+.global N_pr_record_type_length_slot,NN_pr_record_type_length_slot
+.equiv NN_pr_record_type_length_slot, N_pr_record_type_length_slot + 1
+.section .text
+.align 16
 N_pr_record_type_ref_slot:
 .byte 144,187,3,0,0,0,186
 .long RT_record_type
@@ -20,9 +29,9 @@
 .align 16
 RT_record_type:
 .long RT_record_type
-.byte 3,0,0,0
+.byte 4,0,0,0
 .long NN_record_type_huh
-.byte 19,0,0,0
+.byte 19,0,0,0,19,0,0,0
 .global RT_record_type
 .section .text
 .align 16

Index: misc.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/misc.wth,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- misc.wth	18 Sep 2002 21:03:20 -0000	1.3
+++ misc.wth	18 Sep 2002 21:05:08 -0000	1.4
@@ -25,17 +25,22 @@
 
 (assemble RT_record_type
   (tetra RT_record_type)     ; type pointer
-  (tetra 3)                  ; slot count
+  (tetra 4)                  ; slot count
   (tetra NN_record_type_huh) ; discriminator
-  (tetra 19)) ; FALSE        ; |ref|
+  (tetra 19)  ; FALSE        ; |ref|
+  (tetra 19)) ; FALSE        ; |length|
 
 (native record_type_huh
   'RT_record_type go-discriminate)
 
 ; 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.
+; It is an important guarantee that it's safe to share
+; record-type:s without need to fear undue influence.
+
 (native pr_record_type_ref_slot
- 'RT_record_type 3 go-access-slot)
+  'RT_record_type 3 go-access-slot)
+
+(native pr_record_type_length_slot
+  'RT_record_type 4 go-access-slot)
 
 ; vim: ft=worth

Index: records.nasm
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/records.nasm,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -d -r1.31 -r1.32
--- records.nasm	18 Sep 2002 21:03:54 -0000	1.31
+++ records.nasm	18 Sep 2002 21:05:09 -0000	1.32
@@ -27,7 +27,8 @@
     ja make_record_type.too_many_slots
     mov [esp], eax
     mov edx, RT_record_type
-    gcall record_constructor_body, eax, 0, FALSE ; we don't have a discriminator yet
+    ; we don't have a discriminator yet
+    gcall record_constructor_body, eax, FALSE, FALSE, FALSE
     push eax
     ; stack: (slot-count record-type)
     valloc 6

Index: wstrings.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/wstrings.s,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- wstrings.s	18 Sep 2002 21:01:03 -0000	1.3
+++ wstrings.s	18 Sep 2002 21:05:09 -0000	1.4
@@ -33,4 +33,5 @@
 .byte 1,0,0,0
 .long NN_c16string_huh
 .long NN_c16string_ref
+.byte 19,0,0,0
 .global RT_c16string

Index: wstrings.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/wstrings.wth,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- wstrings.wth	18 Sep 2002 21:01:03 -0000	1.3
+++ wstrings.wth	18 Sep 2002 21:05:09 -0000	1.4
@@ -12,7 +12,8 @@
   (tetra RT_record_type)
   (tetra 1)
   (tetra NN_c16string_huh)
-  (tetra NN_c16string_ref))
+  (tetra NN_c16string_ref)
+  (tetra 19)) ; FALSE
 
 (extern RT_c16string)
 (extern WB_range)

[Wisp-cvs] wisp/src/builtin lists.wisp,1.106,1.107 records.wisp,1.5,1.6

[<di...@us...>]

Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv29769/src/builtin

Modified Files:
	lists.wisp records.wisp 
Log Message:
Added the |length| dispatcher slot to record types.

Index: lists.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/lists.wisp,v
retrieving revision 1.106
retrieving revision 1.107
diff -u -d -r1.106 -r1.107
--- lists.wisp	7 Sep 2002 21:59:27 -0000	1.106
+++ lists.wisp	18 Sep 2002 21:05:08 -0000	1.107
@@ -125,15 +125,22 @@
 
 ; {{{ |length|
 (define (length x)
- (case x
-   (string? (string-length x))
-   (vector? (vector-length x))
-   (else
-     (my l 0
-       (while (cons? x)
-         (incr! l)
-         (cdr! x))
-       l))))
+  (case x
+    (null?   0)
+    (string? (string-length x))
+    (vector? (vector-length x))
+    (cons?   (my l 0
+               (while (cons? x)
+                 (incr! l)
+                 (cdr! x))
+               l))
+    (else
+      (my rt (type-of x)
+        (my measurer (and (record-type? rt)
+                          ((asm NN_pr_record_type_length_slot) rt))
+          (if measurer
+            (measurer x)
+            (raise 'measurable? x)))))))
 ; }}}
 
 ; {{{ |length?|

Index: records.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/records.wisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- records.wisp	4 Sep 2002 14:29:47 -0000	1.5
+++ records.wisp	18 Sep 2002 21:05:08 -0000	1.6
@@ -8,20 +8,24 @@
 
 (define (make-record-type slot-count . hooks)
   (my data ((asm NN_pr_make_record_type) slot-count)
-    (my record-type (car data)
-      (let ((ref-hook #f)
-            (ref-hook? #f))
-        (while (not (null? hooks))
-          (my (hook-name hook-generator . rest-hooks) hooks
-            (set! hooks rest-hooks)
-            (case hook-name
-              ((ref) (if ref-hook?
-                       (raise 'duplicate-ref-hook hook-generator)
-                       (begin
-                         (set! ref-hook? #t)
-                         (set! ref-hook (apply hook-generator data)))))
-              (else (raise 'record-hook-name? hook-name)))))
-        (if ref-hook?
-          (set! ((asm NN_pr_record_type_ref_slot) record-type)
-            ref-hook))))
+    (let ((record-type (car data))
+          (ref-hook #f)
+          (length-hook #f))
+      (while (not (null? hooks))
+        (my (hook-name hook-generator . rest-hooks) hooks
+          (set! hooks rest-hooks)
+          (case hook-name
+            ((ref)    (if ref-hook
+                        (raise 'duplicate-ref-hook hook-generator)
+                        (set! ref-hook (apply hook-generator data))))
+            ((length) (if length-hook
+                        (raise 'duplicate-length-hook hook-generator)
+                        (set! length-hook (apply hook-generator data))))
+            (else (raise 'record-hook-name? hook-name)))))
+      (if ref-hook
+        (set! ((asm NN_pr_record_type_ref_slot) record-type)
+          ref-hook))
+      (if length-hook
+        (set! ((asm NN_pr_record_type_length_slot) record-type)
+          length-hook)))
     data))

[Wisp-cvs] wisp/src essence.c,1.213,1.214 wordlist.txt,1.575,1.576

[<di...@us...>]

Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv29769/src

Modified Files:
	essence.c wordlist.txt 
Log Message:
Added the |length| dispatcher slot to record types.

Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.213
retrieving revision 1.214
diff -u -d -r1.213 -r1.214
--- essence.c	18 Sep 2002 21:03:52 -0000	1.213
+++ essence.c	18 Sep 2002 21:04:55 -0000	1.214
@@ -328,6 +328,7 @@
     NN_native_huh,
     NN_ninth,
     NN_pr_make_record_type,
+    NN_pr_record_type_length_slot,
     NN_pr_record_type_ref_slot,
     NN_printeger2string,
     NN_prlshl,
@@ -429,7 +430,7 @@
 void*Y0[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 80,tc,V 1,c,jinf,V 16,qi,W(cons_huh),dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 1,r,dig,V 0,ds,V 1,r};
 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 110,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 86,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 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 110,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 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 110,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 110,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 110,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*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 156,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 40,dig,V 2,jif,V 16,qi,W(duplicate_ref_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,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 60,dig,V 0,xri,W(length),jinz,V 40,dig,V 1,jif,V 16,qi,W(duplicate_length_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 12,tc,V 2,c,bury,V 1,j,V 14,qi,W(record_hook_name_huh),mla,l,V 3,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 1,j,V -163,dig,V 1,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,dig,V 0,jif,V 13,dig,V 2,q,dig,V 1,q,t,&NN_pr_record_type_length_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 91,tc,V 1,c,jinf,V 28,dig,V 0,q,mha,l,V 1,l,V 109,tc,V 1,c,jinf,V 15,qi,W(procedure_huh),dig,V 1,q,mha,l,V 1,l,V 110,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 80,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 79,tc,V 2,c,q,mla,l,V 2,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 122,tc,V 1,c,jif,V 42,mla,l,V 2,q,mha,l,V 1,l,V 80,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 79,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 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 79,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 79,tc,V 2,c,q,mha,l,V 1,l,V 79,tc,V 2,c,q,mha,l,V 1,l,V 110,tc,V 2,c,r};
@@ -568,7 +569,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 80,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 121,tc,V 1,c,jif,V 14,dig,V 0,q,mha,l,V 1,l,V 120,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 80,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 4,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,mlt,s,V 0,mla,l,V 0,xri,Q,jinz,V 5,t,I(0),ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 121,tc,V 1,c,jif,V 14,dig,V 0,q,mha,l,V 1,l,V 120,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,mla,l,V 0,q,mha,l,V 1,l,V 80,tc,V 1,c,jif,V 53,t,I(0),mlt,s,V 1,dig,V 0,q,mha,l,V 1,l,V 80,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,dig,V 0,q,mha,l,V 1,l,V 138,tc,V 1,c,mlt,s,V 2,mla,l,V 2,q,mha,l,V 1,l,V 114,tc,V 1,c,jif,V 11,mla,l,V 2,q,t,&NN_pr_record_type_length_slot,tc,V 1,c,j,V 2,t,F,mlt,s,V 3,mla,l,V 3,jif,V 12,dig,V 0,q,mla,l,V 3,tc,V 1,c,ds,V 1,r,qi,W(measurable_huh),dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,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 80,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};

Index: wordlist.txt
===================================================================
RCS file: /cvsroot/wisp/wisp/src/wordlist.txt,v
retrieving revision 1.575
retrieving revision 1.576
diff -u -d -r1.575 -r1.576
--- wordlist.txt	18 Sep 2002 21:02:13 -0000	1.575
+++ wordlist.txt	18 Sep 2002 21:05:08 -0000	1.576
@@ -80,28 +80,28 @@
 dict dict->alist dict-bind! dict-copy dict-defined? dict-drop!
 dict-fetch dict-ref dict? dict_ref_2 dig directory dis discriminator
 division-by-zero do dot-tail drain drop drop-buffer drop-var ds dsc
-dummy-var dup dup2 duplicate-dict-item! duplicate-ref-hook
-duplicate-slot-name dwim-stringify eighth else end ensure-in-buffer
-ensure-line-in-buffer env-ref eof-object? eof? eq? equal? eqv? errno
-erroneous-binding erroneous-dot-binding eval even? evmfunc evmfunc?
-except exclusive execve exit export f false fatal-handler fcntl fd
-fd_set fdset-ref fifth file-close-hook file-ctime file-descriptor
-file-mtime file-ready? file-stat file-type file-types file? filter
-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? 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
-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
+dummy-var dup dup2 duplicate-dict-item! duplicate-length-hook
+duplicate-ref-hook duplicate-slot-name dwim-stringify eighth else end
+ensure-in-buffer ensure-line-in-buffer env-ref eof-object? eof? eq?
+equal? eqv? errno erroneous-binding erroneous-dot-binding eval even?
+evmfunc evmfunc? except exclusive execve exit export f false
+fatal-handler fcntl fd fd_set fdset-ref fifth file-close-hook
+file-ctime file-descriptor file-mtime file-ready? file-stat file-type
+file-types file? filter 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? 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 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
@@ -114,41 +114,42 @@
 macro? mah make-box make-c16string make-c8string make-class
 make-counter make-dict make-fdset make-fluid make-instance
 make-record-type make-string make-vector mal map master-dictionary mat
-mca meaning member memq memv meta metacode mha mkdir mla mlt mode
-modify-bit module module-load module-loop module-ref module-was-run
-modules modulo mta mtime my my-port n nanosleep native? nc negative?
-negc newline ninth nlink normalize-binding not not-enough-space notc
-now nul null null-list? null? number number->string number? numerator
-nybble? nyp? o obsolete-initial odd? of off_t oflag open
-open-input-file open-output-file opt optimize-source or order->dict
-origin out-of-memory output-port? overflow p pack-be-integer
-pack-le-integer pack-struct-flock page parse-character-body
-parse-lambda-list pc peek-char peek-string ph pick-dict-items pid_t
-pipe pl port-peek-string port-read-string port-ready? port-write-string
-port? portio-debugging positive? post-codegen postpone-linking prefix
-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 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
+mca meaning measurable? member memq memv meta metacode mha mkdir mla
+mlt mode modify-bit module module-load module-loop module-ref
+module-was-run modules modulo mta mtime my my-port n nanosleep native?
+nc negative? negc newline ninth nlink normalize-binding not
+not-enough-space notc now nul null null-list? null? number
+number->string number? numerator nybble? nyp? o obsolete-initial odd?
+of off_t oflag open open-input-file open-output-file opt
+optimize-source or order->dict origin out-of-memory output-port?
+overflow p pack-be-integer pack-le-integer pack-struct-flock page
+parse-character-body parse-lambda-list pc peek-char peek-string ph
+pick-dict-items pid_t pipe pl port-peek-string port-read-string
+port-ready? port-write-string port? portio-debugging positive?
+post-codegen postpone-linking prefix 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 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
 string->c8string string->integer string->list string->number
 string->rational string->symbol string-append string-compare
 string-concatenate string-contains-nuls string-copy string-downcase

[Wisp-cvs] wisp/modules builtin.wid,1.175,1.176

[<di...@us...>]

Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv29292/modules

Modified Files:
	builtin.wid 
Log Message:
Dropped |record-type-referrer|.

Index: builtin.wid
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/builtin.wid,v
retrieving revision 1.175
retrieving revision 1.176
diff -u -d -r1.175 -r1.176
--- builtin.wid	11 Sep 2002 17:36:05 -0000	1.175
+++ builtin.wid	18 Sep 2002 21:03:52 -0000	1.176
@@ -2450,18 +2450,6 @@
  :See also: |make-record-type|.
 
 
-record-type-referrer
-
- (|record-type-referrer| /record-type/) => /procedure/ | ~#f~
-
- Returns a /procedure/ that can be used to manipulate some aspects of
- the instances of /record-type/.
-
- :Conforms to: Wisp extension.
-
- :See also: |ref|.
-
-
 record-type-slot-count
 
  (|record-type-slot-count| /record-type/) => /cardinal/
@@ -2501,16 +2489,12 @@
  The ultimate compound cell accessor dispatcher. Calls an appropriate
  accessor depending on the type of /object/.
 
- For record types, calling |ref| is a more efficient alternative to
- calling ((|record-type-referrer| (|type-of| /object/)) /location/ ...).
- Note that |ref| passes the calling context properly.
-
  :Exceptions:
      ~compound?~ -- the appropriate accessor could not be determined.
 
  :Conforms to: Wisp extension.
 
- :See also: |vector-ref|, |box-ref|, |make-record-type|.
+ :See also: |make-record-type|.
 
 
 reverse

[Wisp-cvs] wisp/src/builtin dictbase.wisp,1.248,1.249 stdenv.wisp,1.364,1.365

[<di...@us...>]

Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv29292/src/builtin

Modified Files:
	dictbase.wisp stdenv.wisp 
Log Message:
Dropped |record-type-referrer|.

Index: dictbase.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/dictbase.wisp,v
retrieving revision 1.248
retrieving revision 1.249
diff -u -d -r1.248 -r1.249
--- dictbase.wisp	18 Sep 2002 21:01:03 -0000	1.248
+++ dictbase.wisp	18 Sep 2002 21:03:53 -0000	1.249
@@ -124,7 +124,6 @@
 (local raise (asm NN_raise))
 (local rational->cons (asm NN_rat2cons))
 (local record-type-discriminator (asm NN_record_type_discriminator))
-(local record-type-referrer (asm NN_record_type_referrer))
 (local record-type-slot-count (asm NN_record_type_slot_count))
 (local record-type? (asm NN_record_type_huh))
 (local ref (asm NN_ref))

Index: stdenv.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/stdenv.wisp,v
retrieving revision 1.364
retrieving revision 1.365
diff -u -d -r1.364 -r1.365
--- stdenv.wisp	18 Sep 2002 20:59:21 -0000	1.364
+++ stdenv.wisp	18 Sep 2002 21:03:54 -0000	1.365
@@ -72,29 +72,29 @@
              rational->cons rational? read read-all=> read-char
              read-char-sequence read-character-body read-directory
              read-line read-string read-whole-file real? rec
-             record-type-discriminator record-type-referrer
-             record-type-slot-count record-type? reduce-index ref
-             remainder reverse round run-ewisp-file sbyte? second seek
-             semideque semideque->list semideque-bottom
-             semideque-insert! semideque-pop! semideque-push!
-             semideque-top serial seventh signal sixth slice
-             split-by-char string string->c16string string->c8string
-             string->integer string->list string->number string->symbol
-             string-append string-concatenate string-copy
-             string-downcase string-downcase! string-fill! string-join
-             string-move! string-null? string-template string-upcase
-             string-upcase! string<=? string<? string=? string>=?
-             string>? string? structure->string sub subclass? substring
-             superclass swap! swyde? symbol->string symbol-length
-             symbol-ref symbol<=? symbol<? symbol>=? symbol>? symbol?
-             system-constant tcchangeattr tcgetattr tcgetattr-raw
-             tcsetattr-raw tenth third toposplit translate tree-copy
-             truncate try tty? type type-of ubyte? unix-time
-             unpack-be-integer unpack-le-integer unsure-collect use
-             utf-8->c16string utf-8-first-byte->length uwyde? vector
-             vector->list vector-append vector-copy vector-fill!
-             vector-move! vector? void? wisp-string-hash write
-             write-char write-string writeln zero?)))))
+             record-type-discriminator record-type-slot-count
+             record-type? reduce-index ref remainder reverse round
+             run-ewisp-file sbyte? second seek semideque
+             semideque->list semideque-bottom semideque-insert!
+             semideque-pop! semideque-push! semideque-top serial
+             seventh signal sixth slice split-by-char string
+             string->c16string string->c8string string->integer
+             string->list string->number string->symbol string-append
+             string-concatenate string-copy string-downcase
+             string-downcase! string-fill! string-join string-move!
+             string-null? string-template string-upcase string-upcase!
+             string<=? string<? string=? string>=? string>? string?
+             structure->string sub subclass? substring superclass swap!
+             swyde? symbol->string symbol-length symbol-ref symbol<=?
+             symbol<? symbol>=? symbol>? symbol? system-constant
+             tcchangeattr tcgetattr tcgetattr-raw tcsetattr-raw tenth
+             third toposplit translate tree-copy truncate try tty? type
+             type-of ubyte? unix-time unpack-be-integer
+             unpack-le-integer unsure-collect use utf-8->c16string
+             utf-8-first-byte->length uwyde? vector vector->list
+             vector-append vector-copy vector-fill! vector-move!
+             vector? void? wisp-string-hash write write-char
+             write-string writeln zero?)))))
    ((*origin obj) ; => (original-name source-data ...) | #f
      (cond
        ; check for the regular environment