wisp-cvs Mailing List for Wisp interpreter (Page 35)
Status: Alpha
Brought to you by:
digg
Menu
▾
▴
wisp-cvs — Automatic announcements of commits to the CVS repository
You can subscribe to this list here.
| 2002 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(30) |
Sep
(312) |
Oct
|
Nov
|
Dec
|
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2003 |
Jan
(5) |
Feb
(131) |
Mar
(17) |
Apr
(184) |
May
(252) |
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2004 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
(2) |
Nov
|
Dec
|
|
From: <di...@us...> - 2002-09-04 14:35:31
|
Update of /cvsroot/wisp/wisp/src/native
In directory usw-pr-cvs1:/tmp/cvs-serv31654/src/native
Modified Files:
linux_syscall.inc sys.s sys.wth sys_raw.nasm
Log Message:
Dropped |sys:raw:lseek|.
Index: linux_syscall.inc
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/linux_syscall.inc,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- linux_syscall.inc 22 Jul 2002 14:53:16 -0000 1.11
+++ linux_syscall.inc 4 Sep 2002 14:35:28 -0000 1.12
@@ -36,23 +36,3 @@
int 0x80
ret
%endmacro
-
-%macro native_socketcall 2-3
-native sys_raw_%1, %2
-%assign %%i 1
-%rep %2 - 1
- pick %%i
-%assign %%i %%i + 2
-%endrep
- mov ecx, esp
-%if %0 > 2
- %3
-%endif
- mov ebx, CCC_sktnr_%1
- mov eax, CCC_sysnr_socketcall
- int 0x80
-%if %2 > 1
- drop 2 * %2 - 1
-%endif
- ret
-%endmacro
Index: sys.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sys.s,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- sys.s 4 Sep 2002 14:28:37 -0000 1.2
+++ sys.s 4 Sep 2002 14:35:28 -0000 1.3
@@ -121,6 +121,30 @@
.equiv N_sys_ns_mkdir.L1, N_sys_ns_mkdir + 43
.section .text
.align 16
+N_sys_ns_lseek:
+.byte 144,81,131,249,3,15,132,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,88,91,89,83,80,104
+.long N_sys_ns_lseek.L1
+.byte 81,233
+.long decui$1 - (.+4)
+.byte 91,89,83,80,104
+.long N_sys_ns_lseek.L2
+.byte 81,233
+.long decsi$1 - (.+4)
+.byte 91,89,83,80,104
+.long N_sys_ns_lseek.L3
+.byte 81,233
+.long decui$1 - (.+4)
+.byte 137,194,88,137,193,88,137,195,184,19,0,0,0,205,128,80,233
+.long encsi$1 - (.+4)
+.global N_sys_ns_lseek,NN_sys_ns_lseek,N_sys_ns_lseek.L1,N_sys_ns_lseek.L2,N_sys_ns_lseek.L3
+.equiv NN_sys_ns_lseek, N_sys_ns_lseek + 1
+.equiv N_sys_ns_lseek.L1, N_sys_ns_lseek + 36
+.equiv N_sys_ns_lseek.L2, N_sys_ns_lseek + 51
+.equiv N_sys_ns_lseek.L3, N_sys_ns_lseek + 66
+.section .text
+.align 16
N_sys_ns_listen:
.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.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- sys.wth 4 Sep 2002 14:31:22 -0000 1.3
+++ sys.wth 4 Sep 2002 14:35:28 -0000 1.4
@@ -89,6 +89,9 @@
(native sys_ns_listen dup 2 = argc drop
swap decui swap decui sys.listen (flush) 'encsi$1 jump)
+(native sys_ns_lseek dup 3 = argc drop
+ rot decui rot decsi rot decui sys.lseek (flush) 'encsi$1 jump)
+
(native sys_ns_mkdir dup 2 = argc drop
swap ws->zt swap decui sys.mkdir (flush) 'encsi$1 jump)
Index: sys_raw.nasm
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sys_raw.nasm,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -d -r1.44 -r1.45
--- sys_raw.nasm 4 Sep 2002 14:28:37 -0000 1.44
+++ sys_raw.nasm 4 Sep 2002 14:35:28 -0000 1.45
@@ -19,7 +19,6 @@
native_syscall fcntl, 3
native_syscall getcwd, 2
native_syscall ioctl, 3
-native_syscall lseek, 3
native_syscall open, 3
native_syscall read, 3
native_syscall waitpid, 3, untag ecx ; so that a cons can be used
|
|
From: <di...@us...> - 2002-09-04 14:35:31
|
Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv31654/src/builtin
Modified Files:
sys.wisp
Log Message:
Dropped |sys:raw:lseek|.
Index: sys.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/sys.wisp,v
retrieving revision 1.106
retrieving revision 1.107
diff -u -d -r1.106 -r1.107
--- sys.wisp 4 Sep 2002 14:28:37 -0000 1.106
+++ sys.wisp 4 Sep 2002 14:35:28 -0000 1.107
@@ -39,6 +39,7 @@
(kill pid sig)
(link oldname newname)
(listen s backlog)
+ (lseek fd ofs whence)
(mkdir name mode)
(pipe)
(rename oldname newname)
@@ -68,12 +69,6 @@
(my s (valloc (asm () (tn . 3)))
(asm ((decui (- res 1)) s . buffer) pt (s . 2) p (s . 1) (tn . 9) s0)
s)))))))
-
-(local (sys:lseek fd ofs whence)
- (my res (encsi ((asm NN_sys_raw_lseek) (decui fd) (decsi ofs) (decui whence)))
- (if (negative? res)
- (signal-system-error res `(sys:lseek ,fd ,ofs ,whence))
- res)))
(local (%wsv->0tv wsv)
(my i (vector-length wsv)
|
|
From: <di...@us...> - 2002-09-04 14:35:31
|
Update of /cvsroot/wisp/wisp/tools
In directory usw-pr-cvs1:/tmp/cvs-serv31654/tools
Modified Files:
worth
Log Message:
Dropped |sys:raw:lseek|.
Index: worth
===================================================================
RCS file: /cvsroot/wisp/wisp/tools/worth,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -d -r1.25 -r1.26
--- worth 4 Sep 2002 14:31:42 -0000 1.25
+++ worth 4 Sep 2002 14:35:28 -0000 1.26
@@ -645,6 +645,22 @@
(stack<=! 2)
(->register 0 reg2)
(->register 1 reg1)))
+ ((and (cons? reqs)
+ (cons? (cdr reqs))
+ (cons? (cddr reqs))
+ (null? (cdddr reqs))
+ reqs -> (reg1 reg2 reg3)
+ (assq reg1 regref#)
+ (assq reg2 regref#)
+ (assq reg3 regref#)
+ (not (eq? reg1 reg2))
+ (not (eq? reg1 reg3))
+ (not (eq? reg2 reg3)))
+ (my (reg1 reg2 reg3) reqs
+ (stack<=! 3)
+ (->register 0 reg3)
+ (->register 1 reg2)
+ (->register 2 reg1)))
(else (raise 'unable-to-conform
reqs)))))
((believe) (my claim (cdr word)
|
|
From: <di...@us...> - 2002-09-04 14:34:47
|
Update of /cvsroot/wisp/wisp/doc/examples
In directory usw-pr-cvs1:/tmp/cvs-serv31590/doc/examples
Modified Files:
Makefile.am
Removed Files:
undoc.wisp
Log Message:
Moved undoc.wisp from doc/examples to the tools directory.
Index: Makefile.am
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/examples/Makefile.am,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -d -r1.35 -r1.36
--- Makefile.am 4 Sep 2002 14:31:41 -0000 1.35
+++ Makefile.am 4 Sep 2002 14:34:44 -0000 1.36
@@ -9,7 +9,6 @@
EXTRA_DIST = closure.wisp quine.wisp signal.wisp \
rawkey.wisp \
find.wisp \
- undoc.wisp \
hello.was hello.wth banana.wth false.wth angry.wth \
.cvsignore
@@ -22,7 +21,7 @@
install-readable: closure.wisp quine.wisp signal.wisp \
rawkey.wisp \
- find.wisp undoc.wisp \
+ find.wisp \
hello.was hello.wth banana.wth false.wth angry.wth
install -m644 $^ ${exampledir}
--- undoc.wisp DELETED ---
|
|
From: <di...@us...> - 2002-09-04 14:34:47
|
Update of /cvsroot/wisp/wisp/tools
In directory usw-pr-cvs1:/tmp/cvs-serv31590/tools
Modified Files:
Makefile.am
Added Files:
undoc.wisp
Log Message:
Moved undoc.wisp from doc/examples to the tools directory.
--- NEW FILE: undoc.wisp ---
;;;; undoc.wisp - list the undocumented builtin procedures
;;
;; Copyleft © 2002 by Andres Soolo (di...@us...)
;; This file is licensed under the GNU GPL v2. If you
;; don't know what that means, please do read the GPL.
;;
;;;; @(#) $Id: undoc.wisp,v 1.1 2002/09/04 14:34:44 digg Exp $
(use lists qsort wispdoc)
(define total (make-box 0))
(define (process-package name)
(my wid (or (call-with-input-file (string-append
(if (eq? name #t)
"builtin"
(symbol->string name))
".wid") 'system-path 'signal-not
parse-wid-file)
'())
(my undoc (qsort! symbol<?
(filter-map
(lambda (c)
(my (name . value) c
(and (or (procedure? value)
(macro? value))
(not (assq (car (origin value)) wid))
name)))
(case name
((#t)
(dict->alist (regular-env)))
(symbol?
(module-ref name))
(else (raise 'huh? name)))))
(if (not (null? undoc))
(my c (length undoc)
(incr! total[] c)
(print "$[c] undocumented objects in $[name]:\n")
(print "$[undoc]\n\n"))))))
; FIXME: acquire the list automatically
; Note that cgi is not in the list.
(for-each process-package
'(#t and-let arithmetics balanced baudot block-port codecoll
collectors cpu/general cpu/ia32 display encoding files
format/as format/elfexec frer getopt ini keyboard lists
mingle morse phases promises qsort random regex string-port
strings syscalls tester time unicode unix url wispdoc xml))
(print "Total of $[total[]] undocumented procedures.\n")
Index: Makefile.am
===================================================================
RCS file: /cvsroot/wisp/wisp/tools/Makefile.am,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- Makefile.am 28 Aug 2002 20:05:43 -0000 1.12
+++ Makefile.am 4 Sep 2002 14:34:44 -0000 1.13
@@ -7,7 +7,7 @@
#### @(#) $Id$
EXTRA_DIST = .cvsignore build.sh debsnap frer was worth \
- pretty.wisp pretty.ssh.pl sfweb
+ pretty.wisp pretty.ssh.pl sfweb undoc.wisp
bin_SCRIPTS = frer was worth
|
|
From: <di...@us...> - 2002-09-04 14:34:32
|
Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv31341/src/builtin
Modified Files:
parser.wisp
Log Message:
Dropped the binary ~ syntax.
Index: parser.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/parser.wisp,v
retrieving revision 1.116
retrieving revision 1.117
diff -u -d -r1.116 -r1.117
--- parser.wisp 4 Sep 2002 14:33:35 -0000 1.116
+++ parser.wisp 4 Sep 2002 14:34:29 -0000 1.117
@@ -11,11 +11,8 @@
; 0. parentheses
; 1. binary | []
; 2. unary ' , @ |
-; 3. binary ~
;
-; Note that no space is allowed between the operator and operand,
-; except for ~ in which case the restriction only applies to the
-; left side.
+; Note that no space is allowed between the operator and operand.
; "' foo" is invalid, as is "foo| bar". Consequently, "foo|bar" and
; "foo |bar" parse differently.
;
@@ -196,7 +193,7 @@
"#"
"#$,[d]")))))))))
((#\") `(PARSED . ,(read-external-string port)))
- ((#\( #\) #\[ #\] #\~) c)
+ ((#\( #\) #\[ #\]) c)
(else
`(invalid-char . ,c)))))))))
((read-list port (head '()))
@@ -321,16 +318,7 @@
i)))
(define (read (port *stdin*))
- (my x (read-complex-structure port)
- (if (and (not (eof-object? x))
- (eqv? (peek-char port) #\~))
- (begin
- (read-char port)
- (my y (read-complex-structure port)
- (if (eof-object? y)
- (raise 'premature-eof port))
- (list 'set! x y)))
- x)))
+ (read-complex-structure port))
(define (read-until-dollar port)
(let* ((term #f)
|
|
From: <di...@us...> - 2002-09-04 14:34:32
|
Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv31341/src
Modified Files:
essence.c
Log Message:
Dropped the binary ~ syntax.
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.178
retrieving revision 1.179
diff -u -d -r1.178 -r1.179
--- essence.c 4 Sep 2002 14:33:23 -0000 1.178
+++ essence.c 4 Sep 2002 14:34:23 -0000 1.179
@@ -993,7 +993,7 @@
void*Y552[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,xri,CH('|'),jinz,V 14,dig,V 0,q,mha,l,V 3,l,V 12,tc,V 1,c,ds,V 1,r,mla,l,V 0,xri,CH('#'),jinz,V 14,dig,V 0,q,mha,l,V 3,l,V 11,tc,V 1,c,ds,V 1,r,dig,V 0,q,mha,l,V 3,l,V 10,tc,V 1,c,ds,V 1,r};
void*Y553[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,xri,CH('|'),jinz,V 22,dig,V 0,q,qi,I(1),li,rvec+4,tc,V 2,c,q,mha,l,V 3,l,V 10,tc,V 1,c,ds,V 1,r,mla,l,V 0,xri,CH('#'),jinz,V 14,dig,V 0,q,mha,l,V 3,l,V 11,tc,V 1,c,ds,V 1,r,dig,V 0,q,mha,l,V 3,l,V 10,tc,V 1,c,ds,V 1,r};
void*Y554[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,xri,CH('|'),jinz,V 14,dig,V 0,q,mha,l,V 3,l,V 12,tc,V 1,c,ds,V 1,r,mla,l,V 0,xri,CH('#'),jinz,V 45,dig,V 0,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 22,dig,V 0,q,qi,I(1),li,rvec+5,tc,V 2,c,q,mha,l,V 3,l,V 10,tc,V 1,c,ds,V 1,r,t,Z,ds,V 1,r,dig,V 0,q,mha,l,V 3,l,V 10,tc,V 1,c,ds,V 1,r};
-void*Y555[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 13,mca,subc,V 0,binzc,&branch_EVM_invargca,mlt,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 4,mla,l,V 0,r,mla,l,V 0,q,mha,l,V 1,l,V 73,tc,V 1,c,jif,V 28,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mha,l,V 2,l,V 2,tc,V 0,c,r,mla,l,V 0,q,mha,l,V 1,l,V 63,tc,V 1,c,jif,V 56,mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 65,q,mha,l0,q,qi,W(read_char_sequence),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 1,mla,l,V 1,q,qi,B 366,mha,l0,q,qi,W(stringEQ_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 3,t,CH('.'),r,mla,l,V 1,r,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mla,l,V 0,mlt,s,V 2,mla,l,V 2,xri,CH(';'),jinz,V 28,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_line),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mha,l,V 2,l,V 2,tc,V 0,c,r,mla,l,V 2,xri,CH('\''),jiz,V 28,mla,l,V 2,xri,CH('`'),jiz,V 21,mla,l,V 2,xri,CH('@'),jiz,V 14,mla,l,V 2,xri,CH(','),jiz,V 7,mla,l,V 2,xri,CH('|'),jinz,V 227,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 3,mla,l,V 3,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 17,qi,W(premature_eof),mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 116,tc,V 2,c,r,mla,l,V 3,q,mha,l,V 1,l,V 73,tc,V 1,c,jinf,V 63,mla,l,V 3,xri,CH(';'),jiz,V 56,mla,l,V 3,xri,CH('#'),jinz,V 45,qi,I(2),mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 3,mla,l,V 3,q,qi,B 548,mha,l0,q,qi,W(stringEQ_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,j,V 2,t,F,jif,V 33,qi,W(syntax),mla,l,V 0,q,mla,l,V 3,q,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 1,l,V 116,tc,V 2,c,r,mla,l,V 0,mlt,s,V 4,mla,l,V 4,xri,CH('\''),jinz,V 3,t,W(quote),r,mla,l,V 4,xri,CH('`'),jinz,V 3,t,W(quasiquote),r,mla,l,V 4,xri,CH('@'),jinz,V 3,t,W(splicing),r,mla,l,V 4,xri,CH(','),jinz,V 3,t,W(unquote),r,mla,l,V 4,xri,CH('|'),jinz,V 3,t,W(bar),r,t,F,r,mla,l,V 2,xri,CH('#'),jinz,V 652,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 5,mla,l,V 5,xri,CH('x'),jiz,V 7,mla,l,V 5,xri,CH('X'),jinz,V 22,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,t,CH('4'),r,mla,l,V 5,q,mha,l,V 1,l,V 47,tc,V 1,c,jif,V 171,mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 47,q,mha,l0,q,qi,W(read_char_sequence),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string_downcase),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(string2symbol),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 6,mla,l,V 6,mlt,s,V 7,mla,l,V 7,xri,W(t),jiz,V 7,mla,l,V 7,xri,W(true),jinz,V 3,t,BC 314,r,mla,l,V 7,xri,W(f),jiz,V 7,mla,l,V 7,xri,W(false),jinz,V 3,t,BC 315,r,mla,l,V 7,xri,W(b),jinz,V 3,t,CH('1'),r,mla,l,V 7,xri,W(o),jinz,V 3,t,CH('3'),r,mla,l,V 7,xri,W(d),jinz,V 3,t,CH('0'),r,qi,W(invalid_reader_syntax),qi,B 549,mla,l,V 6,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 1,l,V 116,tc,V 2,c,r,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 8,mla,l,V 8,xri,CH('<'),jinz,V 27,qi,W(unreadable),qi,B 550,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 116,tc,V 2,c,r,mla,l,V 8,xri,CH('('),jinz,V 3,t,CH('V'),r,mla,l,V 8,xri,CH('&'),jinz,V 3,t,CH('B'),r,mla,l,V 8,xri,CH('\\'),jinz,V 125,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_character_body),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 9,mla,l,V 9,q,mha,l0,q,qi,W(parse_character_body),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,jif,V 30,dig,V 0,q,t,T,q,t,F,q,qi,W(PARSED),dig,V 3,q,mha,l,V 1,l,V 84,tc,V 2,c,ds,V 1,ds,V 1,ds,V 1,j,V 2,t,F,ds,V 1,jinf,V 44,qi,W(syntax),qi,B 551,mla,l,V 9,q,mha,l0,q,qi,W(dwim_stringify),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 1,l,V 116,tc,V 2,c,r,mla,l,V 8,xri,CH('!'),jinz,V 28,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_line),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mha,l,V 2,l,V 2,tc,V 0,c,r,mla,l,V 8,xri,CH('|'),jinz,V 77,t,Q,mlt,s,V 10,t,Q,mlt,s,V 11,t,Q,mlt,s,V 12,t,B 552,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 10,t,B 553,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 11,t,B 554,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 12,qi,I(0),mla,l,V 10,tc,V 1,c,mha,l,V 2,l,V 2,tc,V 0,c,r,qi,W(invalid_reader_syntax),mla,l,V 5,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 4,t,B 549,j,V 33,qi,B 549,mla,l,V 5,q,mha,l0,q,qi,W(dwim_stringify),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,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(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 116,tc,V 2,c,r,mla,l,V 2,xri,CH('"'),jinz,V 31,qi,W(PARSED),mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_external_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 84,tc,V 2,c,r,mla,l,V 2,xri,CH('('),jiz,V 28,mla,l,V 2,xri,CH(')'),jiz,V 21,mla,l,V 2,xri,CH('['),jiz,V 14,mla,l,V 2,xri,CH(']'),jiz,V 7,mla,l,V 2,xri,CH('~'),jinz,V 4,mla,l,V 0,r,qi,W(invalid_char),mla,l,V 0,q,mha,l,V 1,l,V 84,tc,V 2,c,r};
+void*Y555[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 13,mca,subc,V 0,binzc,&branch_EVM_invargca,mlt,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 4,mla,l,V 0,r,mla,l,V 0,q,mha,l,V 1,l,V 73,tc,V 1,c,jif,V 28,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mha,l,V 2,l,V 2,tc,V 0,c,r,mla,l,V 0,q,mha,l,V 1,l,V 63,tc,V 1,c,jif,V 56,mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 65,q,mha,l0,q,qi,W(read_char_sequence),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 1,mla,l,V 1,q,qi,B 366,mha,l0,q,qi,W(stringEQ_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 3,t,CH('.'),r,mla,l,V 1,r,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mla,l,V 0,mlt,s,V 2,mla,l,V 2,xri,CH(';'),jinz,V 28,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_line),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mha,l,V 2,l,V 2,tc,V 0,c,r,mla,l,V 2,xri,CH('\''),jiz,V 28,mla,l,V 2,xri,CH('`'),jiz,V 21,mla,l,V 2,xri,CH('@'),jiz,V 14,mla,l,V 2,xri,CH(','),jiz,V 7,mla,l,V 2,xri,CH('|'),jinz,V 227,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 3,mla,l,V 3,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 17,qi,W(premature_eof),mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 116,tc,V 2,c,r,mla,l,V 3,q,mha,l,V 1,l,V 73,tc,V 1,c,jinf,V 63,mla,l,V 3,xri,CH(';'),jiz,V 56,mla,l,V 3,xri,CH('#'),jinz,V 45,qi,I(2),mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 3,mla,l,V 3,q,qi,B 548,mha,l0,q,qi,W(stringEQ_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,j,V 2,t,F,jif,V 33,qi,W(syntax),mla,l,V 0,q,mla,l,V 3,q,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 1,l,V 116,tc,V 2,c,r,mla,l,V 0,mlt,s,V 4,mla,l,V 4,xri,CH('\''),jinz,V 3,t,W(quote),r,mla,l,V 4,xri,CH('`'),jinz,V 3,t,W(quasiquote),r,mla,l,V 4,xri,CH('@'),jinz,V 3,t,W(splicing),r,mla,l,V 4,xri,CH(','),jinz,V 3,t,W(unquote),r,mla,l,V 4,xri,CH('|'),jinz,V 3,t,W(bar),r,t,F,r,mla,l,V 2,xri,CH('#'),jinz,V 652,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 5,mla,l,V 5,xri,CH('x'),jiz,V 7,mla,l,V 5,xri,CH('X'),jinz,V 22,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,t,CH('4'),r,mla,l,V 5,q,mha,l,V 1,l,V 47,tc,V 1,c,jif,V 171,mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 47,q,mha,l0,q,qi,W(read_char_sequence),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string_downcase),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(string2symbol),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 6,mla,l,V 6,mlt,s,V 7,mla,l,V 7,xri,W(t),jiz,V 7,mla,l,V 7,xri,W(true),jinz,V 3,t,BC 314,r,mla,l,V 7,xri,W(f),jiz,V 7,mla,l,V 7,xri,W(false),jinz,V 3,t,BC 315,r,mla,l,V 7,xri,W(b),jinz,V 3,t,CH('1'),r,mla,l,V 7,xri,W(o),jinz,V 3,t,CH('3'),r,mla,l,V 7,xri,W(d),jinz,V 3,t,CH('0'),r,qi,W(invalid_reader_syntax),qi,B 549,mla,l,V 6,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 1,l,V 116,tc,V 2,c,r,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 8,mla,l,V 8,xri,CH('<'),jinz,V 27,qi,W(unreadable),qi,B 550,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 116,tc,V 2,c,r,mla,l,V 8,xri,CH('('),jinz,V 3,t,CH('V'),r,mla,l,V 8,xri,CH('&'),jinz,V 3,t,CH('B'),r,mla,l,V 8,xri,CH('\\'),jinz,V 125,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_character_body),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 9,mla,l,V 9,q,mha,l0,q,qi,W(parse_character_body),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,jif,V 30,dig,V 0,q,t,T,q,t,F,q,qi,W(PARSED),dig,V 3,q,mha,l,V 1,l,V 84,tc,V 2,c,ds,V 1,ds,V 1,ds,V 1,j,V 2,t,F,ds,V 1,jinf,V 44,qi,W(syntax),qi,B 551,mla,l,V 9,q,mha,l0,q,qi,W(dwim_stringify),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 1,l,V 116,tc,V 2,c,r,mla,l,V 8,xri,CH('!'),jinz,V 28,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_line),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mha,l,V 2,l,V 2,tc,V 0,c,r,mla,l,V 8,xri,CH('|'),jinz,V 77,t,Q,mlt,s,V 10,t,Q,mlt,s,V 11,t,Q,mlt,s,V 12,t,B 552,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 10,t,B 553,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 11,t,B 554,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 12,qi,I(0),mla,l,V 10,tc,V 1,c,mha,l,V 2,l,V 2,tc,V 0,c,r,qi,W(invalid_reader_syntax),mla,l,V 5,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 4,t,B 549,j,V 33,qi,B 549,mla,l,V 5,q,mha,l0,q,qi,W(dwim_stringify),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,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(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 116,tc,V 2,c,r,mla,l,V 2,xri,CH('"'),jinz,V 31,qi,W(PARSED),mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_external_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 84,tc,V 2,c,r,mla,l,V 2,xri,CH('('),jiz,V 21,mla,l,V 2,xri,CH(')'),jiz,V 14,mla,l,V 2,xri,CH('['),jiz,V 7,mla,l,V 2,xri,CH(']'),jinz,V 4,mla,l,V 0,r,qi,W(invalid_char),mla,l,V 0,q,mha,l,V 1,l,V 84,tc,V 2,c,r};
void*Y556[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,mha,l,V 1,l,V 200,xri,Q,jiz,V 20,mha,l,V 1,l,V 200,mlt,s,V 1,t,Q,mat,mha,l,V 1,st,V 200,mla,l,V 1,r,t,Q,mlt,s,V 2,t,B 555,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*Y557[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 201,tc,V 1,c,xri,CH('.'),jinz,V 118,mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 202,tc,V 1,c,mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 201,tc,V 1,c,mlt,s,V 0,mla,l,V 0,xri,CH(')'),jinz,V 65,mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 202,tc,V 1,c,mha,l,V 2,l,V 5,q,mha,l,V 2,l,V 4,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mha,l,V 2,l,V 1,q,mha,l,V 2,l,V 4,q,mha,l0,q,qi,W(append_reverse),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r,qi,W(syntax),mla,l,V 0,q,mha,l,V 1,l,V 116,tc,V 2,c,r,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read),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(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 18,qi,W(premature_eof),mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 116,tc,V 2,c,j,V 0,mla,l,V 1,q,mha,l,V 1,l,V 104,tc,V 1,c,q,mha,l,V 2,l,V 5,q,dig,V 1,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,dig,V 0,mat,mha,l,V 2,st,V 5,ds,V 1,mha,l,V 2,l,V 6,tc,V 0,c,r};
void*Y558[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 8,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,Q,s,V 1,mla,l,V 0,q,mha,l,V 1,l,V 201,tc,V 1,c,mlt,s,V 2,mla,l,V 2,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 13,qi,W(EOF_INSIDE_LIST),qi,F,mha,l,V 1,l,V 116,tc,V 2,c,r,mla,l,V 2,xri,CH(')'),jinz,V 30,mla,l,V 0,q,mha,l,V 1,l,V 202,tc,V 1,c,mla,l,V 1,q,mha,l0,q,qi,W(reverse),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r,mla,l,V 2,xri,CH('.'),jinz,V 185,mla,l,V 0,q,mha,l,V 1,l,V 202,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(read),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 3,mla,l,V 3,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 16,qi,W(premature_eof),mla,l,V 0,q,mha,l,V 1,l,V 116,tc,V 2,c,j,V 0,mla,l,V 0,q,mha,l,V 1,l,V 201,tc,V 1,c,xri,CH(')'),jinz,V 54,mla,l,V 1,xri,Q,jinz,V 13,qi,W(syntax),qi,CH(')'),mha,l,V 1,l,V 116,tc,V 2,c,r,mla,l,V 0,q,mha,l,V 1,l,V 202,tc,V 1,c,mla,l,V 1,q,mla,l,V 3,q,mha,l0,q,qi,W(append_reverse),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r,mla,l,V 3,q,mha,l,V 1,l,V 104,tc,V 1,c,mlt,s,V 4,mla,l,V 4,mlt,s,V 5,t,Q,mlt,s,V 6,t,B 557,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 6,mla,l,V 6,tc,V 0,c,r,mla,l,V 0,q,mha,l0,q,qi,W(read),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 7,mla,l,V 7,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 16,qi,W(premature_eof),mla,l,V 0,q,mha,l,V 1,l,V 116,tc,V 2,c,j,V 0,mla,l,V 0,q,mla,l,V 7,q,mla,l,V 1,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 203,tc,V 2,c,r};
@@ -1001,7 +1001,7 @@
void*Y560[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 202,tc,V 1,c,mlt,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(eof_object_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,xri,CH('('),jinz,V 14,dig,V 0,q,mha,l,V 1,l,V 203,tc,V 1,c,ds,V 1,r,mla,l,V 0,xri,CH('V'),jinz,V 30,dig,V 0,q,qi,CH(')'),mha,l,V 1,l,V 204,tc,V 2,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,xri,CH('B'),jinz,V 100,dig,V 0,q,mha,l,V 1,l,V 201,tc,V 1,c,xri,CH('.'),jinz,V 22,dig,V 0,q,mha,l,V 1,l,V 202,tc,V 1,c,mha,l,V 1,l,V 105,tc,V 0,c,ds,V 1,r,dig,V 0,q,mha,l,V 1,l,V 206,tc,V 1,c,mlt,s,V 1,mla,l,V 1,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 15,qi,W(premature_eof),dig,V 1,q,mha,l,V 1,l,V 116,tc,V 2,c,j,V 0,mla,l,V 1,q,mha,l,V 1,l,V 105,tc,V 1,c,ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 83,tc,V 1,c,jif,V 42,t,CH('0'),q,mla,l,V 0,q,t,CH('4'),q,dig,V 1,q,dig,V 3,jilt,V 15,dig,V 0,q,dig,V 2,jilt,V 4,t,T,j,V 2,t,F,j,V 2,t,F,ds,V 1,ds,V 1,ds,V 1,j,V 2,t,F,jif,V 92,dig,V 0,q,mha,l,V 1,l,V 202,tc,V 1,c,q,mla,l,V 0,mlt,s,V 2,mla,l,V 2,xri,CH('0'),jinz,V 4,t,I(10),j,V 46,mla,l,V 2,xri,CH('1'),jinz,V 4,t,I(2),j,V 35,mla,l,V 2,xri,CH('2'),jinz,V 4,t,I(4),j,V 24,mla,l,V 2,xri,CH('3'),jinz,V 4,t,I(8),j,V 13,mla,l,V 2,xri,CH('4'),jinz,V 4,t,I(16),j,V 2,t,F,q,mha,l0,q,qi,W(string2number),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 85,tc,V 1,c,jif,V 25,t,W(PARSED),q,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,xors,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 15,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 134,tc,V 1,c,jif,V 91,dig,V 0,q,mha,l,V 1,l,V 206,tc,V 1,c,mlt,s,V 3,mla,l,V 3,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 15,qi,W(premature_eof),dig,V 1,q,mha,l,V 1,l,V 116,tc,V 2,c,j,V 0,mla,l,V 0,xri,W(bar),jinz,V 17,mla,l,V 3,q,qi,W($),mha,l,V 1,l,V 104,tc,V 2,c,ds,V 1,r,mla,l,V 0,q,mla,l,V 3,q,mha,l,V 1,l,V 104,tc,V 2,c,ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 133,tc,V 1,c,jif,V 38,mla,l,V 0,q,mha,l0,q,qi,W(string2number),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 17,mla,l,V 0,q,mha,l0,q,qi,W(string2symbol),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,j,V 2,t,F,jinf,V 14,qi,W(syntax),mla,l,V 0,q,mha,l,V 1,l,V 116,tc,V 2,c,ds,V 1,r};
void*Y561[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,mlt,s,V 1,mla,l,V 1,xri,CH('['),jinz,V 80,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,qi,W(sub),mha,l,V 2,l,V 1,q,mha,l,V 2,l,V 0,q,qi,CH(']'),mha,l,V 1,l,V 204,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,mat,mha,l,V 2,st,V 1,qi,F,mha,l,V 2,l,V 2,tc,V 1,c,ds,V 1,r,mla,l,V 1,xri,CH('|'),jinz,V 220,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,q,mha,l,V 1,l,V 73,tc,V 1,c,jinf,V 6,dig,V 0,xri,CH('|'),jinz,V 26,qi,W(syntax),qi,CH('|'),dig,V 2,q,mha,l,V 1,l,V 127,tc,V 2,c,q,mha,l,V 1,l,V 116,tc,V 2,c,j,V 0,ds,V 1,mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 205,tc,V 1,c,q,dig,V 0,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 18,qi,W(premature_eof),mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 116,tc,V 2,c,j,V 0,dig,V 1,jif,V 39,mha,l,V 2,l,V 1,q,dig,V 1,q,mha,l,V 1,l,V 104,tc,V 1,c,q,mha,l0,q,qi,W(append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mat,mha,l,V 2,st,V 1,j,V 25,qi,W(scoped),mha,l,V 2,l,V 1,q,dig,V 2,q,mha,l,V 1,l,V 104,tc,V 3,c,mat,mha,l,V 2,st,V 1,ds,V 1,qi,T,mha,l,V 2,l,V 2,tc,V 1,c,ds,V 1,r,t,F,ds,V 1,r};
void*Y562[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 205,tc,V 1,c,mlt,s,V 1,mla,l,V 1,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 30,t,Q,mlt,s,V 2,t,B 561,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 2,qi,F,mla,l,V 2,tc,V 1,c,j,V 0,mla,l,V 1,r};
-void*Y563[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 0,binc,&branch_EVM_invargca,mac,mca,subc,V 2,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 0,jizc,V 6,mac,p,s,V 0,j,V 13,mac,mha,l0,q,qi,W(XstdinX),t,&NN_dict_ref_2,tc,V 2,c,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 206,tc,V 1,c,mlt,s,V 1,mla,l,V 1,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 29,mla,l,V 0,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,CH('~'),jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 86,mla,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mla,l,V 0,q,mha,l,V 1,l,V 206,tc,V 1,c,mlt,s,V 2,mla,l,V 2,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 16,qi,W(premature_eof),mla,l,V 0,q,mha,l,V 1,l,V 116,tc,V 2,c,j,V 0,qi,W(set_bang),mla,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 104,tc,V 3,c,r,mla,l,V 1,r};
+void*Y563[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binc,&branch_EVM_invargca,mac,mca,subc,V 2,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 0,jizc,V 6,mac,p,s,V 0,j,V 13,mac,mha,l0,q,qi,W(XstdinX),t,&NN_dict_ref_2,tc,V 2,c,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 206,tc,V 1,c,r};
void*Y566[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 12,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,mlt,s,V 1,mla,l,V 1,xri,CH('"'),jinz,V 11,t,F,mat,mha,l,V 2,st,V 1,t,Z,r,mla,l,V 1,xri,CH('$'),jinz,V 154,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 2,mla,l,V 2,xri,CH('$'),jiz,V 21,mla,l,V 2,xri,CH(','),jiz,V 14,mla,l,V 2,xri,CH('('),jiz,V 7,mla,l,V 2,xri,CH('['),jinz,V 11,t,T,mat,mha,l,V 2,st,V 1,t,Z,r,mla,l,V 2,xri,CH(10),jiz,V 7,mla,l,V 2,xri,CH(13),jinz,V 60,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 73,tc,V 1,c,jif,V 21,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,j,V -51,mha,l,V 3,l,V 1,tc,V 0,c,r,qi,CH('$'),mha,l,V 3,l,V 0,tc,V 1,c,mha,l,V 3,l,V 1,tc,V 0,c,r,mla,l,V 1,xri,CH(10),jiz,V 7,mla,l,V 1,xri,CH(13),jinz,V 13,qi,W(UNTERMINATED_STRING),qi,F,mha,l,V 1,l,V 116,tc,V 2,c,r,mla,l,V 1,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 13,qi,W(EOF_INSIDE_STRING),qi,F,mha,l,V 1,l,V 116,tc,V 2,c,r,mla,l,V 0,mlt,s,V 3,mla,l,V 3,xri,CH('\\'),jinz,V 945,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,q,dig,V 0,xri,CH('z'),jinz,V 4,t,CH(0),j,V 906,dig,V 0,xri,CH('a'),jinz,V 4,t,CH(7),j,V 896,dig,V 0,xri,CH('b'),jinz,V 4,t,CH(8),j,V 886,dig,V 0,xri,CH('t'),jinz,V 4,t,CH(9),j,V 876,dig,V 0,xri,CH('n'),jinz,V 4,t,CH(10),j,V 866,dig,V 0,xri,CH('f'),jinz,V 4,t,CH(12),j,V 856,dig,V 0,xri,CH('r'),jinz,V 4,t,CH(13),j,V 846,dig,V 0,xri,CH('e'),jinz,V 4,t,CH(27),j,V 836,dig,V 0,xri,CH('u'),jiz,V 6,dig,V 0,xri,CH('U'),jinz,V 202,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,CH('['),jinz,V 134,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 45,q,qi,I(8),mha,l0,q,qi,W(read_char_sequence),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,CH(']'),jinz,V 21,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,j,V 12,qi,W(UNTERMINATED_CHAR_CODE),qi,F,mha,l,V 1,l,V 116,tc,V 2,c,dig,V 0,q,qi,I(16),mha,l0,q,qi,W(string2integer),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 1,l,V 103,tc,V 1,c,ds,V 1,j,V 43,qi,W(syntax),qi,B 564,dig,V 3,q,mha,l0,q,qi,W(dwim_stringify),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 1,l,V 116,tc,V 2,c,j,V 622,dig,V 0,xri,CH(10),jiz,V 6,dig,V 0,xri,CH(13),jinz,V 55,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 73,tc,V 1,c,jif,V 21,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,j,V -51,t,B 565,j,V 555,dig,V 1,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 14,qi,W(EOF_INSIDE_STRING),qi,F,mha,l,V 1,l,V 116,tc,V 2,c,j,V 523,t,CH('0'),mlt,s,V 4,dig,V 1,mlt,s,V 5,t,CH('3'),mlt,s,V 6,mla,l,V 5,q,mla,l,V 4,jilt,V 17,mla,l,V 6,q,mla,l,V 5,jilt,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 275,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 7,mla,l,V 7,q,mha,l,V 1,l,V 83,tc,V 1,c,jif,V 42,t,CH('0'),q,mla,l,V 7,q,t,CH('7'),q,dig,V 1,q,dig,V 3,jilt,V 15,dig,V 0,q,dig,V 2,jilt,V 4,t,T,j,V 2,t,F,j,V 2,t,F,ds,V 1,ds,V 1,ds,V 1,j,V 2,t,F,jif,V 155,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,q,mha,l,V 1,l,V 83,tc,V 1,c,jif,V 41,t,CH('0'),q,dig,V 1,q,t,CH('7'),q,dig,V 1,q,dig,V 3,jilt,V 15,dig,V 0,q,dig,V 2,jilt,V 4,t,T,j,V 2,t,F,j,V 2,t,F,ds,V 1,ds,V 1,ds,V 1,j,V 2,t,F,jif,V 39,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,dig,V 2,q,mla,l,V 7,q,dig,V 2,q,mha,l,V 1,l,V 127,tc,V 3,c,j,V 15,dig,V 2,q,mla,l,V 7,q,mha,l,V 1,l,V 127,tc,V 2,c,ds,V 1,j,V 11,dig,V 1,q,mha,l,V 1,l,V 127,tc,V 1,c,q,qi,I(8),mha,l0,q,qi,W(string2integer),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 1,l,V 103,tc,V 1,c,j,V 203,t,CH('4'),mlt,s,V 8,dig,V 1,mlt,s,V 9,t,CH('7'),mlt,s,V 10,mla,l,V 9,q,mla,l,V 8,jilt,V 17,mla,l,V 10,q,mla,l,V 9,jilt,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 156,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 11,mla,l,V 11,q,mha,l,V 1,l,V 83,tc,V 1,c,jif,V 42,t,CH('0'),q,mla,l,V 11,q,t,CH('7'),q,dig,V 1,q,dig,V 3,jilt,V 15,dig,V 0,q,dig,V 2,jilt,V 4,t,T,j,V 2,t,F,j,V 2,t,F,ds,V 1,ds,V 1,ds,V 1,j,V 2,t,F,jif,V 36,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,dig,V 1,q,mla,l,V 11,q,mha,l,V 1,l,V 127,tc,V 2,c,j,V 11,dig,V 1,q,mha,l,V 1,l,V 127,tc,V 1,c,q,qi,I(8),mha,l0,q,qi,W(string2integer),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 1,l,V 103,tc,V 1,c,j,V 2,dig,V 1,ds,V 1,ds,V 1,j,V 3,mla,l,V 0,q,mha,l,V 3,l,V 0,tc,V 1,c,mha,l,V 3,l,V 1,tc,V 0,c,r};
void*Y567[]={j,V 1,V 0,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 566,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 1,mla,l,V 1,tc,V 0,c,r};
void*Y568[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,F,mlt,s,V 1,t,B 567,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(collect_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 2,mla,l,V 2,q,mla,l,V 1,q,mha,l,V 1,l,V 84,tc,V 2,c,r};
|
|
From: <di...@us...> - 2002-09-04 14:33:57
|
Update of /cvsroot/wisp/wisp/doc In directory usw-pr-cvs1:/tmp/cvs-serv30995/doc Modified Files: paw.txt wisp.vim Log Message: Borrowed the box external representation from PLT MzScheme. Index: paw.txt =================================================================== RCS file: /cvsroot/wisp/wisp/doc/paw.txt,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- paw.txt 26 Aug 2002 14:02:42 -0000 1.9 +++ paw.txt 4 Sep 2002 14:33:22 -0000 1.10 @@ -211,6 +211,9 @@ (It is worth noting that such whitespace is very rarely used in the Lisp programming style.) + There should be a special exception for boxes since ampersand is + a legitimate object starter character. + 13. Explicitly declared global variables <inc> PAW-13 proposes to implement global variables with explicit Index: wisp.vim =================================================================== RCS file: /cvsroot/wisp/wisp/doc/wisp.vim,v retrieving revision 1.218 retrieving revision 1.219 diff -u -d -r1.218 -r1.219 --- wisp.vim 4 Sep 2002 14:32:19 -0000 1.218 +++ wisp.vim 4 Sep 2002 14:33:22 -0000 1.219 @@ -29,7 +29,7 @@ syn match wispRootError oneline "[])]" syn keyword wispRootError . -syn cluster wispRoot contains=wispQuoted,wispUnquoted,wispQuoteError,wispStruc,wispStrucTag,wispScope,wispSet,wispString,@wispLiteral,@wispLowlitWords,wispComment,wispNestedComment,wispRootError +syn cluster wispRoot contains=wispQuoted,wispUnquoted,wispQuoteError,wispStruc,wispStrucTag,wispScope,wispSet,wispString,@wispLiteral,@wispLowlitWords,wispComment,wispNestedComment,wispRootError,wispBox syn cluster wispTop contains=@wispRoot,@wispHilitWords syn cluster wispLiteral contains=wispChar,wispBoolean,wispNumber syn cluster wispWords contains=@wispHilitWords,@wispLowlitWords @@ -50,6 +50,8 @@ syn match wispSet "\~" syn match wispScope "|" +syn match wispBox "#&\.\?" + " Quoted and quasiquoted stuff syn region wispQuoted matchgroup=Delimiter start="['`]\+" end=![ \t()\[\]|";~]!me=e-1 contains=@wispRoot @@ -381,6 +383,7 @@ hi link wispKeyword Delimiter hi link wispDot Delimiter + hi link wispBox Delimiter hi link wispRef PreProc hi link wispStrucTag PreProc hi link wispScope PreProc |
|
From: <di...@us...> - 2002-09-04 14:33:39
|
Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv30995/src/builtin
Modified Files:
builtin.wisp parser.wisp tostring.wisp
Log Message:
Borrowed the box external representation from PLT MzScheme.
Index: builtin.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/builtin.wisp,v
retrieving revision 1.209
retrieving revision 1.210
diff -u -d -r1.209 -r1.210
--- builtin.wisp 4 Sep 2002 14:29:47 -0000 1.209
+++ builtin.wisp 4 Sep 2002 14:33:34 -0000 1.210
@@ -164,10 +164,18 @@
;;;; Quasiquotation
+; Wisp guarantees that quasiquoting always copies the quasiquoted conses,
+; vectors, and boxes even when they do not contain any |unquote| forms.
+; The guarantee is void if |cons| (or another structure-constructor) is
+; bound to a wrong object, of course.
(defmacro (quasiquote i)
(cond
((cons? i) (quasiquote-cons i))
((vector? i) `(list->vector (,'quasiquote ,(vector->list i))))
+ ((box? i) (try (my v (box-ref i)
+ (list 'make-box (list 'quasiquote v)))
+ (except (undefined)
+ `(make-box))))
(else (list 'quote i))))
(define (process-unquote-splicing splicee rest)
Index: parser.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/parser.wisp,v
retrieving revision 1.115
retrieving revision 1.116
diff -u -d -r1.115 -r1.116
--- parser.wisp 4 Sep 2002 14:32:24 -0000 1.115
+++ parser.wisp 4 Sep 2002 14:33:35 -0000 1.116
@@ -162,6 +162,7 @@
(case (read-char port)
((#\<) (raise 'unreadable (string-copy "#<")))
((#\open) #\V)
+ ((#\&) #\B)
((#\\) (my body (read-character-body port)
(or (and (parse-character-body body)
=> (cut cons 'PARSED <>))
@@ -170,24 +171,24 @@
(read-line port)
(token-read-loop))
((#\|)
- (letrec (((state-normal level)
- (case (read-char port)
- ((#\|) (state-potdec level))
- ((#\#) (state-potinc level))
- (else (state-normal level))))
- ((state-potinc level)
- (case (read-char port)
- ((#\|) (state-normal (+ level 1)))
- ((#\#) (state-potinc level))
- (else (state-normal level))))
- ((state-potdec level)
- (case (read-char port)
- ((#\|) (state-potdec level))
- ((#\#) (if (not (zero? level))
- (state-normal (- level 1))))
- (else (state-normal level)))))
- (state-normal 0))
- (token-read-loop))
+ (letrec (((state-normal level)
+ (case (read-char port)
+ ((#\|) (state-potdec level))
+ ((#\#) (state-potinc level))
+ (else (state-normal level))))
+ ((state-potinc level)
+ (case (read-char port)
+ ((#\|) (state-normal (+ level 1)))
+ ((#\#) (state-potinc level))
+ (else (state-normal level))))
+ ((state-potdec level)
+ (case (read-char port)
+ ((#\|) (state-potdec level))
+ ((#\#) (if (not (zero? level))
+ (state-normal (- level 1))))
+ (else (state-normal level)))))
+ (state-normal 0))
+ (token-read-loop))
(else
(raise 'invalid-reader-syntax
(string-copy
@@ -262,6 +263,15 @@
(read-list port))
((eqv? t #\V)
(list->vector (read-block port #\close)))
+ ((eqv? t #\B)
+ (if (eqv? (peek-token port) #\.)
+ (begin
+ (read-token port)
+ (make-box))
+ (my o (read-complex-structure port)
+ (if (eof-object? o)
+ (raise 'premature-eof port))
+ (make-box o))))
((and (char? t) (char<=? #\0 t #\4))
(string->number (read-token port) (case t
((#\0) 10)
Index: tostring.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/tostring.wisp,v
retrieving revision 1.74
retrieving revision 1.75
diff -u -d -r1.74 -r1.75
--- tostring.wisp 4 Sep 2002 14:29:47 -0000 1.74
+++ tostring.wisp 4 Sep 2002 14:33:35 -0000 1.75
@@ -55,6 +55,12 @@
(set! n[i] (loop s[i]))
(incr! i)))
n)))
+ ((box? s)
+ (my n (make-box)
+ (acons! seen s n)
+ (try (set! n[] (loop s[]))
+ (except (undefined)))
+ n))
(else
(cons! unrecognized s)
(acons! seen s s)
@@ -243,13 +249,22 @@
(emit ", slot count ")
(emit (integer->string (record-type-slot-count s)))
(emit #\>))
- ((box? s) ; boxes are intentionally left non-readable
- (try (my datum (box-ref s)
- (emit "#<box: ")
- (loop datum)
- (emit #\>))
- (except (undefined)
- (emit "#<empty box>"))))
- (else (emit "#<???>"))))))))))
+ ((box? s)
+ (if (not (check-duplicity s))
+ (begin
+ (emit "#&")
+ (try (my datum (box-ref s)
+ ; emit space unless the object would start
+ ; by a left parenthesis
+ (if (not (or (and (cons? datum)
+ (not (assq datum dupl)))
+ (null? datum)))
+ (emit #\space))
+ (loop datum))
+ (except (undefined)
+ (emit #\.))))))
+ (else (emit "#<??? ")
+ (emit (stringify-address s))
+ (emit #\>))))))))))
; vim: lispwords+=,local
|
|
From: <di...@us...> - 2002-09-04 14:33:37
|
Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv30995/src
Modified Files:
essence.c
Log Message:
Borrowed the box external representation from PLT MzScheme.
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.177
retrieving revision 1.178
diff -u -d -r1.177 -r1.178
--- essence.c 4 Sep 2002 14:32:19 -0000 1.177
+++ essence.c 4 Sep 2002 14:33:23 -0000 1.178
@@ -498,558 +498,562 @@
void*Y44[]={j,V 1,V 0,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 104,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[]={j,V 1,V 0,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 116,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[]={j,V 1,V 0,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 104,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[]={j,V 1,V 0,binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 85,tc,V 1,c,jif,V 19,dig,V 0,q,mha,l0,q,qi,W(quasiquote_cons),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 2,r,dig,V 0,q,mha,l,V 1,l,V 157,tc,V 1,c,jif,V 63,qi,W(list2vector),qi,W(quasiquote),dig,V 2,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 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,ds,V 2,r,qi,W(quote),dig,V 1,q,mha,l,V 1,l,V 104,tc,V 2,c,ds,V 2,r};
-void*Y48[]={j,V 1,V 0,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 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,ds,V 2,r};
-void*Y49[]={j,V 1,V 0,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 85,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 85,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 84,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,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 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,qi,W(quasiquote),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,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 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,qi,W(quasiquote),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,ds,V 1,r,qi,W(quote),dig,V 1,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,ds,V 1,r};
-void*Y50[]={j,V 1,V 0,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 85,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 85,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 85,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 85,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 84,tc,V 2,c,q,mha,l,V 1,l,V 104,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 84,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 84,tc,V 2,c,q,mha,l,V 1,l,V 104,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 84,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 104,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 84,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 84,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 84,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 84,tc,V 2,c,q,mla,l,V 1,q,mha,l,V 1,l,V 84,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 84,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*Y51[]={j,V 1,V 0,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 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,ds,V 1,r};
-void*Y52[]={j,V 1,V 0,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 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 116,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 116,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 51,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 84,tc,V 2,c,q,mha,l,V 1,l,V 84,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 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 84,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 84,tc,V 2,c,q,mha,l,V 1,l,V 84,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 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,r};
-void*Y53[]={j,V 1,V 0,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 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,r};
-void*Y54[]={j,V 1,V 0,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 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,r};
[...1386 lines suppressed...]
struct cons conses [] = {
@@ -2059,13 +2066,13 @@
[328]{car:CH('C'),cdr:BC 327},
[329]{car:CH('A'),cdr:BC 328},
[330]{car:CH('e'),cdr:BC 329},
-[331]{car:B 668,cdr:Q},
-[332]{car:B 667,cdr:BC 331},
-[333]{car:B 669,cdr:Q},
+[331]{car:B 671,cdr:Q},
+[332]{car:B 670,cdr:BC 331},
+[333]{car:B 672,cdr:Q},
};
/* The root node of the compiled builtin library */
struct node *
-builtin_root = B 671;
+builtin_root = B 674;
/* essence.c ends here */
|
|
From: <di...@us...> - 2002-09-04 14:32:53
|
Update of /cvsroot/wisp/wisp/doc In directory usw-pr-cvs1:/tmp/cvs-serv30646/doc Modified Files: wisp.vim Log Message: Revised the list of named characters. Index: wisp.vim =================================================================== RCS file: /cvsroot/wisp/wisp/doc/wisp.vim,v retrieving revision 1.217 retrieving revision 1.218 diff -u -d -r1.217 -r1.218 --- wisp.vim 4 Sep 2002 14:29:42 -0000 1.217 +++ wisp.vim 4 Sep 2002 14:32:19 -0000 1.218 @@ -71,9 +71,9 @@ syn case ignore -syn keyword wispChar #\\backspace #\\bell #\\close #\\del #\\formfeed -syn keyword wispChar #\\newline #\\nul #\\open #\\return #\\sharp -syn keyword wispChar #\\space #\\tab +syn keyword wispChar #\\backspace #\\bell #\\close #\\linefeed +syn keyword wispChar #\\newline #\\nul #\\null #\\open #\\page +syn keyword wispChar #\\return #\\rubout #\\space #\\tab #\\vtab syn match wispChar oneline ,#\\[^ \t]$, syn match wispChar oneline ,#\\[^ \t][ \t()\[\]],me=e-1 |
|
From: <di...@us...> - 2002-09-04 14:32:27
|
Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv30646/src/builtin
Modified Files:
parser.wisp
Log Message:
Revised the list of named characters.
Index: parser.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/parser.wisp,v
retrieving revision 1.114
retrieving revision 1.115
diff -u -d -r1.114 -r1.115
--- parser.wisp 26 Aug 2002 16:18:24 -0000 1.114
+++ parser.wisp 4 Sep 2002 14:32:24 -0000 1.115
@@ -27,17 +27,19 @@
; when auto-indenting or matching parentheses.
(local char-names
'((nul . #\U+00)
+ (null . #\U+00)
(bell . #\U+07)
(backspace . #\U+08)
(tab . #\U+09)
(newline . #\U+0A)
- (formfeed . #\U+0C)
+ (linefeed . #\U+0A)
+ (vtab . #\U+0B)
+ (page . #\U+0C)
(return . #\U+0D)
(space . #\U+20)
- (sharp . #\U+23)
(open . #\U+28)
(close . #\U+29)
- (del . #\U+7F)))
+ (rubout . #\U+7F)))
(define (char->control-char ch)
(cond
@@ -137,7 +139,7 @@
((#\@) 'splicing)
((#\,) 'unquote)
((#\|) 'bar)))))) ; it's special
- ((#\sharp)
+ ((#\#)
(my d (peek-char port)
(cond
; #x is a special case: think #xFED
|
|
From: <di...@us...> - 2002-09-04 14:32:27
|
Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv30646/src
Modified Files:
essence.c wordlist.txt
Log Message:
Revised the list of named characters.
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.176
retrieving revision 1.177
diff -u -d -r1.176 -r1.177
--- essence.c 4 Sep 2002 14:30:44 -0000 1.176
+++ essence.c 4 Sep 2002 14:32:19 -0000 1.177
@@ -991,7 +991,7 @@
void*Y550[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,xri,CH('|'),jinz,V 14,dig,V 0,q,mha,l,V 3,l,V 12,tc,V 1,c,ds,V 1,r,mla,l,V 0,xri,CH('#'),jinz,V 14,dig,V 0,q,mha,l,V 3,l,V 11,tc,V 1,c,ds,V 1,r,dig,V 0,q,mha,l,V 3,l,V 10,tc,V 1,c,ds,V 1,r};
void*Y551[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,xri,CH('|'),jinz,V 22,dig,V 0,q,qi,I(1),li,rvec+4,tc,V 2,c,q,mha,l,V 3,l,V 10,tc,V 1,c,ds,V 1,r,mla,l,V 0,xri,CH('#'),jinz,V 14,dig,V 0,q,mha,l,V 3,l,V 11,tc,V 1,c,ds,V 1,r,dig,V 0,q,mha,l,V 3,l,V 10,tc,V 1,c,ds,V 1,r};
void*Y552[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,xri,CH('|'),jinz,V 14,dig,V 0,q,mha,l,V 3,l,V 12,tc,V 1,c,ds,V 1,r,mla,l,V 0,xri,CH('#'),jinz,V 45,dig,V 0,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 22,dig,V 0,q,qi,I(1),li,rvec+5,tc,V 2,c,q,mha,l,V 3,l,V 10,tc,V 1,c,ds,V 1,r,t,Z,ds,V 1,r,dig,V 0,q,mha,l,V 3,l,V 10,tc,V 1,c,ds,V 1,r};
-void*Y553[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 13,mca,subc,V 0,binzc,&branch_EVM_invargca,mlt,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 4,mla,l,V 0,r,mla,l,V 0,q,mha,l,V 1,l,V 73,tc,V 1,c,jif,V 28,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mha,l,V 2,l,V 2,tc,V 0,c,r,mla,l,V 0,q,mha,l,V 1,l,V 63,tc,V 1,c,jif,V 56,mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 65,q,mha,l0,q,qi,W(read_char_sequence),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 1,mla,l,V 1,q,qi,B 364,mha,l0,q,qi,W(stringEQ_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 3,t,CH('.'),r,mla,l,V 1,r,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mla,l,V 0,mlt,s,V 2,mla,l,V 2,xri,CH(';'),jinz,V 28,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_line),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mha,l,V 2,l,V 2,tc,V 0,c,r,mla,l,V 2,xri,CH('\''),jiz,V 28,mla,l,V 2,xri,CH('`'),jiz,V 21,mla,l,V 2,xri,CH('@'),jiz,V 14,mla,l,V 2,xri,CH(','),jiz,V 7,mla,l,V 2,xri,CH('|'),jinz,V 227,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 3,mla,l,V 3,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 17,qi,W(premature_eof),mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 116,tc,V 2,c,r,mla,l,V 3,q,mha,l,V 1,l,V 73,tc,V 1,c,jinf,V 63,mla,l,V 3,xri,CH(';'),jiz,V 56,mla,l,V 3,xri,CH('#'),jinz,V 45,qi,I(2),mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 3,mla,l,V 3,q,qi,B 546,mha,l0,q,qi,W(stringEQ_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,j,V 2,t,F,jif,V 33,qi,W(syntax),mla,l,V 0,q,mla,l,V 3,q,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 1,l,V 116,tc,V 2,c,r,mla,l,V 0,mlt,s,V 4,mla,l,V 4,xri,CH('\''),jinz,V 3,t,W(quote),r,mla,l,V 4,xri,CH('`'),jinz,V 3,t,W(quasiquote),r,mla,l,V 4,xri,CH('@'),jinz,V 3,t,W(splicing),r,mla,l,V 4,xri,CH(','),jinz,V 3,t,W(unquote),r,mla,l,V 4,xri,CH('|'),jinz,V 3,t,W(bar),r,t,F,r,mla,l,V 2,xri,CH('#'),jinz,V 642,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 5,mla,l,V 5,xri,CH('x'),jiz,V 7,mla,l,V 5,xri,CH('X'),jinz,V 22,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,t,CH('4'),r,mla,l,V 5,q,mha,l,V 1,l,V 47,tc,V 1,c,jif,V 171,mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 47,q,mha,l0,q,qi,W(read_char_sequence),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string_downcase),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(string2symbol),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 6,mla,l,V 6,mlt,s,V 7,mla,l,V 7,xri,W(t),jiz,V 7,mla,l,V 7,xri,W(true),jinz,V 3,t,BC 310,r,mla,l,V 7,xri,W(f),jiz,V 7,mla,l,V 7,xri,W(false),jinz,V 3,t,BC 311,r,mla,l,V 7,xri,W(b),jinz,V 3,t,CH('1'),r,mla,l,V 7,xri,W(o),jinz,V 3,t,CH('3'),r,mla,l,V 7,xri,W(d),jinz,V 3,t,CH('0'),r,qi,W(invalid_reader_syntax),qi,B 547,mla,l,V 6,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 1,l,V 116,tc,V 2,c,r,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 8,mla,l,V 8,xri,CH('<'),jinz,V 27,qi,W(unreadable),qi,B 548,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 116,tc,V 2,c,r,mla,l,V 8,xri,CH('('),jinz,V 3,t,CH('V'),r,mla,l,V 8,xri,CH('\\'),jinz,V 125,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_character_body),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 9,mla,l,V 9,q,mha,l0,q,qi,W(parse_character_body),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,jif,V 30,dig,V 0,q,t,T,q,t,F,q,qi,W(PARSED),dig,V 3,q,mha,l,V 1,l,V 84,tc,V 2,c,ds,V 1,ds,V 1,ds,V 1,j,V 2,t,F,ds,V 1,jinf,V 44,qi,W(syntax),qi,B 549,mla,l,V 9,q,mha,l0,q,qi,W(dwim_stringify),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 1,l,V 116,tc,V 2,c,r,mla,l,V 8,xri,CH('!'),jinz,V 28,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_line),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mha,l,V 2,l,V 2,tc,V 0,c,r,mla,l,V 8,xri,CH('|'),jinz,V 77,t,Q,mlt,s,V 10,t,Q,mlt,s,V 11,t,Q,mlt,s,V 12,t,B 550,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 10,t,B 551,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 11,t,B 552,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 12,qi,I(0),mla,l,V 10,tc,V 1,c,mha,l,V 2,l,V 2,tc,V 0,c,r,qi,W(invalid_reader_syntax),mla,l,V 5,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 4,t,B 547,j,V 33,qi,B 547,mla,l,V 5,q,mha,l0,q,qi,W(dwim_stringify),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,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(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 116,tc,V 2,c,r,mla,l,V 2,xri,CH('"'),jinz,V 31,qi,W(PARSED),mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_external_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 84,tc,V 2,c,r,mla,l,V 2,xri,CH('('),jiz,V 28,mla,l,V 2,xri,CH(')'),jiz,V 21,mla,l,V 2,xri,CH('['),jiz,V 14,mla,l,V 2,xri,CH(']'),jiz,V 7,mla,l,V 2,xri,CH('~'),jinz,V 4,mla,l,V 0,r,qi,W(invalid_char),mla,l,V 0,q,mha,l,V 1,l,V 84,tc,V 2,c,r};
+void*Y553[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 13,mca,subc,V 0,binzc,&branch_EVM_invargca,mlt,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 4,mla,l,V 0,r,mla,l,V 0,q,mha,l,V 1,l,V 73,tc,V 1,c,jif,V 28,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mha,l,V 2,l,V 2,tc,V 0,c,r,mla,l,V 0,q,mha,l,V 1,l,V 63,tc,V 1,c,jif,V 56,mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 65,q,mha,l0,q,qi,W(read_char_sequence),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 1,mla,l,V 1,q,qi,B 364,mha,l0,q,qi,W(stringEQ_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 3,t,CH('.'),r,mla,l,V 1,r,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mla,l,V 0,mlt,s,V 2,mla,l,V 2,xri,CH(';'),jinz,V 28,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_line),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mha,l,V 2,l,V 2,tc,V 0,c,r,mla,l,V 2,xri,CH('\''),jiz,V 28,mla,l,V 2,xri,CH('`'),jiz,V 21,mla,l,V 2,xri,CH('@'),jiz,V 14,mla,l,V 2,xri,CH(','),jiz,V 7,mla,l,V 2,xri,CH('|'),jinz,V 227,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 3,mla,l,V 3,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 17,qi,W(premature_eof),mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 116,tc,V 2,c,r,mla,l,V 3,q,mha,l,V 1,l,V 73,tc,V 1,c,jinf,V 63,mla,l,V 3,xri,CH(';'),jiz,V 56,mla,l,V 3,xri,CH('#'),jinz,V 45,qi,I(2),mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 3,mla,l,V 3,q,qi,B 546,mha,l0,q,qi,W(stringEQ_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,j,V 2,t,F,jif,V 33,qi,W(syntax),mla,l,V 0,q,mla,l,V 3,q,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 1,l,V 116,tc,V 2,c,r,mla,l,V 0,mlt,s,V 4,mla,l,V 4,xri,CH('\''),jinz,V 3,t,W(quote),r,mla,l,V 4,xri,CH('`'),jinz,V 3,t,W(quasiquote),r,mla,l,V 4,xri,CH('@'),jinz,V 3,t,W(splicing),r,mla,l,V 4,xri,CH(','),jinz,V 3,t,W(unquote),r,mla,l,V 4,xri,CH('|'),jinz,V 3,t,W(bar),r,t,F,r,mla,l,V 2,xri,CH('#'),jinz,V 642,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 5,mla,l,V 5,xri,CH('x'),jiz,V 7,mla,l,V 5,xri,CH('X'),jinz,V 22,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,t,CH('4'),r,mla,l,V 5,q,mha,l,V 1,l,V 47,tc,V 1,c,jif,V 171,mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 47,q,mha,l0,q,qi,W(read_char_sequence),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string_downcase),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(string2symbol),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 6,mla,l,V 6,mlt,s,V 7,mla,l,V 7,xri,W(t),jiz,V 7,mla,l,V 7,xri,W(true),jinz,V 3,t,BC 314,r,mla,l,V 7,xri,W(f),jiz,V 7,mla,l,V 7,xri,W(false),jinz,V 3,t,BC 315,r,mla,l,V 7,xri,W(b),jinz,V 3,t,CH('1'),r,mla,l,V 7,xri,W(o),jinz,V 3,t,CH('3'),r,mla,l,V 7,xri,W(d),jinz,V 3,t,CH('0'),r,qi,W(invalid_reader_syntax),qi,B 547,mla,l,V 6,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 1,l,V 116,tc,V 2,c,r,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 8,mla,l,V 8,xri,CH('<'),jinz,V 27,qi,W(unreadable),qi,B 548,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 116,tc,V 2,c,r,mla,l,V 8,xri,CH('('),jinz,V 3,t,CH('V'),r,mla,l,V 8,xri,CH('\\'),jinz,V 125,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_character_body),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 9,mla,l,V 9,q,mha,l0,q,qi,W(parse_character_body),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,jif,V 30,dig,V 0,q,t,T,q,t,F,q,qi,W(PARSED),dig,V 3,q,mha,l,V 1,l,V 84,tc,V 2,c,ds,V 1,ds,V 1,ds,V 1,j,V 2,t,F,ds,V 1,jinf,V 44,qi,W(syntax),qi,B 549,mla,l,V 9,q,mha,l0,q,qi,W(dwim_stringify),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 1,l,V 116,tc,V 2,c,r,mla,l,V 8,xri,CH('!'),jinz,V 28,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_line),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mha,l,V 2,l,V 2,tc,V 0,c,r,mla,l,V 8,xri,CH('|'),jinz,V 77,t,Q,mlt,s,V 10,t,Q,mlt,s,V 11,t,Q,mlt,s,V 12,t,B 550,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 10,t,B 551,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 11,t,B 552,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 12,qi,I(0),mla,l,V 10,tc,V 1,c,mha,l,V 2,l,V 2,tc,V 0,c,r,qi,W(invalid_reader_syntax),mla,l,V 5,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 4,t,B 547,j,V 33,qi,B 547,mla,l,V 5,q,mha,l0,q,qi,W(dwim_stringify),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,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(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 116,tc,V 2,c,r,mla,l,V 2,xri,CH('"'),jinz,V 31,qi,W(PARSED),mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_external_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 84,tc,V 2,c,r,mla,l,V 2,xri,CH('('),jiz,V 28,mla,l,V 2,xri,CH(')'),jiz,V 21,mla,l,V 2,xri,CH('['),jiz,V 14,mla,l,V 2,xri,CH(']'),jiz,V 7,mla,l,V 2,xri,CH('~'),jinz,V 4,mla,l,V 0,r,qi,W(invalid_char),mla,l,V 0,q,mha,l,V 1,l,V 84,tc,V 2,c,r};
void*Y554[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,mha,l,V 1,l,V 200,xri,Q,jiz,V 20,mha,l,V 1,l,V 200,mlt,s,V 1,t,Q,mat,mha,l,V 1,st,V 200,mla,l,V 1,r,t,Q,mlt,s,V 2,t,B 553,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*Y555[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 201,tc,V 1,c,xri,CH('.'),jinz,V 118,mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 202,tc,V 1,c,mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 201,tc,V 1,c,mlt,s,V 0,mla,l,V 0,xri,CH(')'),jinz,V 65,mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 202,tc,V 1,c,mha,l,V 2,l,V 5,q,mha,l,V 2,l,V 4,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mha,l,V 2,l,V 1,q,mha,l,V 2,l,V 4,q,mha,l0,q,qi,W(append_reverse),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r,qi,W(syntax),mla,l,V 0,q,mha,l,V 1,l,V 116,tc,V 2,c,r,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read),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(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 18,qi,W(premature_eof),mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 116,tc,V 2,c,j,V 0,mla,l,V 1,q,mha,l,V 1,l,V 104,tc,V 1,c,q,mha,l,V 2,l,V 5,q,dig,V 1,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,dig,V 0,mat,mha,l,V 2,st,V 5,ds,V 1,mha,l,V 2,l,V 6,tc,V 0,c,r};
void*Y556[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 8,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,Q,s,V 1,mla,l,V 0,q,mha,l,V 1,l,V 201,tc,V 1,c,mlt,s,V 2,mla,l,V 2,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 13,qi,W(EOF_INSIDE_LIST),qi,F,mha,l,V 1,l,V 116,tc,V 2,c,r,mla,l,V 2,xri,CH(')'),jinz,V 30,mla,l,V 0,q,mha,l,V 1,l,V 202,tc,V 1,c,mla,l,V 1,q,mha,l0,q,qi,W(reverse),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r,mla,l,V 2,xri,CH('.'),jinz,V 185,mla,l,V 0,q,mha,l,V 1,l,V 202,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(read),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 3,mla,l,V 3,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 16,qi,W(premature_eof),mla,l,V 0,q,mha,l,V 1,l,V 116,tc,V 2,c,j,V 0,mla,l,V 0,q,mha,l,V 1,l,V 201,tc,V 1,c,xri,CH(')'),jinz,V 54,mla,l,V 1,xri,Q,jinz,V 13,qi,W(syntax),qi,CH(')'),mha,l,V 1,l,V 116,tc,V 2,c,r,mla,l,V 0,q,mha,l,V 1,l,V 202,tc,V 1,c,mla,l,V 1,q,mla,l,V 3,q,mha,l0,q,qi,W(append_reverse),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r,mla,l,V 3,q,mha,l,V 1,l,V 104,tc,V 1,c,mlt,s,V 4,mla,l,V 4,mlt,s,V 5,t,Q,mlt,s,V 6,t,B 555,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 6,mla,l,V 6,tc,V 0,c,r,mla,l,V 0,q,mha,l0,q,qi,W(read),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 7,mla,l,V 7,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 16,qi,W(premature_eof),mla,l,V 0,q,mha,l,V 1,l,V 116,tc,V 2,c,j,V 0,mla,l,V 0,q,mla,l,V 7,q,mla,l,V 1,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 203,tc,V 2,c,r};
@@ -1025,7 +1025,7 @@
void*Y616[]={j,V 1,V 0,binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,jif,V 39,dig,V 1,q,mha,l0,q,qi,W(superclass),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 1,q,qi,I(1),li,rvec+4,tc,V 2,c,q,mha,l,V 4,l,V 11,tc,V 2,c,ds,V 2,r,dig,V 0,ds,V 2,r};
void*Y623[]={j,V 1,V 0,binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,xri,W(undefined),jinz,V 13,qi,B 622,mha,l,V 3,l,V 0,tc,V 1,c,ds,V 2,r,dig,V 1,q,dig,V 1,q,mha,l,V 1,l,V 116,tc,V 2,c,ds,V 2,r};
void*Y625[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 4,l,V 0,q,mha,l,V 1,l,V 26,tc,V 1,c,mlt,s,V 0,qi,B 624,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 3,l,V 2,tc,V 1,c,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r};
-void*Y627[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 12,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,mla,l,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 27,mla,l,V 0,q,mha,l0,q,qi,W(integer2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l0,q,qi,W(rational_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 27,mla,l,V 0,q,mha,l0,q,qi,W(rational2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,xri,Q,jinz,V 11,qi,B 592,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,xri,T,jinz,V 11,qi,B 593,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,xri,F,jinz,V 11,qi,B 594,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 134,tc,V 1,c,jif,V 27,mla,l,V 0,q,mha,l0,q,qi,W(symbol2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 157,tc,V 1,c,jif,V 54,mla,l,V 0,q,mha,l,V 3,l,V 1,tc,V 1,c,jinf,V 37,qi,CH('#'),mha,l,V 3,l,V 0,tc,V 1,c,mla,l,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 3,l,V 2,tc,V 1,c,r,t,Z,r,mla,l,V 0,q,mha,l,V 1,l,V 85,tc,V 1,c,jif,V 361,mla,l,V 0,q,mha,l,V 3,l,V 1,tc,V 1,c,jinf,V 344,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 85,tc,V 1,c,jif,V 76,mla,l,V 0,q,mha,l0,q,qi,W(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,Q,jinz,V 51,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,BC 319,mha,l0,q,qi,W(assq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,dig,V 0,jif,V 13,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,j,V 2,t,F,ds,V 1,j,V 2,t,F,j,V 2,t,F,mlt,s,V 1,mla,l,V 1,jif,V 50,mla,l,V 1,mlt,s,V 2,t,T,mlt,s,V 3,mla,l,V 2,q,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(cadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 2,tc,V 1,c,r,qi,CH('('),mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 3,l,V 2,tc,V 1,c,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 85,tc,V 1,c,jif,V 33,mla,l,V 0,q,mha,l,V 2,l,V 2,q,mha,l0,q,qi,W(assq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jinf,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 47,qi,CH(' '),mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 3,l,V 2,tc,V 1,c,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 0,j,V -98,mla,l,V 0,xri,Q,jiz,V 24,qi,B 595,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 3,l,V 2,tc,V 1,c,j,V 0,qi,CH(')'),mha,l,V 3,l,V 0,tc,V 1,c,r,t,Z,r,mla,l,V 0,q,mha,l,V 1,l,V 83,tc,V 1,c,jif,V 364,t,CH(' '),mlt,s,V 4,mla,l,V 0,mlt,s,V 5,t,CH(127),mlt,s,V 6,mla,l,V 4,q,mla,l,V 5,jige,V 17,mla,l,V 5,q,mla,l,V 6,jige,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 23,qi,B 549,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 199,q,mha,l0,q,qi,W(rassv),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 7,mla,l,V 7,jif,V 56,mla,l,V 7,mlt,s,V 8,t,T,mlt,s,V 9,qi,B 549,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 8,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(symbol2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,xri,CH(127),jinz,V 11,qi,B 596,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,t,CH(' '),jige,V 49,qi,B 597,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 1,l,V 36,tc,V 1,c,q,qi,I(64),li,rvec+4,tc,V 2,c,q,mha,l,V 1,l,V 103,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,r,qi,B 598,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 1,l,V 36,tc,V 1,c,q,qi,I(16),mha,l0,q,qi,W(integer2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string_upcase),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 10,qi,I(4),mla,l,V 10,q,mha,l,V 1,l,V 130,tc,V 1,c,q,li,rvec+5,tc,V 2,c,q,dig,V 0,q,mha,l0,q,qi,W(positive_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 24,dig,V 0,q,qi,CH('0'),mha,l,V 1,l,V 109,tc,V 2,c,q,mha,l,V 3,l,V 0,tc,V 1,c,j,V 0,ds,V 1,mla,l,V 10,q,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 133,tc,V 1,c,jif,V 489,mla,l,V 0,q,mha,l,V 1,l,V 33,tc,V 1,c,jinf,V 28,mla,l,V 0,q,mha,l,V 1,l,V 30,tc,V 1,c,jif,V 12,qi,B 599,mha,l,V 3,l,V 0,tc,V 1,c,j,V 2,t,F,qi,CH('"'),mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 1,l,V 130,tc,V 1,c,q,t,I(0),q,dig,V 0,q,dig,V 2,q,li,rvec+15,tc,V 2,c,jif,V 393,mla,l,V 0,q,dig,V 1,q,mha,l,V 1,l,V 123,tc,V 2,c,q,dig,V 0,q,dig,V 0,xri,CH(7),jinz,V 12,qi,B 600,mha,l,V 3,l,V 0,tc,V 1,c,j,V 338,dig,V 0,xri,CH(8),jinz,V 12,qi,B 601,mha,l,V 3,l,V 0,tc,V 1,c,j,V 320,dig,V 0,xri,CH(9),jinz,V 12,qi,B 602,mha,l,V 3,l,V 0,tc,V 1,c,j,V 302,dig,V 0,xri,CH(10),jinz,V 12,qi,B 603,mha,l,V 3,l,V 0,tc,V 1,c,j,V 284,dig,V 0,xri,CH(12),jinz,V 12,qi,B 604,mha,l,V 3,l,V 0,tc,V 1,c,j,V 266,dig,V 0,xri,CH(13),jinz,V 12,qi,B 605,mha,l,V 3,l,V 0,tc,V 1,c,j,V 248,dig,V 0,xri,CH(27),jinz,V 12,qi,B 606,mha,l,V 3,l,V 0,tc,V 1,c,j,V 230,dig,V 0,xri,CH('"'),jinz,V 12,qi,B 607,mha,l,V 3,l,V 0,tc,V 1,c,j,V 212,dig,V 0,xri,CH('\\'),jiz,V 6,dig,V 0,xri,CH('$'),jinz,V 23,qi,CH('\\'),mha,l,V 3,l,V 0,tc,V 1,c,dig,V 1,q,mha,l,V 3,l,V 0,tc,V 1,c,j,V 177,dig,V 1,q,t,CH(' '),jilt,V 14,qi,CH('~'),dig,V 2,jilt,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 13,dig,V 1,q,mha,l,V 3,l,V 0,tc,V 1,c,j,V 139,qi,B 608,mha,l,V 3,l,V 0,tc,V 1,c,dig,V 1,q,mha,l,V 1,l,V 36,tc,V 1,c,q,qi,I(16),mha,l0,q,qi,W(integer2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string_upcase),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,q,mha,l,V 1,l,V 130,tc,V 1,c,q,dig,V 0,xri,I(1),jiz,V 6,dig,V 0,xri,I(3),jinz,V 12,qi,CH('0'),mha,l,V 3,l,V 0,tc,V 1,c,j,V 26,dig,V 0,xri,I(2),jinz,V 4,t,T,j,V 2,t,F,jinf,V 12,dig,V 0,xri,I(4),jinz,V 4,t,T,j,V 2,t,F,ds,V 1,dig,V 0,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH(']'),mha,l,V 3,l,V 0,tc,V 1,c,ds,V 1,ds,V 1,ds,V 1,dig,V 0,q,qi,I(1),li,rvec+4,tc,V 2,c,bury,V 0,j,V -406,ds,V 1,ds,V 1,qi,CH('"'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 92,tc,V 1,c,jif,V 47,qi,B 609,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(stringify_address),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l0,q,qi,W(procedure_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 102,qi,B 548,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 1,l,V 115,tc,V 1,c,jif,V 4,t,B 610,j,V 2,t,B 611,q,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(procedure_remark),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,jif,V 28,dig,V 0,q,qi,CH(' '),mha,l,V 3,l,V 0,tc,V 1,c,dig,V 0,q,mha,l,V 3,l,V 0,tc,V 1,c,ds,V 1,j,V 0,ds,V 1,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l0,q,qi,W(macro_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 73,qi,B 612,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(procedure_remark),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,jif,V 28,dig,V 0,q,qi,CH(' '),mha,l,V 3,l,V 0,tc,V 1,c,dig,V 0,q,mha,l,V 3,l,V 0,tc,V 1,c,ds,V 1,j,V 0,ds,V 1,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l0,q,qi,W(void_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 11,qi,B 613,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l0,q,qi,W(class_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 112,qi,B 614,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(stringify_address),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,B 615,mha,l,V 3,l,V 0,tc,V 1,c,t,Q,mlt,s,V 11,t,B 616,q,qi,V 4,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 11,mla,l,V 0,q,qi,I(0),mla,l,V 11,tc,V 2,c,q,mha,l0,q,qi,W(integer2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 102,tc,V 1,c,jif,V 193,mla,l,V 0,q,mha,l0,q,qi,W(file_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 61,qi,B 617,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(file_descriptor),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(integer2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l0,q,qi,W(port_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 47,qi,B 618,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(stringify_address),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,qi,B 619,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(stringify_address),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 122,tc,V 1,c,jif,V 92,qi,B 620,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(stringify_address),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,B 621,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 1,l,V 121,tc,V 1,c,q,mha,l0,q,qi,W(integer2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 27,tc,V 1,c,jif,V 37,qi,T,t,B 623,q,qi,V 4,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 625,q,qi,V 4,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 34,tc,V 3,c,r,qi,B 626,mha,l,V 3,l,V 0,tc,V 1,c,r};
+void*Y627[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 12,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,mla,l,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 27,mla,l,V 0,q,mha,l0,q,qi,W(integer2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l0,q,qi,W(rational_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 27,mla,l,V 0,q,mha,l0,q,qi,W(rational2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,xri,Q,jinz,V 11,qi,B 592,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,xri,T,jinz,V 11,qi,B 593,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,xri,F,jinz,V 11,qi,B 594,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 134,tc,V 1,c,jif,V 27,mla,l,V 0,q,mha,l0,q,qi,W(symbol2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 157,tc,V 1,c,jif,V 54,mla,l,V 0,q,mha,l,V 3,l,V 1,tc,V 1,c,jinf,V 37,qi,CH('#'),mha,l,V 3,l,V 0,tc,V 1,c,mla,l,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 3,l,V 2,tc,V 1,c,r,t,Z,r,mla,l,V 0,q,mha,l,V 1,l,V 85,tc,V 1,c,jif,V 361,mla,l,V 0,q,mha,l,V 3,l,V 1,tc,V 1,c,jinf,V 344,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 85,tc,V 1,c,jif,V 76,mla,l,V 0,q,mha,l0,q,qi,W(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,Q,jinz,V 51,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,BC 323,mha,l0,q,qi,W(assq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,dig,V 0,jif,V 13,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,j,V 2,t,F,ds,V 1,j,V 2,t,F,j,V 2,t,F,mlt,s,V 1,mla,l,V 1,jif,V 50,mla,l,V 1,mlt,s,V 2,t,T,mlt,s,V 3,mla,l,V 2,q,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(cadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 2,tc,V 1,c,r,qi,CH('('),mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 3,l,V 2,tc,V 1,c,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 85,tc,V 1,c,jif,V 33,mla,l,V 0,q,mha,l,V 2,l,V 2,q,mha,l0,q,qi,W(assq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jinf,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 47,qi,CH(' '),mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 3,l,V 2,tc,V 1,c,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 0,j,V -98,mla,l,V 0,xri,Q,jiz,V 24,qi,B 595,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 3,l,V 2,tc,V 1,c,j,V 0,qi,CH(')'),mha,l,V 3,l,V 0,tc,V 1,c,r,t,Z,r,mla,l,V 0,q,mha,l,V 1,l,V 83,tc,V 1,c,jif,V 364,t,CH(' '),mlt,s,V 4,mla,l,V 0,mlt,s,V 5,t,CH(127),mlt,s,V 6,mla,l,V 4,q,mla,l,V 5,jige,V 17,mla,l,V 5,q,mla,l,V 6,jige,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 23,qi,B 549,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 199,q,mha,l0,q,qi,W(rassv),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 7,mla,l,V 7,jif,V 56,mla,l,V 7,mlt,s,V 8,t,T,mlt,s,V 9,qi,B 549,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 8,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(symbol2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,xri,CH(127),jinz,V 11,qi,B 596,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,t,CH(' '),jige,V 49,qi,B 597,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 1,l,V 36,tc,V 1,c,q,qi,I(64),li,rvec+4,tc,V 2,c,q,mha,l,V 1,l,V 103,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,r,qi,B 598,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 1,l,V 36,tc,V 1,c,q,qi,I(16),mha,l0,q,qi,W(integer2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string_upcase),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 10,qi,I(4),mla,l,V 10,q,mha,l,V 1,l,V 130,tc,V 1,c,q,li,rvec+5,tc,V 2,c,q,dig,V 0,q,mha,l0,q,qi,W(positive_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 24,dig,V 0,q,qi,CH('0'),mha,l,V 1,l,V 109,tc,V 2,c,q,mha,l,V 3,l,V 0,tc,V 1,c,j,V 0,ds,V 1,mla,l,V 10,q,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 133,tc,V 1,c,jif,V 489,mla,l,V 0,q,mha,l,V 1,l,V 33,tc,V 1,c,jinf,V 28,mla,l,V 0,q,mha,l,V 1,l,V 30,tc,V 1,c,jif,V 12,qi,B 599,mha,l,V 3,l,V 0,tc,V 1,c,j,V 2,t,F,qi,CH('"'),mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 1,l,V 130,tc,V 1,c,q,t,I(0),q,dig,V 0,q,dig,V 2,q,li,rvec+15,tc,V 2,c,jif,V 393,mla,l,V 0,q,dig,V 1,q,mha,l,V 1,l,V 123,tc,V 2,c,q,dig,V 0,q,dig,V 0,xri,CH(7),jinz,V 12,qi,B 600,mha,l,V 3,l,V 0,tc,V 1,c,j,V 338,dig,V 0,xri,CH(8),jinz,V 12,qi,B 601,mha,l,V 3,l,V 0,tc,V 1,c,j,V 320,dig,V 0,xri,CH(9),jinz,V 12,qi,B 602,mha,l,V 3,l,V 0,tc,V 1,c,j,V 302,dig,V 0,xri,CH(10),jinz,V 12,qi,B 603,mha,l,V 3,l,V 0,tc,V 1,c,j,V 284,dig,V 0,xri,CH(12),jinz,V 12,qi,B 604,mha,l,V 3,l,V 0,tc,V 1,c,j,V 266,dig,V 0,xri,CH(13),jinz,V 12,qi,B 605,mha,l,V 3,l,V 0,tc,V 1,c,j,V 248,dig,V 0,xri,CH(27),jinz,V 12,qi,B 606,mha,l,V 3,l,V 0,tc,V 1,c,j,V 230,dig,V 0,xri,CH('"'),jinz,V 12,qi,B 607,mha,l,V 3,l,V 0,tc,V 1,c,j,V 212,dig,V 0,xri,CH('\\'),jiz,V 6,dig,V 0,xri,CH('$'),jinz,V 23,qi,CH('\\'),mha,l,V 3,l,V 0,tc,V 1,c,dig,V 1,q,mha,l,V 3,l,V 0,tc,V 1,c,j,V 177,dig,V 1,q,t,CH(' '),jilt,V 14,qi,CH('~'),dig,V 2,jilt,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 13,dig,V 1,q,mha,l,V 3,l,V 0,tc,V 1,c,j,V 139,qi,B 608,mha,l,V 3,l,V 0,tc,V 1,c,dig,V 1,q,mha,l,V 1,l,V 36,tc,V 1,c,q,qi,I(16),mha,l0,q,qi,W(integer2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string_upcase),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,q,mha,l,V 1,l,V 130,tc,V 1,c,q,dig,V 0,xri,I(1),jiz,V 6,dig,V 0,xri,I(3),jinz,V 12,qi,CH('0'),mha,l,V 3,l,V 0,tc,V 1,c,j,V 26,dig,V 0,xri,I(2),jinz,V 4,t,T,j,V 2,t,F,jinf,V 12,dig,V 0,xri,I(4),jinz,V 4,t,T,j,V 2,t,F,ds,V 1,dig,V 0,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH(']'),mha,l,V 3,l,V 0,tc,V 1,c,ds,V 1,ds,V 1,ds,V 1,dig,V 0,q,qi,I(1),li,rvec+4,tc,V 2,c,bury,V 0,j,V -406,ds,V 1,ds,V 1,qi,CH('"'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 92,tc,V 1,c,jif,V 47,qi,B 609,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(stringify_address),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l0,q,qi,W(procedure_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 102,qi,B 548,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 1,l,V 115,tc,V 1,c,jif,V 4,t,B 610,j,V 2,t,B 611,q,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(procedure_remark),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,jif,V 28,dig,V 0,q,qi,CH(' '),mha,l,V 3,l,V 0,tc,V 1,c,dig,V 0,q,mha,l,V 3,l,V 0,tc,V 1,c,ds,V 1,j,V 0,ds,V 1,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l0,q,qi,W(macro_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 73,qi,B 612,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(procedure_remark),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,jif,V 28,dig,V 0,q,qi,CH(' '),mha,l,V 3,l,V 0,tc,V 1,c,dig,V 0,q,mha,l,V 3,l,V 0,tc,V 1,c,ds,V 1,j,V 0,ds,V 1,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l0,q,qi,W(void_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 11,qi,B 613,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l0,q,qi,W(class_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 112,qi,B 614,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(stringify_address),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,B 615,mha,l,V 3,l,V 0,tc,V 1,c,t,Q,mlt,s,V 11,t,B 616,q,qi,V 4,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 11,mla,l,V 0,q,qi,I(0),mla,l,V 11,tc,V 2,c,q,mha,l0,q,qi,W(integer2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 102,tc,V 1,c,jif,V 193,mla,l,V 0,q,mha,l0,q,qi,W(file_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 61,qi,B 617,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(file_descriptor),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(integer2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l0,q,qi,W(port_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 47,qi,B 618,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(stringify_address),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,qi,B 619,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(stringify_address),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 122,tc,V 1,c,jif,V 92,qi,B 620,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(stringify_address),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,B 621,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 1,l,V 121,tc,V 1,c,q,mha,l0,q,qi,W(integer2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 27,tc,V 1,c,jif,V 37,qi,T,t,B 623,q,qi,V 4,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 625,q,qi,V 4,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 34,tc,V 3,c,r,qi,B 626,mha,l,V 3,l,V 0,tc,V 1,c,r};
void*Y628[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,B 591,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 1,t,Q,mlt,s,V 2,t,B 627,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 2,mha,l,V 2,l,V 1,q,mla,l,V 2,tc,V 1,c,r};
void*Y629[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,mla,l,V 0,q,qi,T,mha,l0,q,qi,W(topocopy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 1,p,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 2,mla,l,V 2,q,dig,V 0,xri,Q,jiz,V 79,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,dig,V 1,q,dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l0,q,qi,W(car),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,dig,V 1,q,qi,F,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,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 -85,ds,V 1,qi,I(1),mha,l0,q,qi,W(make_counter),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 3,t,B 628,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(collect_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r};
void*Y630[]={j,V 1,V 0,hop,V 4,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 1,binzc,&branch_EVM_invargca,mlt,p,s,V 2,mla,l,V 2,q,mha,l,V 1,l,V 207,q,mha,l0,q,qi,W(assoc),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 3,mla,l,V 0,jif,V 128,mla,l,V 3,jif,V 47,mla,l,V 3,q,mla,l,V 1,jif,V 19,mla,l,V 1,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,j,V 2,t,F,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,r,mla,l,V 1,jif,V 68,mla,l,V 2,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mla,l,V 1,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 207,q,mha,l,V 1,l,V 84,tc,V 2,c,mat,mha,l,V 1,st,V 207,t,Z,r,t,Z,r,mla,l,V 3,jif,V 13,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,r,t,F,r};
@@ -1038,7 +1038,7 @@
void*Y638[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 6,mca,subc,V 0,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 15,mac,mca,subc,V 0,jizc,V 17,mac,p,s,V 1,p,s,V 0,j,V 33,mac,p,s,V 0,j,V 15,j,V 25,mac,mha,l0,q,qi,W(XstdinX),t,&NN_dict_ref_2,tc,V 2,c,s,V 0,mha,l0,q,qi,W(XstdoutX),t,&NN_dict_ref_2,tc,V 2,c,s,V 1,mla,l,V 0,q,mha,l,V 1,l,V 133,tc,V 1,c,jif,V 31,mla,l,V 0,q,t,B 633,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(call_with_input_file),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r,qi,I(2),mla,l,V 0,q,mha,l0,q,qi,W(peek_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,B 634,mha,l0,q,qi,W(stringEQ_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 19,mla,l,V 0,q,mha,l0,q,qi,W(read_line),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,j,V 0,qi,I(1024),mha,l,V 1,l,V 109,tc,V 1,c,mlt,s,V 2,t,I(0),mlt,s,V 3,t,B 635,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 4,t,Q,mlt,s,V 5,t,B 637,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 5,mla,l,V 5,tc,V 0,c,r};
void*Y641[]={j,V 1,V 0,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,xri,W(LTDOTDOTDOTGT),jiz,V 43,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 7,tc,V 1,c,q,mha,l,V 1,l,V 84,tc,V 2,c,ds,V 1,r,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 13,qi,W(LTDOTDOTDOTGT),mha,l,V 1,l,V 104,tc,V 1,c,ds,V 1,r,qi,W(append),qi,W(LTDOTDOTDOTGT),qi,W(list),dig,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,ds,V 1,r};
void*Y642[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 9,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,q,mha,l0,q,qi,W(list_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 2,mla,l,V 2,xri,Q,jiz,V 15,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,xri,W(LTDOTDOTDOTGT),jinz,V 27,qi,W(invalid_cut),qi,W(cut),mla,l,V 1,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 116,tc,V 2,c,j,V 0,t,I(0),mlt,s,V 3,qi,W(dummy_var),mha,l,V 1,l,V 104,tc,V 1,c,mlt,s,V 4,t,Q,mlt,s,V 5,t,F,mlt,s,V 6,mla,l,V 2,q,dig,V 0,xri,Q,jiz,V 352,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 0,xri,W(LTGT),jinz,V 147,mla,l,V 3,q,qi,I(1),li,rvec+4,tc,V 2,c,mlt,s,V 3,qi,B 639,mla,l,V 3,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 640,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(string2symbol),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mla,l,V 4,q,dig,V 1,q,mla,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,dig,V 0,q,mla,l,V 5,q,mha,l,V 1,l,V 84,tc,V 2,c,mlt,s,V 5,dig,V 2,q,dig,V 1,q,mha,l0,q,qi,W(car),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,ds,V 1,j,V 171,dig,V 0,xri,W(LTDOTDOTDOTGT),jinz,V 103,mla,l,V 6,jif,V 16,qi,W(invalid_cut),mla,l,V 1,q,mha,l,V 1,l,V 116,tc,V 2,c,j,V 0,mla,l,V 4,q,qi,W(LTDOTDOTDOTGT),mla,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,qi,W(LTDOTDOTDOTGT),mla,l,V 5,q,mha,l,V 1,l,V 84,tc,V 2,c,mlt,s,V 5,qi,W(DOTDOTDOT),mla,l,V 5,q,mha,l,V 1,l,V 84,tc,V 2,c,mlt,s,V 5,t,T,mlt,s,V 6,j,V 62,dig,V 1,q,qi,W(hideTIMES),mla,l,V 4,q,dig,V 4,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l0,q,qi,W(car),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,ds,V 1,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -358,ds,V 1,mla,l,V 6,jif,V 43,qi,W(apply),t,Q,mlt,s,V 7,t,B 641,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 7,mla,l,V 2,q,mla,l,V 7,tc,V 1,c,q,mha,l,V 1,l,V 84,tc,V 2,c,j,V 3,mla,l,V 2,mlt,s,V 8,qi,W(lambda),mla,l,V 5,q,mha,l0,q,qi,W(reverse),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,W(my),qi,W(dummy_var),qi,F,mla,l,V 8,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,r};
-void*Y644[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 5,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,mha,l0,q,qi,W(make_counter),t,&NN_dict_ref_2,tc,V 2,c,tc,V 0,c,mlt,s,V 2,t,Q,mlt,s,V 3,t,Q,mlt,s,V 4,mla,l,V 1,q,dig,V 0,xri,Q,jiz,V 174,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,dig,V 1,q,qi,BC 321,mha,l0,q,qi,W(memq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 20,dig,V 1,q,mla,l,V 4,q,mha,l,V 1,l,V 84,tc,V 2,c,mlt,s,V 4,j,V 101,qi,B 643,mla,l,V 2,tc,V 0,c,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,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,q,dig,V 0,q,dig,V 3,q,mha,l,V 1,l,V 104,tc,V 2,c,q,mla,l,V 3,q,mha,l,V 1,l,V 84,tc,V 2,c,mlt,s,V 3,dig,V 0,q,mla,l,V 4,q,mha,l,V 1,l,V 84,tc,V 2,c,mlt,s,V 4,ds,V 1,ds,V 1,ds,V 1,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -180,ds,V 1,qi,W(let),mla,l,V 3,q,mha,l0,q,qi,W(reverse),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,W(cut),mla,l,V 4,q,mha,l0,q,qi,W(reverse),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,r};
+void*Y644[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 5,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,mha,l0,q,qi,W(make_counter),t,&NN_dict_ref_2,tc,V 2,c,tc,V 0,c,mlt,s,V 2,t,Q,mlt,s,V 3,t,Q,mlt,s,V 4,mla,l,V 1,q,dig,V 0,xri,Q,jiz,V 174,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,dig,V 1,q,qi,BC 325,mha,l0,q,qi,W(memq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 20,dig,V 1,q,mla,l,V 4,q,mha,l,V 1,l,V 84,tc,V 2,c,mlt,s,V 4,j,V 101,qi,B 643,mla,l,V 2,tc,V 0,c,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,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,q,dig,V 0,q,dig,V 3,q,mha,l,V 1,l,V 104,tc,V 2,c,q,mla,l,V 3,q,mha,l,V 1,l,V 84,tc,V 2,c,mlt,s,V 3,dig,V 0,q,mla,l,V 4,q,mha,l,V 1,l,V 84,tc,V 2,c,mlt,s,V 4,ds,V 1,ds,V 1,ds,V 1,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -180,ds,V 1,qi,W(let),mla,l,V 3,q,mha,l0,q,qi,W(reverse),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,W(cut),mla,l,V 4,q,mha,l0,q,qi,W(reverse),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,r};
void*Y645[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 4,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 85,tc,V 1,c,jif,V 41,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 1,l,V 134,tc,V 1,c,jif,V 15,mla,l,V 2,xri,Q,jiz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,j,V 2,t,F,jif,V 121,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 3,qi,W(letrec),mla,l,V 3,q,qi,W(lambda),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mla,l,V 3,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 134,tc,V 1,c,jif,V 42,mla,l,V 2,q,mha,l,V 1,l,V 85,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 82,qi,W(letrec),mla,l,V 1,q,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,r,qi,W(invalid_form),qi,W(rec),mla,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 116,tc,V 2,c,r};
void*Y646[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 4,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,t,W(x),mlt,s,V 3,mla,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 84,tc,V 2,c,q,dig,V 0,xri,Q,jiz,V 95,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,qi,W(hide),qi,W(x),dig,V 3,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mla,l,V 3,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,mlt,s,V 3,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 -101,ds,V 1,qi,W(lambda),qi,W(x),qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mla,l,V 3,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,r};
void*Y647[]={j,V 1,V 0,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 85,tc,V 1,c,jif,V 117,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 0,p,l,V 1,mlt,s,V 1,mha,l,V 2,l,V 0,q,mla,l,V 1,q,mha,l0,q,qi,W(rassq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,dig,V 0,jif,V 32,dig,V 0,q,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(use),mla,l,V 0,q,mha,l,V 1,l,V 104,tc,V 3,c,ds,V 1,j,V 2,t,F,ds,V 1,jinf,V 20,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 7,tc,V 1,c,ds,V 1,r,t,F,ds,V 1,r};
@@ -1048,8 +1048,8 @@
void*Y657[]={j,V 1,V 0,binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,qi,B 654,mha,l,V 1,l,V 160,q,mha,l0,q,qi,W(dwim_stringify),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 655,mha,l,V 1,l,V 162,q,mha,l0,q,qi,W(dwim_stringify),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 656,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 5,c,q,mha,l0,q,qi,W(write_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,qi,I(0),mha,l,V 1,l,V 208,tc,V 1,c,r};
void*Y664[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,t,F,mlt,s,V 0,dig,V 0,q,mha,l0,q,qi,W(Xuser_dictionaryX),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(load),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 1,r};
void*Y665[]={j,V 1,V 0,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 3,jif,V 20,mha,l,V 2,l,V 1,q,mha,l0,q,qi,W(run_ewisp_file),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r,mha,l,V 2,l,V 1,jif,V 31,mha,l,V 2,l,V 1,q,mha,l0,q,qi,W(Xuser_dictionaryX),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(load),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r,mha,l,V 2,l,V 6,jif,V 34,qi,B 663,qi,W(system_path),t,B 664,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(call_with_input_file),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,tc,V 0,c,r,mha,l0,q,qi,W(XstdinX),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(Xuser_dictionaryX),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(load),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r};
-void*Y666[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 7,mca,subc,V 3,binzc,&branch_EVM_invargca,mlt,p,s,V 2,p,s,V 1,p,s,V 0,qi,CH('V'),mla,l,V 0,q,mha,l0,q,qi,W(memq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 15,mha,l0,q,qi,W(state_version),t,&NN_dict_ref_2,tc,V 2,c,tc,V 0,c,j,V 0,qi,CH('e'),mla,l,V 0,q,mha,l0,q,qi,W(memq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 3,qi,CH('A'),mla,l,V 0,q,mha,l0,q,qi,W(memq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 4,qi,CH('C'),mla,l,V 0,q,mha,l0,q,qi,W(memq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jinf,V 19,qi,CH('c'),mla,l,V 0,q,mha,l0,q,qi,W(memq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 5,qi,CH('i'),mla,l,V 0,q,mha,l0,q,qi,W(memq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jinf,V 24,mha,l0,q,qi,W(XstdinX),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(tty_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 6,mla,l,V 0,q,dig,V 0,xri,Q,jiz,V 122,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,BC 326,mha,l0,q,qi,W(memq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jinf,V 79,mha,l0,q,qi,W(XstderrX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,B 658,dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(dwim_stringify),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 659,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(print),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,qi,I(255),mha,l,V 1,l,V 208,tc,V 1,c,j,V 0,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -128,ds,V 1,mla,l,V 2,mat,mha,l,V 1,st,V 0,mha,l0,q,qi,W(Xuser_dictionaryX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(XarglistX),mla,l,V 2,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,qi,B 660,mha,l0,q,qi,W(env_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,jif,V 40,mha,l0,q,qi,W(Xsystem_pathX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,CH(':'),dig,V 2,q,mha,l0,q,qi,W(split_by_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 1,l,V 26,tc,V -2,c,j,V 91,qi,B 661,mha,l0,q,qi,W(env_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,jif,V 69,mha,l0,q,qi,W(Xsystem_pathX),t,&NN_dict_ref_2,tc,V 2,c,q,dig,V 1,q,qi,B 662,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(Xsystem_pathX),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 26,tc,V 1,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 26,tc,V -2,c,j,V 0,ds,V 1,ds,V 1,mla,l,V 5,jif,V 52,mha,l0,q,qi,W(Xsystem_pathX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,B 364,mha,l0,q,qi,W(Xsystem_pathX),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 26,tc,V 1,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 26,tc,V -2,c,j,V 0,mla,l,V 4,jif,V 96,mha,l0,q,qi,W(Xuser_dictionaryX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(assemble),mha,l0,q,qi,W(assemble),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(Xuser_dictionaryX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(instruction_list),mha,l0,q,qi,W(car),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 185,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,j,V 26,mha,l0,q,qi,W(Xasm_lockX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,T,mha,l0,q,qi,W(car),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,mha,l,V 1,l,V 133,tc,V 1,c,jif,V 49,mla,l,V 1,q,mha,l0,q,qi,W(string_null_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 26,mla,l,V 1,q,qi,I(-1),mha,l,V 1,l,V 123,tc,V 2,c,xri,CH('/'),jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,j,V 2,t,F,jif,V 60,mla,l,V 1,q,qi,I(0),qi,I(-1),mha,l0,q,qi,W(slice),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(Xsystem_pathX),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 123,tc,V 1,c,q,mha,l0,q,qi,W(open_input_file),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 1,j,V 0,qi,T,mha,l0,q,qi,W(fatal_handler),t,&NN_dict_ref_2,tc,V 2,c,q,t,B 665,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 34,tc,V 3,c,qi,I(0),mha,l,V 1,l,V 208,tc,V 1,c,r};
-void*Y671[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 212,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,t,V 1,q,t,&NN_valloc,tc,V 1,c,q,ph,qi,I(20),t,&NN_make_dict,tc,V 0,c,q,pt,mha,st,V 0,mta,q,t,&NN_rvec_set,tc,V 2,c,t,&NN_printeger2string,mlt,s,V 2,t,&NN_prlshl,mlt,s,V 3,t,&NN_prlshr,mlt,s,V 4,t,&NN_prstring2integer,mlt,s,V 5,t,&NN_prsymbol2string,mlt,s,V 6,t,&NN_ws2zt,mlt,s,V 7,t,&RT_box,mlt,s,V 8,t,&RT_c16string,mlt,s,V 9,t,&RT_record_type,mlt,s,V 10,t,&NN_encui,mlt,s,V 11,t,&NN_apply,mlt,s,V 12,t,&NN_big_integer_huh,mlt,s,V 13,t,&NN_binary_mul,mlt,s,V 14,t,&NN_binary_add,mlt,s,V 15,t,&NN_binary_sub,mlt,s,V 16,t,&NN_binary_eqvp,mlt,s,V 17,t,&NN_bland,mlt,s,V 18,t,&NN_blor,mlt,s,V 19,t,&NN_binary_num_equalp,mlt,s,V 20,t,&NN_binary_num_lessp,mlt,s,V 21,t,&NN_binary_div,mlt,s,V 22,t,&NN_bitstring_ref,mlt,s,V 23,t,&NN_box_empty,mlt,s,V 24,t,&NN_box_empty_huh,mlt,s,V 25,t,&NN_box_ref,mlt,s,V 26,t,&NN_box_huh,mlt,s,V 27,t,&NN_c16string_length,mlt,s,V 28,t,&NN_c16string_ref,mlt,s,V 29,t,&NN_c16string_huh,mlt,s,V 30,t,&NN_c8string_length,mlt,s,V 31,t,&NN_c8string_ref,mlt,s,V 32,t,&NN_c8string_huh,mlt,s,V 33,t,&NN_catch,mlt,s,V 34,t,&NN_ceiling,mlt,s,V 35,t,&NN_char2integer,mlt,s,V 36,t,&NN_char_and,mlt,s,V 37,t,&NN_char_bit_clear,mlt,s,V 38,t,&NN_char_bit_set,mlt,s,V 39,t,&NN_char_bit_toggle,mlt,s,V 40,t,&NN_char_bit_huh,mlt,s,V 41,t,&NN_char_decimal_huh,mlt,s,V 42,t,&NN_char_digit_huh,mlt,s,V 43,t,&NN_char_downcase,mlt,s,V 44,t,&NN_char_hexadecimal_huh,mlt,s,V 45,t,&NN_char_letter_modifier_huh,mlt,s,V 46,t,&NN_char_letter_huh,mlt,s,V 47,t,&NN_char_lower_case_huh,mlt,s,V 48,t,&NN_char_mirrored_huh,mlt,s,V 49,t,&NN_char_number_letter_huh,mlt,s,V 50,t,&NN_char_octal_huh,mlt,s,V 51,t,&NN_char_or,mlt,s,V 52,t,&NN_char_order,mlt,s,V 53,t,&NN_char_punctuation_close_huh,mlt,s,V 54,t,&NN_char_punctuation_connector_huh,mlt,s,V 55,t,&NN_char_punctuation_dash_huh,mlt,s,V 56,t,&NN_char_punctuation_final_quote_huh,mlt,s,V 57,t,&NN_char_punctuation_initial_quote_huh,mlt,s,V 58,t,&NN_char_punctuation_open_huh,mlt,s,V 59,t,&NN_char_punctuation_huh,mlt,s,V 60,t,&NN_char_symbol_currency_huh,mlt,s,V 61,t,&NN_char_symbol_math_huh,mlt,s,V 62,t,&NN_char_symbol_starter_huh,mlt,s,V 63,t,&NN_char_symbol_huh,mlt,s,V 64,t,&NN_char_symbolic_huh,mlt,s,V 65,t,&NN_char_title_case_huh,mlt,s,V 66,t,&NN_char_titlecase,mlt,s,V 67,t,&NN_char_upcase,mlt,s,V 68,t,&NN_char_upper_case_huh,mlt,s,V 69,t,&NN_char_utf_8,mlt,s,V 70,t,&NN_char_utf_8_continue,mlt,s,V 71,t,&NN_char_utf_8_length,mlt,s,V 72,t,&NN_char_whitespace_huh,mlt,s,V 73,t,&NN_char_xor,mlt,s,V 74,t,&NN_char16_bswap,mlt,s,V 75,t,&NN_char16_rol,mlt,s,V 76,t,&NN_char16_ror,mlt,s,V 77,t,&NN_char16_huh,mlt,s,V 78,t,&NN_char24_huh,mlt,s,V 79,t,&NN_char8_rol,mlt,s,V 80,t,&NN_char8_ror,mlt,s,V 81,t,&NN_char8_huh,mlt,s,V 82,t,&NN_char_huh,mlt,s,V 83,t,&NN_cons,mlt,s,V 84,t,&NN_cons_huh,mlt,s,V 85,t,&NN_decsi,mlt,s,V 86,t,&NN_decui,mlt,s,V 87,t,&NN_dict2alist,mlt,s,V 88,t,&NN_dict_drop,mlt,s,V 89,t,&NN_dict_fetch,mlt,s,V 90,t,&NN_dict_set,mlt,s,V 91,t,&NN_dict_huh,mlt,s,V 92,t,&NN_e2f_set,mlt,s,V 93,t,&NN_e2f_sref,mlt,s,V 94,t,&NN_encsi,mlt,s,V 95,t,&NN_encui,mlt,s,V 96,t,&NN_evmfunc_huh,mlt,s,V 97,t,&NN_fit_for_symbol_huh,mlt,s,V 98,t,&NN_fixnum_huh,mlt,s,V 99,t,&NN_floor,mlt,s,V 100,t,&NN_fraction_huh,mlt,s,V 101,t,&NN_instance_huh,mlt,s,V 102,t,&NN_integer2char,mlt,s,V 103,t,&NN_list,mlt,s,V 104,t,&NN_make_box,mlt,s,V 105,t,&NN_make_c16string,mlt,s,V 106,t,&NN_make_c8string,mlt,s,V 107,t,&NN_make_dict,mlt,s,V 108,t,&NN_make_string,mlt,s,V 109,t,&NN_make_vector,mlt,s,V 110,t,&NN_memmove,mlt,s,V 111,t,&NN_memset,mlt,s,V 112,t,&NN_mk_e2f,mlt,s,V 113,t,&NN_modulo,mlt,s,V 114,t,&NN_native_huh,mlt,s,V 115,t,&NN_raise,mlt,s,V 116,t,&NN_rat2cons,mlt,s,V 117,t,&NN_realloc,mlt,s,V 118,t,&NN_record_type_discriminator,mlt,s,V 119,t,&NN_record_type_referrer,mlt,s,V 120,t,&NN_record_type_slot_count,mlt,s,V 121,t,&NN_record_type_huh,mlt,s,V 122,t,&NN_ref,mlt,s,V 123,t,&NN_remainder,mlt,s,V 124,t,&NN_rvec_set,mlt,s,V 125,t,&NN_salloc,mlt,s,V 126,t,&NN_string,mlt,s,V 127,t,&NN_strcomp,mlt,s,V 128,t,&NN_string_fill,mlt,s,V 129,t,&NN_string_length,mlt,s,V 130,t,&NN_string_move,mlt,s,V 131,t,&NN_string_ref,mlt,s,V 132,t,&NN_string_huh,mlt,s,V 133,t,&NN_symbol_huh,mlt,s,V 134,t,&NN_sys_exit,mlt,s,V 135,t,&NN_sys_fstat,mlt,s,V 136,t,&NN_sys_getegid,mlt,s,V 137,t,&NN_sys_geteuid,mlt,s,V 138,t,&NN_sys_getgid,mlt,s,V 139,t,&NN_sys_getpid,mlt,s,V 140,t,&NN_sys_getppid,mlt,s,V 141,t,&NN_sys_getuid,mlt,s,V 142,t,&NN_sys_lstat,mlt,s,V 143,t,&NN_sys_select,mlt,s,V 144,t,&NN_sys_stat,mlt,s,V 145,t,&NN_sys_sync,mlt,s,V 146,t,&NN_truncate,mlt,s,V 147,t,&NN_type_of,mlt,s,V 148,t,&NN_unix_time,mlt,s,V 149,t,&NN_unsigned_get_bit,mlt,s,V 150,t,&NN_utf_8_first_byte2length,mlt,s,V 151,t,&NN_valloc,mlt,s,V 152,t,&NN_vector_fill,mlt,s,V 153,t,&NN_vector_length,mlt,s,V 154,t,&NN_vector_move,mlt,s,V 155,t,&NN_vector_ref,mlt,s,V 156,t,&NN_vector_huh,mlt,s,V 157,t,&NN_wisp_string_hash,mlt,s,V 158,mla,l,V 116,mlt,s,V 159,t,&S_wisp_version,mlt,s,V 160,t,&S_wisp_build,mlt,s,V 161,t,&S_wisp_builder,mlt,s,V 162,qi,I(19),t,&NN_clos,q,mla,l,V 125,tc,V 2,c,qi,I(3),mla,l,V 91,q,mla,l,V 125,tc,V 2,c,qi,I(4),mla,l,V 15,q,mla,l,V 125,tc,V 2,c,qi,I(5),mla,l,V 16,q,mla,l,V 125,tc,V 2,c,qi,I(6),mla,l,V 14,q,mla,l,V 125,tc,V 2,c,qi,I(7),mla,l,V 22,q,mla,l,V 125,tc,V 2,c,qi,I(9),mla,l,V 116,q,mla,l,V 125,tc,V 2,c,qi,I(10),t,B 0,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 125,tc,V 2,c,t,B 1,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 163,qi,I(11),mla,l,V 163,q,mla,l,V 125,tc,V 2,c,qi,I(14),mla,l,V 20,q,mla,l,V 125,tc,V 2,c,qi,I(15),mla,l,V 21,q,mla,l,V 125,tc,V 2,c,qi,I(17),mla,l,V 17,q,mla,l,V 125,tc,V 2,c,mha,l0,q,qi,W(master_dictionary),t,rvec,l,V 20,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(dict_ref),t,B 2,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(master_dictionary),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(get_raw_header_item),t,&NN_get_raw_header_item,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(master_dictionary),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(valloc),t,&NN_valloc,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(make_record_type),t,B 3,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,qi,I(1),mha,l0,q,qi,W(make_record_type),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 164,p,l,V 1,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 165,p,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 166,mha,l0,q,qi,W(LTmacroGT),mla,l,V 164,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(procedure2macro),t,B 4,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(macro2procedure),t,B 5,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(macro_huh),mha,l0,q,qi,W(LTmacroGT),t,&NN_dict_ref_2,tc,V 2,c,q,mla,l,V 119,tc,V 1,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(defmacro),t,B 6,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(procedure2macro),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(metacode),t,B 7,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(procedure2macro),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(assert),t,B 8,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(procedure2macro),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(type),t,B 10,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(procedure2macro),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(define),t,B 11,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(procedure2macro),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(not),t,B 12,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(null_huh),t,B 13,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(LT),t,B 15,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(LTEQ),t,B 17,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(EQ),t,B 19,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(GT),t,B 21,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(GTEQ),t,B 23,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(charLTEQ_huh),t,B 25,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(charLT_huh),t,B 27,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(charEQ_huh),t,B 29,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(charGTEQ_huh),t,B 31,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(charGT_huh),t,B 33,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(eq_huh),t,B 29,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(eqv_huh),t,B 19,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(SLASHEQ),t,B 35,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(cardinal_huh),t,B 36,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(eval),t,B 37,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(or),t,B 39,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(procedure2macro),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(and),t,B 41,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(procedure2macro),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+3,tc,V 3,c,t,B 43,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 167,t,B 46,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 168,mha,l0,q,qi,W(quasiquote),t,B 47,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(procedure2macro),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(process_unquote_splicing),t,B 48,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(process_simple_quasiquote),t,B 49,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(quasiquote_cons),t,B 50,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(do),t,B 52,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(procedure2macro),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(incr_bang),t,B 53,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(procedure2macro),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(decr_bang),t,B 54,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(procedure2macro),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(cons_bang),t,B 55,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(procedure2macro),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(acons_bang),t,B 56,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(procedure2macro),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(car_bang),t,B 57,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(procedure2macro),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(cdr_bang),t,B 58,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(procedure2macro),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(swap_bang),t,B 59,q,qi,V 1,qh,ql,li,rvec+19,t...
[truncated message content] |
|
From: <di...@us...> - 2002-09-04 14:31:51
|
Update of /cvsroot/wisp/wisp/doc In directory usw-pr-cvs1:/tmp/cvs-serv30609/doc Modified Files: TODO Log Message: Cleaned up the TODO list. Index: TODO =================================================================== RCS file: /cvsroot/wisp/wisp/doc/TODO,v retrieving revision 1.67 retrieving revision 1.68 diff -u -d -r1.67 -r1.68 --- TODO 4 Sep 2002 14:31:41 -0000 1.67 +++ TODO 4 Sep 2002 14:31:48 -0000 1.68 @@ -1,6 +1,5 @@ # doc/TODO - a ToDo list for the Wisp interpreter -- A compatibility module for SRFI-9 records on top of Wisp Classes. - A mod_wisp Apache module. - A nice way to write new parsers and rewrite ewisp as one such parser. - A replacement for make and cook. It could be called bake :-) @@ -8,71 +7,57 @@ - A vi-like editor with all the Emacs power conveyed by Wisp. - A way for a procedure to detect whether a given optional argument was specified by the caller or the default was used. - A way to define arithmetical operations for non-integers. -- A way to define ordering (and =) of non-integers or non-chars. +- A way to define ordering (and equality) of non-integers or non-chars. - A way to dump and undump part of current state super-fast. - A yacc-like grammarer. - Advance the assembler so it could create real native code, thusly eliminating the need for a virtual machine. +- All the primitives should be reentrant. - An M4-like expander for the structures. Call it maxpendor. - An apt-able distribution site for debs. - An expect-like system. - Analog for readline. - Backward continuations. -- Constructive methods. +- Convert c8strings and vectors into records. - Create a better way to write regexen, without the need to double all backslashes. - Create a family of parsers for SGML and descendants. - Create a flex-like tool based on the multi-way regexen. - Create a miniature operating system (Wispix? Wixp? Whateverix?) with OSKit. +- Create a way to encapsulate network sockets into ports. - Create snapshot output mechanism. +- Create the |new| procedure to use announced record constructors. +- Create the |slice| procedure as an analog to |ref|. - Database integration. - Detect local variables which always contain integers. - Dictionary iterator. -- Document pregexp's different vision of what a regex match should return. -- Document the export-macro special form. - Document the form precedence list. - Document the hidden *user-dictionary* argument to macros. - Document the implementation of macros. +- Drop the class mechanism in favour of the record system. - Eliminate any usage of Perl whatsoever. -- Eliminate dead code. +- Exceptions as backward continuations. - Existence predicates for optional arguments. - Flag local variables appropriately. -- GNU Coding Standards. -- Get Wisp in next Debian release. - Get the wispers.org domain up, running and filled with content. -- Haskell-style lazy procedure calls. - Imaging facilities so that png:s could be created dynamically for the Web. - Implement plumbing switchboards. - Implement record-level locking for files. +- Implement the homogeneous integer vectors of SRFI-4. - Integrate record-level locking with block-files. - Job control. - Logo for Wisp. - Make EVM sequences atomary for gc purposes and maintain reference lists. -- Make EVM_run(), when !home, push args to the machine stack, argc=:%ecx, and call the raw binary. - Make GC_collect_a_little() available to the Wisp level. - Make Wisp feasible as a shell. -- Make it so that resizing vectors or strings by `just a little' doesn't necessarily mean calling GC_realloc(). -- Make local variables take precedence over macro calls. Macros should only have precedence over global variables. - Make pipeline generator optionally assign a new jobid to the pipeline. - Make pipelines work so all the members are direct children of the caller so the caller can wait for all the members. -- Make structure->string properly detect prefixes following a dot. -- Make the "Invalid instruction handler pointer detected" not contain the pointer. -- Make the EVM use the system stack instead of NS for added speed. -- Make the assembler grinder available as a module. -- Make the bootstrapper use assembler's output. -- Make the builtin root element be an evmfunc by itself. -- Make the regex compiler create evmfuncs, thusly eliminating the need for pcre. -- Make the symbols gc'ible. -- Make the type macro append ? to the default signal. -- Make the with-input-from-file and with-output-to-file work on procedures which call subprocesses too. +- Make symbols gc'ible. - Make translator's result available outside the actual compiler. +- Make |structure->string| properly detect prefixes following a dot. +- Make |with-input-from-file| and |with-output-to-file| work on procedures which call subprocesses too. - Module versioning. -- Move display out of the builtin library. -- Move everything not strictly necessary for plain Wisp itself out of the builtin directory. - Multiple heritance. - Multithreadedness. - Multithreading with different threads in different processes/on different hosts. -- Optimize the compiler's local variable bookkeeping for faster translation. -- Optimize the reader further. -- Organize the builtin library so that locally used subroutines would be defined locally. - Parser for Algol, both for a60 and a68. - Port Dig's Link Collector to WebWisp and put it up on SourceForge as a nice example. Maybe make it a separate public project? - Port Wisp to SunOS. @@ -90,33 +75,17 @@ - Rewrite an optimizer. Currently, proper tail recursion is not done. - SRFI-14 character sets. - Separate vmap from map. -- Signals as backward continuations. - Splicing for function calls. - Stacktracing for debugging purposes. -- The drop-module procedure. -- The prohibit-local special form. +- The |prohibit-local| special form. - Think about possible implications of SRFI-10 (the #, forms). - Think of a way to read and write records. - Think on how to represent Prolog-like and Makefile-like structures by Lispian tools. - Timezone converter as a separate module. +- Unix signal handling. - Virtual terminals. - What about a hierarchical filesystem-like procedure tree? -- Wisp->C translator. -- Wrap gdbm . -- Write a grinder for normal Wisp code. -- Write a parser for procedures' and macros' arguments. It should be a cross between getopt and CL's lambda lists. - Write proper documentation. -- Write the (format ...) function. -- Write the allocated-space primitive. -- case-lambda special form. -- Unix signal handling. -- All the primitives should be reentrant. -- Create the new procedure to use announced record constructors. -- Drop the classes mechanism in favour of the record system. -- Create a way to encapsulate network sockets into ports. -- Create the |slice| procedure as an analog to |ref|. -- Think of i18n issues. The manual should be easily translatable. -- Should wisp.texi be automatically generated from builtin.wid ? -- Implement the homogeneous integer vectors of SRFI-4. -- Think of formalizing policy decision archive. -- Convert c8strings and vectors into records and make |ref| work on them. +- Write the |allocated-space| primitive. +- Write the |format| function. +- |case-lambda| special form. |
|
From: <di...@us...> - 2002-09-04 14:31:45
|
Update of /cvsroot/wisp/wisp/tests In directory usw-pr-cvs1:/tmp/cvs-serv30450/tests Modified Files: balanced.wisp cut-check.wisp srfi-1.wisp srfi-26.wisp Log Message: Made wisplint.wisp check that source files manifest their proper names. Index: balanced.wisp =================================================================== RCS file: /cvsroot/wisp/wisp/tests/balanced.wisp,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- balanced.wisp 26 Aug 2002 16:18:24 -0000 1.7 +++ balanced.wisp 4 Sep 2002 14:31:42 -0000 1.8 @@ -1,4 +1,4 @@ -;;;; tests/balanced.wim - test balanced.wim +;;;; tests/balanced.wisp - test balanced.wim ;; ;; Copyleft © 2002 by Andres Soolo (di...@us...) ;; This file is licensed under the GNU GPL v2. If you Index: cut-check.wisp =================================================================== RCS file: /cvsroot/wisp/wisp/tests/cut-check.wisp,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- cut-check.wisp 27 Aug 2002 14:24:48 -0000 1.1 +++ cut-check.wisp 4 Sep 2002 14:31:42 -0000 1.2 @@ -1,4 +1,4 @@ -;;;; cut-conf.wisp - the SRFI-26 cut form confidence test +;;;; cut-check.wisp - the SRFI-26 cut form confidence test (use display) (define (interaction-environment) (current-globals)) Index: srfi-1.wisp =================================================================== RCS file: /cvsroot/wisp/wisp/tests/srfi-1.wisp,v retrieving revision 1.14 retrieving revision 1.15 diff -u -d -r1.14 -r1.15 --- srfi-1.wisp 26 Aug 2002 16:18:24 -0000 1.14 +++ srfi-1.wisp 4 Sep 2002 14:31:42 -0000 1.15 @@ -1,3 +1,5 @@ +;;;; tests/srfi-1.wisp - test SRFI-1 compliance +;; ;;;; @(#) $Id$ (use tester) Index: srfi-26.wisp =================================================================== RCS file: /cvsroot/wisp/wisp/tests/srfi-26.wisp,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- srfi-26.wisp 26 Aug 2002 16:18:24 -0000 1.5 +++ srfi-26.wisp 4 Sep 2002 14:31:42 -0000 1.6 @@ -1,3 +1,5 @@ +;;;; tests/srfi-26.wisp - test SRFI-26 compliance +;; ;;;; @(#) $Id$ (use tester) |
|
From: <di...@us...> - 2002-09-04 14:31:45
|
Update of /cvsroot/wisp/wisp/web In directory usw-pr-cvs1:/tmp/cvs-serv30450/web Modified Files: .cvsignore Log Message: Made wisplint.wisp check that source files manifest their proper names. Index: .cvsignore =================================================================== RCS file: /cvsroot/wisp/wisp/web/.cvsignore,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- .cvsignore 28 Aug 2002 20:05:43 -0000 1.1 +++ .cvsignore 4 Sep 2002 14:31:42 -0000 1.2 @@ -1,2 +1,3 @@ +.*.swp Makefile Makefile.in |
|
From: <di...@us...> - 2002-09-04 14:31:45
|
Update of /cvsroot/wisp/wisp/src/native In directory usw-pr-cvs1:/tmp/cvs-serv30450/src/native Modified Files: Makefile.am Log Message: Made wisplint.wisp check that source files manifest their proper names. Index: Makefile.am =================================================================== RCS file: /cvsroot/wisp/wisp/src/native/Makefile.am,v retrieving revision 1.151 retrieving revision 1.152 diff -u -d -r1.151 -r1.152 --- Makefile.am 4 Sep 2002 14:26:57 -0000 1.151 +++ Makefile.am 4 Sep 2002 14:31:42 -0000 1.152 @@ -1,4 +1,4 @@ -#### wisp/src/native/Makefile.am +#### src/native/Makefile.am for the Wisp interpreter # # Copyleft © 2002 by Andres Soolo (di...@us...) # This file is licensed under the GNU GPL v2. If you |
|
From: <di...@us...> - 2002-09-04 14:31:45
|
Update of /cvsroot/wisp/wisp/tools In directory usw-pr-cvs1:/tmp/cvs-serv30450/tools Modified Files: was worth Log Message: Made wisplint.wisp check that source files manifest their proper names. Index: was =================================================================== RCS file: /cvsroot/wisp/wisp/tools/was,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- was 4 Sep 2002 14:30:56 -0000 1.9 +++ was 4 Sep 2002 14:31:42 -0000 1.10 @@ -1,6 +1,6 @@ #! /usr/bin/wisp -;;;; was.wisp - the executable around the Wisp Assembler +;;;; tools/was - the executable around the Wisp Assembler ;; ;; Copyleft © 2002 by Andres Soolo (di...@us...) ;; This file is licensed under the GNU GPL v2. If you Index: worth =================================================================== RCS file: /cvsroot/wisp/wisp/tools/worth,v retrieving revision 1.24 retrieving revision 1.25 diff -u -d -r1.24 -r1.25 --- worth 4 Sep 2002 14:30:56 -0000 1.24 +++ worth 4 Sep 2002 14:31:42 -0000 1.25 @@ -1,6 +1,6 @@ #! /usr/bin/wisp -;;;; worth.wisp - translator for a Forth-like low-level language +;;;; tools/worth - translator for a Forth-like low-level language ;; ;; Copyleft © 2002 by Andres Soolo (di...@us...) ;; This file is licensed under the GNU GPL v2. If you |
|
From: <di...@us...> - 2002-09-04 14:31:44
|
Update of /cvsroot/wisp/wisp/src In directory usw-pr-cvs1:/tmp/cvs-serv30450/src Modified Files: arithm.c arithm.h dict.c dict.h evm.c evm.h mem.c mem.h memcmp.c node.h prim.h sys.h wisp.c.nepl wordreg.c wordreg.h.nepl Log Message: Made wisplint.wisp check that source files manifest their proper names. Index: arithm.c =================================================================== RCS file: /cvsroot/wisp/wisp/src/arithm.c,v retrieving revision 1.35 retrieving revision 1.36 diff -u -d -r1.35 -r1.36 --- arithm.c 8 Aug 2002 16:59:24 -0000 1.35 +++ arithm.c 4 Sep 2002 14:31:41 -0000 1.36 @@ -1,5 +1,5 @@ /* - * This is arithm.c, the C source file for Wisp arithmetics. + * arithm.c - libgmp wrappers for Wisp * * Copyleft © 2002 by Andres Soolo (di...@us...) * This file is licensed under the GNU GPL v2. If you Index: arithm.h =================================================================== RCS file: /cvsroot/wisp/wisp/src/arithm.h,v retrieving revision 1.21 retrieving revision 1.22 diff -u -d -r1.21 -r1.22 --- arithm.h 22 Jul 2002 14:53:10 -0000 1.21 +++ arithm.h 4 Sep 2002 14:31:41 -0000 1.22 @@ -1,5 +1,5 @@ /* - * This is arithm.h, the C header file to be used with arithm.c . + * arithm.h - the C header file to be used with arithm.c * * Copyleft © 2002 by Andres Soolo (di...@us...) * This file is licensed under the GNU GPL v2. If you Index: dict.c =================================================================== RCS file: /cvsroot/wisp/wisp/src/dict.c,v retrieving revision 1.28 retrieving revision 1.29 diff -u -d -r1.28 -r1.29 --- dict.c 22 Jul 2002 14:53:10 -0000 1.28 +++ dict.c 4 Sep 2002 14:31:41 -0000 1.29 @@ -1,5 +1,5 @@ /* - * This is dict.c, the C source file for sparse arrays. + * dict.c - sparse arrays * * Copyleft © 2002 by Andres Soolo (di...@us...) * This file is licensed under the GNU GPL v2. If you Index: dict.h =================================================================== RCS file: /cvsroot/wisp/wisp/src/dict.h,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- dict.h 30 Jul 2002 21:26:56 -0000 1.17 +++ dict.h 4 Sep 2002 14:31:41 -0000 1.18 @@ -1,5 +1,5 @@ /* - * This is dict.h, the C header file for sparse arrays. + * dict.h - the C header file for sparse arrays * * Copyleft © 2002 by Andres Soolo (di...@us...) * This file is licensed under the GNU GPL v2. If you Index: evm.c =================================================================== RCS file: /cvsroot/wisp/wisp/src/evm.c,v retrieving revision 1.340 retrieving revision 1.341 diff -u -d -r1.340 -r1.341 --- evm.c 8 Aug 2002 16:59:24 -0000 1.340 +++ evm.c 4 Sep 2002 14:31:41 -0000 1.341 @@ -1,5 +1,5 @@ /* - * This is evm.c, the C source file for EVM. + * evm.c - Enhanced Virtual Machine for the Wisp interpreter * * Copyleft © 2002 by Andres Soolo (di...@us...) * This file is licensed under the GNU GPL v2. If you Index: evm.h =================================================================== RCS file: /cvsroot/wisp/wisp/src/evm.h,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- evm.h 22 Jul 2002 14:53:11 -0000 1.7 +++ evm.h 4 Sep 2002 14:31:41 -0000 1.8 @@ -1,6 +1,5 @@ /* - * This file, evm.h, is to be used with evm.c, the - * Enhanced Virtual Machine of the Wisp interpreter. + * evm.h - the C header file for the Enhanced Virtual Machine * * Copyleft © 2002 by Andres Soolo (di...@us...) * This file is licensed under the GNU GPL v2. If you Index: mem.c =================================================================== RCS file: /cvsroot/wisp/wisp/src/mem.c,v retrieving revision 1.26 retrieving revision 1.27 diff -u -d -r1.26 -r1.27 --- mem.c 22 Jul 2002 14:53:11 -0000 1.26 +++ mem.c 4 Sep 2002 14:31:41 -0000 1.27 @@ -1,5 +1,5 @@ /* - * This is mem.c, the C header file to implement Wisp memory management. + * mem.c - Wisp memory management wrappers * * Copyleft © 2002 by Andres Soolo (di...@us...) * This file is licensed under the GNU GPL v2. If you Index: mem.h =================================================================== RCS file: /cvsroot/wisp/wisp/src/mem.h,v retrieving revision 1.37 retrieving revision 1.38 diff -u -d -r1.37 -r1.38 --- mem.h 22 Jul 2002 14:53:11 -0000 1.37 +++ mem.h 4 Sep 2002 14:31:41 -0000 1.38 @@ -1,6 +1,5 @@ /* - * This is mem.h, the C header file for the Wisp programming language - * that declares the memory management routines. + * mem.h - declare the Wisp memory management routines * * Copyleft © 2002 by Andres Soolo (di...@us...) * This file is licensed under the GNU GPL v2. If you Index: memcmp.c =================================================================== RCS file: /cvsroot/wisp/wisp/src/memcmp.c,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- memcmp.c 22 Jul 2002 14:53:11 -0000 1.3 +++ memcmp.c 4 Sep 2002 14:31:41 -0000 1.4 @@ -1,11 +1,12 @@ +/* + * memcmp.c - a slow but safe implementation of memcmp() + */ + #include <sys/types.h> static const char ident[] __attribute__ ((unused)) = "@(#) $Id$"; - -// It's slow but necessary when the system's ordinary memcmp() -// is not good enough. int memcmp (const void *a, const void *b, size_t count) Index: node.h =================================================================== RCS file: /cvsroot/wisp/wisp/src/node.h,v retrieving revision 1.228 retrieving revision 1.229 diff -u -d -r1.228 -r1.229 --- node.h 22 Jul 2002 14:53:11 -0000 1.228 +++ node.h 4 Sep 2002 14:31:41 -0000 1.229 @@ -1,6 +1,5 @@ /* - * This is node.h, the C header file to be used with node.c . - * Note that the node handling mechanics is very Wisp-specific. + * node.h - header file for the Wisp node handling * * Copyleft © 2002 by Andres Soolo (di...@us...) * This file is licensed under the GNU GPL v2. If you Index: prim.h =================================================================== RCS file: /cvsroot/wisp/wisp/src/prim.h,v retrieving revision 1.45 retrieving revision 1.46 diff -u -d -r1.45 -r1.46 --- prim.h 30 Jul 2002 21:44:00 -0000 1.45 +++ prim.h 4 Sep 2002 14:31:41 -0000 1.46 @@ -1,6 +1,5 @@ /* - * This is prim.h, the C header file for the Wisp programming language - * that declares the basic primitives not declared elsewhere. + * prim.h - declare some basic primitives for the Wisp interpreter * * Copyleft © 2002 by Andres Soolo (di...@us...) * This file is licensed under the GNU GPL v2. If you Index: sys.h =================================================================== RCS file: /cvsroot/wisp/wisp/src/sys.h,v retrieving revision 1.56 retrieving revision 1.57 diff -u -d -r1.56 -r1.57 --- sys.h 22 Jul 2002 14:53:11 -0000 1.56 +++ sys.h 4 Sep 2002 14:31:41 -0000 1.57 @@ -1,5 +1,5 @@ /* - * This is sys.h, the C header file for Wisp's Unix system integration. + * sys.h - the C header file for Wisp's Unix system integration * * Copyleft © 2002 by Andres Soolo (di...@us...) * This file is licensed under the GNU GPL v2. If you Index: wisp.c.nepl =================================================================== RCS file: /cvsroot/wisp/wisp/src/wisp.c.nepl,v retrieving revision 1.54 retrieving revision 1.55 diff -u -d -r1.54 -r1.55 --- wisp.c.nepl 31 Aug 2002 14:30:24 -0000 1.54 +++ wisp.c.nepl 4 Sep 2002 14:31:41 -0000 1.55 @@ -1,6 +1,10 @@ +#! /usr/bin/perl -w + +# wisp.c.nepl - generate the 'main' source file for the Wisp interpreter + print <<'#perl'; /* - * This is rew.c.nepl, the Run-Eval-Write source file for the Wisp interpreter. + * wisp.c - the 'main' source file for the Wisp interpreter * * Copyleft © 2002 by Andres Soolo (di...@us...) * This file is licensed under the GNU GPL v2. If you Index: wordreg.c =================================================================== RCS file: /cvsroot/wisp/wisp/src/wordreg.c,v retrieving revision 1.36 retrieving revision 1.37 diff -u -d -r1.36 -r1.37 --- wordreg.c 22 Jul 2002 14:53:11 -0000 1.36 +++ wordreg.c 4 Sep 2002 14:31:41 -0000 1.37 @@ -1,6 +1,5 @@ /* - * This is wordreg.c, the C source file for word registration. - * It should not be too Wisp-specific. + * wordreg.c - word registry for Wisp * * Copyleft © 2001 by Andres Soolo (di...@us...) * This file is licensed under the GNU GPL v2. If you Index: wordreg.h.nepl =================================================================== RCS file: /cvsroot/wisp/wisp/src/wordreg.h.nepl,v retrieving revision 1.29 retrieving revision 1.30 diff -u -d -r1.29 -r1.30 --- wordreg.h.nepl 30 Jul 2002 21:44:01 -0000 1.29 +++ wordreg.h.nepl 4 Sep 2002 14:31:41 -0000 1.30 @@ -1,7 +1,10 @@ +#! /usr/bin/perl -w + +# wordreg.h.nepl - generate the C header file for word registration. + print <<'#perl'; /* - * This is wordreg.h, the C header file for word registration. - * It should not be too Wisp-specific. + * wordreg.h - the C header file for word registration. * * Copyleft © 2000 by Andres Soolo (di...@us...) * This file is licensed under the GNU GPL v2. If you |
|
From: <di...@us...> - 2002-09-04 14:31:44
|
Update of /cvsroot/wisp/wisp/modules/cpu In directory usw-pr-cvs1:/tmp/cvs-serv30450/modules/cpu Modified Files: .cvsignore Log Message: Made wisplint.wisp check that source files manifest their proper names. Index: .cvsignore =================================================================== RCS file: /cvsroot/wisp/wisp/modules/cpu/.cvsignore,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- .cvsignore 22 Jul 2002 14:36:48 -0000 1.3 +++ .cvsignore 4 Sep 2002 14:31:41 -0000 1.4 @@ -1,4 +1,5 @@ *.frwim +.*.swp .ordered.*.wid Makefile Makefile.in |
|
From: <di...@us...> - 2002-09-04 14:31:44
|
Update of /cvsroot/wisp/wisp/modules/format In directory usw-pr-cvs1:/tmp/cvs-serv30450/modules/format Modified Files: .cvsignore Log Message: Made wisplint.wisp check that source files manifest their proper names. Index: .cvsignore =================================================================== RCS file: /cvsroot/wisp/wisp/modules/format/.cvsignore,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- .cvsignore 22 Jul 2002 14:36:48 -0000 1.2 +++ .cvsignore 4 Sep 2002 14:31:41 -0000 1.3 @@ -1,4 +1,5 @@ *.frwim +.*.swp .ordered.*.wid Makefile Makefile.in |
Update of /cvsroot/wisp/wisp/modules In directory usw-pr-cvs1:/tmp/cvs-serv30450/modules Modified Files: arithmetics.wim cgi.wim display.wim files.wim random.wim string-port.wim strings.wim Log Message: Made wisplint.wisp check that source files manifest their proper names. Index: arithmetics.wim =================================================================== RCS file: /cvsroot/wisp/wisp/modules/arithmetics.wim,v retrieving revision 1.13 retrieving revision 1.14 diff -u -d -r1.13 -r1.14 --- arithmetics.wim 26 Aug 2002 16:18:17 -0000 1.13 +++ arithmetics.wim 4 Sep 2002 14:31:41 -0000 1.14 @@ -1,4 +1,4 @@ -;;;; This is the arithmetics module for the Wisp interpreter. +;;;; arithmetics.wim ;; ;; Copyleft © 2002 by Andres Soolo (di...@us...) ;; This file is licensed under the GNU GPL v2. If you Index: cgi.wim =================================================================== RCS file: /cvsroot/wisp/wisp/modules/cgi.wim,v retrieving revision 1.40 retrieving revision 1.41 diff -u -d -r1.40 -r1.41 --- cgi.wim 4 Sep 2002 14:29:42 -0000 1.40 +++ cgi.wim 4 Sep 2002 14:31:41 -0000 1.41 @@ -1,4 +1,4 @@ -;;;; This is the CGI interfacing module for the Wisp interpreter. +;;;; cgi.wim - Common Gateway Interface for the Wisp interpreter ;; ;; Copyleft © 2002 by Andres Soolo (di...@us...) ;; This file is licensed under the GNU GPL v2. If you Index: display.wim =================================================================== RCS file: /cvsroot/wisp/wisp/modules/display.wim,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- display.wim 4 Sep 2002 14:25:33 -0000 1.9 +++ display.wim 4 Sep 2002 14:31:41 -0000 1.10 @@ -1,4 +1,4 @@ -;;;; display.wisp - Displaying +;;;; display.wim - the R5RS |display| procedure ;; ;; Copyleft © 2001 by Andres Soolo (di...@us...) ;; This file is licensed under the GNU GPL v2. If you Index: files.wim =================================================================== RCS file: /cvsroot/wisp/wisp/modules/files.wim,v retrieving revision 1.40 retrieving revision 1.41 diff -u -d -r1.40 -r1.41 --- files.wim 31 Aug 2002 14:28:26 -0000 1.40 +++ files.wim 4 Sep 2002 14:31:41 -0000 1.41 @@ -1,4 +1,4 @@ -;;;; This is the file operations module for the Wisp interpreter. +;;;; files.wim ;; ;; Copyleft © 2002 by Andres Soolo (di...@us...) ;; This file is licensed under the GNU GPL v2. If you Index: random.wim =================================================================== RCS file: /cvsroot/wisp/wisp/modules/random.wim,v retrieving revision 1.23 retrieving revision 1.24 diff -u -d -r1.23 -r1.24 --- random.wim 26 Aug 2002 16:18:19 -0000 1.23 +++ random.wim 4 Sep 2002 14:31:41 -0000 1.24 @@ -1,4 +1,4 @@ -;;;; This is the random number module for the Wisp interpreter. +;;;; random.wim ;; ;; Copyleft © 2002 by Andres Soolo (di...@us...) ;; This file is licensed under the GNU GPL v2. If you Index: string-port.wim =================================================================== RCS file: /cvsroot/wisp/wisp/modules/string-port.wim,v retrieving revision 1.13 retrieving revision 1.14 diff -u -d -r1.13 -r1.14 --- string-port.wim 26 Aug 2002 16:18:19 -0000 1.13 +++ string-port.wim 4 Sep 2002 14:31:41 -0000 1.14 @@ -1,4 +1,4 @@ -;;;; This module implements the SRFI-6 general string ports. +;;;; string-port.wim - general string ports of SRFI-6 ;; ;; Copyleft © 2000 by Andres Soolo (di...@us...) ;; This file is licensed under the GNU GPL v2. If you Index: strings.wim =================================================================== RCS file: /cvsroot/wisp/wisp/modules/strings.wim,v retrieving revision 1.67 retrieving revision 1.68 diff -u -d -r1.67 -r1.68 --- strings.wim 26 Aug 2002 16:18:19 -0000 1.67 +++ strings.wim 4 Sep 2002 14:31:41 -0000 1.68 @@ -1,4 +1,4 @@ -;;;; This is the stringbending module for the Wisp interpreter. +;;;; strings.wim ;; ;; Copyleft © 2002 by Andres Soolo (di...@us...) ;; This file is licensed under the GNU GPL v2. If you |
|
From: <di...@us...> - 2002-09-04 14:31:44
|
Update of /cvsroot/wisp/wisp/doc/examples
In directory usw-pr-cvs1:/tmp/cvs-serv30450/doc/examples
Modified Files:
Makefile.am
Removed Files:
embed.ewisp
Log Message:
Made wisplint.wisp check that source files manifest their proper names.
Index: Makefile.am
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/examples/Makefile.am,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -d -r1.34 -r1.35
--- Makefile.am 31 Aug 2002 14:29:37 -0000 1.34
+++ Makefile.am 4 Sep 2002 14:31:41 -0000 1.35
@@ -8,7 +8,6 @@
EXTRA_DIST = closure.wisp quine.wisp signal.wisp \
rawkey.wisp \
- embed.ewisp \
find.wisp \
undoc.wisp \
hello.was hello.wth banana.wth false.wth angry.wth \
@@ -16,7 +15,7 @@
exampledir = ${prefix}/share/doc/wisp/examples
-install: install-dir install-readable install-executable
+install: install-dir install-readable
install-dir:
install -d ${exampledir}
@@ -26,9 +25,6 @@
find.wisp undoc.wisp \
hello.was hello.wth banana.wth false.wth angry.wth
install -m644 $^ ${exampledir}
-
-install-executable: embed.ewisp
- install -m755 $^ ${exampledir}
check: quine-check
--- embed.ewisp DELETED ---
|
|
From: <di...@us...> - 2002-09-04 14:31:43
|
Update of /cvsroot/wisp/wisp/doc In directory usw-pr-cvs1:/tmp/cvs-serv30450/doc Modified Files: TODO Log Message: Made wisplint.wisp check that source files manifest their proper names. Index: TODO =================================================================== RCS file: /cvsroot/wisp/wisp/doc/TODO,v retrieving revision 1.66 retrieving revision 1.67 diff -u -d -r1.66 -r1.67 --- TODO 30 Jul 2002 21:43:03 -0000 1.66 +++ TODO 4 Sep 2002 14:31:41 -0000 1.67 @@ -1,10 +1,4 @@ -Hi there :-) - -This is the file I've put some future ideas about Wisp development -into. The order is literally random. Some of them are feasible, -some are just really wild ideas. If you're interested in doing -anything listed here (or anything not listed here) or find something -should be listed here, just let me know. +# doc/TODO - a ToDo list for the Wisp interpreter - A compatibility module for SRFI-9 records on top of Wisp Classes. - A mod_wisp Apache module. |
|
From: <di...@us...> - 2002-09-04 14:31:43
|
Update of /cvsroot/wisp/wisp
In directory usw-pr-cvs1:/tmp/cvs-serv30450
Modified Files:
config.guess config.sub install-sh wisplint.wisp
Log Message:
Made wisplint.wisp check that source files manifest their proper names.
Index: config.guess
===================================================================
RCS file: /cvsroot/wisp/wisp/config.guess,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- config.guess 22 Jul 2002 14:36:46 -0000 1.2
+++ config.guess 4 Sep 2002 14:31:41 -0000 1.3
@@ -1,6 +1,6 @@
#! /bin/sh
-# Attempt to guess a canonical system name.
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
+# config.guess - attempt to guess a canonical system name
+# Copyright © 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
# 2000, 2001, 2002 Free Software Foundation, Inc.
timestamp='2002-03-20'
Index: config.sub
===================================================================
RCS file: /cvsroot/wisp/wisp/config.sub,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- config.sub 12 May 2002 14:39:13 -0000 1.1
+++ config.sub 4 Sep 2002 14:31:41 -0000 1.2
@@ -1,6 +1,6 @@
#! /bin/sh
-# Configuration validation subroutine script.
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
+# config.sub - configuration validation subroutine script
+# Copyright © 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
# 2000, 2001, 2002 Free Software Foundation, Inc.
timestamp='2002-03-07'
Index: install-sh
===================================================================
RCS file: /cvsroot/wisp/wisp/install-sh,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- install-sh 30 Jul 2002 21:43:59 -0000 1.3
+++ install-sh 4 Sep 2002 14:31:41 -0000 1.4
@@ -1,6 +1,6 @@
#! /bin/sh
#
-# install - install a program, script, or datafile
+# install-sh - install a program, script, or datafile
# This comes from X11R5 (mit/util/scripts/install.sh).
#
# Copyright 1991 by the Massachusetts Institute of Technology
Index: wisplint.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/wisplint.wisp,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- wisplint.wisp 31 Aug 2002 14:29:37 -0000 1.17
+++ wisplint.wisp 4 Sep 2002 14:31:41 -0000 1.18
@@ -13,7 +13,7 @@
(define (check-for-gpl-notice name)
(call-with-input-file name
(lambda (port)
- (my head (string-join (read-all-lines port 7)
+ (my head (string-join (read-all-lines port 10)
#\newline
'suffix)
(cond
@@ -50,6 +50,22 @@
"@users.sourceforge.net")
(raise 'refers-to-sourceforge.net name)))))
+(define (check-for-filename name)
+ (call-with-input-file name
+ (lambda (port)
+ (my manifest-name name
+ (if (and (string=? name[... 8] "modules/")
+ (string=? name[-4 ...] ".wim"))
+ (set! manifest-name name[8 ...]))
+ (my haystack (string-join (read-all-lines port 10)
+ #\newline
+ 'suffix)
+ (if (not (or (string-contains haystack " $,[manifest-name] ")
+ (string-contains haystack " $,[manifest-name]\n")
+ (string-contains haystack " $,(basename name) ")
+ (string-contains haystack " $,(basename name)\n")))
+ (raise 'no-filename name)))))))
+
(define (check-for-id name)
(call-with-input-file name
(lambda (port)
@@ -144,7 +160,29 @@
"tests/cut-check.wisp"
"wa/README.wa")
string=?)))
- (run check-for-id name))))))
+ (run check-for-id name))
+ (if (and (not (equal? (filename-suffix name) ".s"))
+ (not (member name '("COPYING"
+ "DISCLAIMER"
+ "INSTALL"
+ "README"
+ "acconfig.h"
+ "debian/changelog"
+ "debian/control"
+ "doc/TODO"
+ "doc/depends.txt"
+ "doc/examples/quine.wisp"
+ "doc/paw.txt"
+ "doc/wisp.texi"
+ "src/native/sysconst.inc"
+ "src/stamp-h.in"
+ "src/sysconst.h"
+ "wa/README.wa"
+ "web/gray.cgi"
+ "web/index.html"
+ "web/names.cgi")
+ string=?)))
+ (run check-for-filename name))))))
(collect
(lambda (emit)
(let (loop (dir "."))
|
