[Wisp-cvs] wisp/src essence.c,1.197,1.198 wordlist.txt,1.565,1.566
Status: Alpha
Brought to you by:
digg
Menu
▾
▴
[Wisp-cvs] wisp/src essence.c,1.197,1.198 wordlist.txt,1.565,1.566
|
From: <di...@us...> - 2002-09-11 17:35:07
|
Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv4198/src
Modified Files:
essence.c wordlist.txt
Log Message:
Made |string-compare| able to compare strings of different character width.
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.197
retrieving revision 1.198
diff -u -d -r1.197 -r1.198
--- essence.c 7 Sep 2002 22:03:51 -0000 1.197
+++ essence.c 11 Sep 2002 17:34:50 -0000 1.198
@@ -447,9 +447,9 @@
void*Y1[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mha,l0,q,qi,W(class_of),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 1,q,mha,l0,q,qi,W(subclass_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jinf,V 16,qi,W(instance_of_wrong_class),dig,V 2,q,mha,l,V 1,l,V 112,tc,V 2,c,ds,V 2,r,t,Z,ds,V 2,r};
void*Y2[]={hop,V 5,mlt,jinnc,V 10,notc,p,s,V 1,t,T,s,V 0,j,V 6,t,F,s,V 1,s,V 0,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 4,p,s,V 3,p,s,V 2,mla,l,V 0,jif,V 69,mla,l,V 4,xri,Q,jinz,V 21,mla,l,V 2,q,mla,l,V 3,q,mla,l,V 1,q,mha,l,V 1,l,V 87,tc,V 3,c,r,qi,W(argcount),mla,l,V 2,q,mla,l,V 3,q,mla,l,V 4,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 112,tc,V 2,c,r,mla,l,V 4,xri,Q,jinz,V 14,mla,l,V 2,q,mla,l,V 3,q,t,&dict_ref_2,tc,V 2,c,r,mla,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 26,mla,l,V 2,q,mla,l,V 3,q,mla,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,&NN_dict_ref_3,tc,V 3,c,r,qi,W(argcount),mla,l,V 2,q,mla,l,V 3,q,mla,l,V 4,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 112,tc,V 2,c,r};
void*Y3[]={binc,&branch_EVM_invargc,hop,V 6,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 0,q,t,&NN_pr_make_record_type,tc,V 1,c,mlt,s,V 2,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,F,q,t,F,q,mla,l,V 1,xri,Q,jiz,V 114,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 3,p,l,V 1,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 4,p,l,V 1,mlt,s,V 5,mla,l,V 5,mlt,s,V 1,mla,l,V 3,q,dig,V 0,xri,W(ref),jinz,V 44,dig,V 1,jif,V 16,qi,W(duplicate_ref_hook),mla,l,V 4,q,mha,l,V 1,l,V 112,tc,V 2,c,j,V 22,t,T,bury,V 1,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 12,tc,V 2,c,bury,V 2,j,V 14,qi,W(record_hook_name_huh),mla,l,V 3,q,mha,l,V 1,l,V 112,tc,V 2,c,ds,V 1,j,V -121,dig,V 0,jif,V 13,dig,V 2,q,dig,V 2,q,t,&NN_pr_record_type_ref_slot,tc,V -2,c,j,V 0,ds,V 1,ds,V 1,ds,V 1,mla,l,V 2,r};
-void*Y4[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 93,tc,V 1,c,jinf,V 28,dig,V 0,q,mha,l,V 1,l,V 111,tc,V 1,c,jinf,V 15,qi,W(procedure_huh),dig,V 1,q,mha,l,V 1,l,V 112,tc,V 2,c,j,V 0,dig,V 0,q,mha,l,V 1,l,V 155,tc,V 1,c,ds,V 1,r};
-void*Y5[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 156,tc,V 1,c,ds,V 1,r};
-void*Y6[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 113,qi,W(define),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(procedure2macro),qi,W(lambda),qi,W(Xsource_dictionaryX),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mla,l,V 2,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 128,tc,V 1,c,jif,V 42,mla,l,V 2,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 24,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,j,V 2,t,F,jif,V 179,qi,W(define),mla,l,V 1,q,qi,W(procedure2macro),qi,W(lambda),qi,W(Xsource_dictionaryX),qi,W(DOTl),mha,l,V 1,l,V 80,tc,V 2,c,q,qi,W(apply),qi,W(hide),qi,W(DOTl),mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,r,qi,W(syntax_error),qi,W(defmacro),mla,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 112,tc,V 2,c,r};
+void*Y4[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 93,tc,V 1,c,jinf,V 28,dig,V 0,q,mha,l,V 1,l,V 111,tc,V 1,c,jinf,V 15,qi,W(procedure_huh),dig,V 1,q,mha,l,V 1,l,V 112,tc,V 2,c,j,V 0,dig,V 0,q,mha,l,V 1,l,V 154,tc,V 1,c,ds,V 1,r};
+void*Y5[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 155,tc,V 1,c,ds,V 1,r};
+void*Y6[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 113,qi,W(define),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(procedure2macro),qi,W(lambda),qi,W(Xsource_dictionaryX),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mla,l,V 2,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 127,tc,V 1,c,jif,V 42,mla,l,V 2,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 24,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,j,V 2,t,F,jif,V 179,qi,W(define),mla,l,V 1,q,qi,W(procedure2macro),qi,W(lambda),qi,W(Xsource_dictionaryX),qi,W(DOTl),mha,l,V 1,l,V 80,tc,V 2,c,q,qi,W(apply),qi,W(hide),qi,W(DOTl),mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,r,qi,W(syntax_error),qi,W(defmacro),mla,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 112,tc,V 2,c,r};
void*Y7[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 0,q,dig,V 2,q,mha,l0,q,qi,W(eval),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 2,r};
void*Y8[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 12,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 11,mac,p,s,V 1,p,s,V 0,t,W(assertion_failed),s,V 2,qi,W(if),qi,W(not),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,W(raise),qi,W(quote),mla,l,V 2,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,W(quote),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,W(begin),qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,r};
[...1192 lines suppressed...]
struct cons conses [] = {
@@ -2076,13 +2080,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 681,cdr:Q},
-[332]{car:B 680,cdr:BC 331},
-[333]{car:B 682,cdr:Q},
+[331]{car:B 683,cdr:Q},
+[332]{car:B 682,cdr:BC 331},
+[333]{car:B 684,cdr:Q},
};
/* The root node of the compiled builtin library */
struct node *
-builtin_root = B 684;
+builtin_root = B 686;
/* essence.c ends here */
Index: wordlist.txt
===================================================================
RCS file: /cvsroot/wisp/wisp/src/wordlist.txt,v
retrieving revision 1.565
retrieving revision 1.566
diff -u -d -r1.565 -r1.566
--- wordlist.txt 7 Sep 2002 21:55:58 -0000 1.565
+++ wordlist.txt 11 Sep 2002 17:35:03 -0000 1.566
@@ -150,33 +150,33 @@
slot slots socket socketcall space splicing split-by-char st st_mode
stack start state-version stop strict-infix string string->c16string
string->c8string string->integer string->list string->number
-string->rational string->symbol string-append string-concatenate
-string-contains-nuls string-copy string-downcase string-downcase!
-string-fill! string-join string-join-grammar? string-length
-string-move! string-null? string-template string-upcase string-upcase!
-string-width? string<=? string<? string=? string>=? string>? string?
-stringify-address struct structure->string sub subat subc subclass?
-substring suffix superclass swap! swyde? symbol symbol->string
-symbol-compare symbol-length symbol-prefix symbol-ref symbol<=?
-symbol<? symbol>=? symbol>? symbol? symlink sync syntax syntax-error
-sys:chdir sys:chmod sys:close sys:dup sys:dup2 sys:errno->name
-sys:execve sys:exit sys:for-dir-entries sys:fork sys:fstat
-sys:ftruncate sys:getcwd sys:getegid sys:geteuid sys:getgid sys:getpgid
-sys:getpgrp sys:getpid sys:getppid sys:getuid sys:kill sys:link
-sys:listen sys:lseek sys:lstat sys:mkdir sys:nanosleep sys:open
-sys:pipe sys:read sys:rename sys:select sys:setpgid sys:setpgrp
-sys:setsid sys:stat sys:symlink sys:sync sys:tcgetattr sys:tcsetattr
-sys:truncate sys:unlink sys:waitpid sys:write syscalls sysnr
-system-constant system-constant-internal system-constants system-error
-system-path system-type t t* tab takervec target tc tcchangeattr
-tcgetattr tcgetattr-raw tcsetattr-raw tenth termios th third time tn
-too-long-character topocopy toposplit translate tree-copy true truncate
-truncate-not try tty? type type-of ubyte? uid undefined unix-time
-unknown unknown-context unknown-local unknown-open-input-file-flag
-unknown-open-output-file-flag unlink unpack-be-integer
-unpack-le-integer unpack-struct-flock unquote unquote-splicing
-unreadable unreadable-port unseekable-port unsure-collect
-unwritable-port use utf-8->c16string utf-8-continuer?
+string->rational string->symbol string-append string-compare
+string-concatenate string-contains-nuls string-copy string-downcase
+string-downcase! string-fill! string-join string-join-grammar?
+string-length string-move! string-null? string-template string-upcase
+string-upcase! string-width? string<=? string<? string=? string>=?
+string>? string? stringify-address struct structure->string sub subat
+subc subclass? substring suffix superclass swap! swyde? symbol
+symbol->string symbol-compare symbol-length symbol-prefix symbol-ref
+symbol<=? symbol<? symbol>=? symbol>? symbol? symlink sync syntax
+syntax-error sys:chdir sys:chmod sys:close sys:dup sys:dup2
+sys:errno->name sys:execve sys:exit sys:for-dir-entries sys:fork
+sys:fstat sys:ftruncate sys:getcwd sys:getegid sys:geteuid sys:getgid
+sys:getpgid sys:getpgrp sys:getpid sys:getppid sys:getuid sys:kill
+sys:link sys:listen sys:lseek sys:lstat sys:mkdir sys:nanosleep
+sys:open sys:pipe sys:read sys:rename sys:select sys:setpgid
+sys:setpgrp sys:setsid sys:stat sys:symlink sys:sync sys:tcgetattr
+sys:tcsetattr sys:truncate sys:unlink sys:waitpid sys:write syscalls
+sysnr system-constant system-constant-internal system-constants
+system-error system-path system-type t t* tab takervec target tc
+tcchangeattr tcgetattr tcgetattr-raw tcsetattr-raw tenth termios th
+third time tn too-long-character topocopy toposplit translate tree-copy
+true truncate truncate-not try tty? type type-of ubyte? uid undefined
+unix-time unknown unknown-context unknown-local
+unknown-open-input-file-flag unknown-open-output-file-flag unlink
+unpack-be-integer unpack-le-integer unpack-struct-flock unquote
+unquote-splicing unreadable unreadable-port unseekable-port
+unsure-collect unwritable-port use utf-8->c16string utf-8-continuer?
utf-8-first-byte->length uwyde? val valloc value vector vector->list
vector-append vector-copy vector-fill! vector-length vector-move!
vector? void void? vs vtab waitpid while wisp-build wisp-builder
|
