wisp-cvs

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

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

Modified Files:
	essence.c wordlist.txt 
Log Message:
Introduced |my-options|.

Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.226
retrieving revision 1.227
diff -u -d -r1.226 -r1.227
--- essence.c	20 Sep 2002 18:34:32 -0000	1.226
+++ essence.c	20 Sep 2002 18:35:42 -0000	1.227
@@ -567,535 +567,538 @@
 void*Y124[]={binc,&branch_EVM_invargc,mca,subc,V 3,binzc,&branch_EVM_invargca,qi,W(dict_bind_bang),qi,W(quote),dig,V 4,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(quote),dig,V 4,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,dig,V 3,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 3,r};
 void*Y125[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,mlt,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 52,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 2,l,V 1,tc,V 1,c,q,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 1,tc,V 1,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 120,tc,V 1,c,jif,V 19,dig,V 0,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 146,tc,V 1,c,jif,V 42,dig,V 0,q,mha,l0,q,qi,W(vector2list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 2,l,V 1,tc,V 1,c,q,mha,l0,q,qi,W(list2vector),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 86,tc,V 1,c,jif,V 37,dig,V 0,q,mha,l,V 1,l,V 82,tc,V 1,c,q,mha,l,V 2,l,V 1,tc,V 1,c,q,mha,l0,q,qi,W(alist2dict),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,dig,V 0,ds,V 1,r};
 void*Y126[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,Q,mlt,s,V 1,t,B 125,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 1,mla,l,V 0,q,mla,l,V 1,tc,V 1,c,r};
-void*Y127[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 1,xri,Q,jiz,V 50,mha,l,V 2,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 2,l,V 0,tc,V 1,c,q,dig,V 1,tc,V 1,c,mha,l,V 2,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mat,mha,l,V 2,st,V 1,j,V -59,t,Z,ds,V 1,r};
-void*Y128[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,t,B 127,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 156,tc,V 1,c,r};
-void*Y129[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(carTIMES),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,jif,V 61,mha,l,V 2,l,V 0,q,mla,l,V 0,q,mha,l,V 1,l,V 11,tc,V 2,c,q,mha,l,V 3,l,V 0,tc,V 1,c,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,q,dig,V 1,q,mha,l,V 1,l,V 158,tc,V 2,c,q,mha,l,V 3,l,V 1,tc,V 1,c,ds,V 1,r,t,Z,ds,V 1,r};
-void*Y130[]={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 129,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 1,mha,l,V 2,l,V 1,q,mha,l,V 2,l,V 2,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mla,l,V 1,tc,V 1,c,r};
-void*Y131[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l,V 1,l,V 146,tc,V 1,c,jif,V 22,mla,l,V 1,q,mha,l0,q,qi,W(vector2list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 1,j,V 0,mla,l,V 2,xri,Q,jinz,V 17,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 158,tc,V 2,c,r,t,B 130,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 156,tc,V 1,c,r};
-void*Y132[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(carTIMES),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,jif,V 58,mla,l,V 0,mlt,s,V 1,mha,l,V 2,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 11,tc,V 2,c,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,q,dig,V 1,q,mha,l,V 1,l,V 158,tc,V 2,c,q,mha,l,V 2,l,V 4,tc,V 1,c,ds,V 1,r,t,F,ds,V 1,r};
-void*Y133[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 2,xri,Q,jinz,V 51,mla,l,V 1,mlt,s,V 3,mla,l,V 3,xri,Q,jiz,V 35,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 0,tc,V 1,c,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 3,j,V -42,t,Z,r,t,Q,mlt,s,V 4,t,B 132,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 4,mla,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mla,l,V 4,tc,V 1,c,r};
-void*Y134[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jiz,V 20,mha,l,V 2,l,V 1,q,dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 2,r,t,F,ds,V 2,r};
[...1343 lines suppressed...]
 
 struct cons conses [] = {
@@ -2160,13 +2166,13 @@
 [327]{car:CH('C'),cdr:BC 326},
 [328]{car:CH('A'),cdr:BC 327},
 [329]{car:CH('e'),cdr:BC 328},
-[330]{car:B 724,cdr:Q},
-[331]{car:B 723,cdr:BC 330},
-[332]{car:B 725,cdr:Q},
+[330]{car:B 727,cdr:Q},
+[331]{car:B 726,cdr:BC 330},
+[332]{car:B 728,cdr:Q},
 };
 
 /* The root node of the compiled builtin library */
 struct node *
-builtin_root = B 727;
+builtin_root = B 730;
 
 /* essence.c ends here */

Index: wordlist.txt
===================================================================
RCS file: /cvsroot/wisp/wisp/src/wordlist.txt,v
retrieving revision 1.588
retrieving revision 1.589
diff -u -d -r1.588 -r1.589
--- wordlist.txt	20 Sep 2002 18:34:58 -0000	1.588
+++ wordlist.txt	20 Sep 2002 18:35:44 -0000	1.589
@@ -119,13 +119,14 @@
 make-instance make-record-type make-string make-vector map
 master-dictionary mat mca meaning measurable? member memq memv meta
 metacode mha mla mlt mode modify-bit module module-load module-loop
-module-ref module-was-run modules modulo mta mtime my my-port native?
-negative? negc new newline ninth nlink normalize-binding not
-not-enough-space notc now nul null null-list? null? number
-number->string number? numerator nybble? nyp? o odd? of oflag open
-open-input-file open-output-file opt optimize-source or order->dict
-origin out-of-memory output-buffered-port-aux? output-mode output-port?
-overflow p pack-be-integer pack-le-integer page parse-character-body
+module-ref module-was-run modules modulo mta mtime my my-options
+my-port native? negative? negc new newline ninth nlink
+normalize-binding not not-enough-space notc now nul null null-list?
+null? number number->string number? numerator nybble? nyp? o odd? of
+oflag open open-input-file open-output-file opt optimize-source
+option-declaration? or order->dict origin out-of-memory
+output-buffered-port-aux? output-mode output-port? overflow p
+pack-be-integer pack-le-integer page parse-character-body
 parse-lambda-list pc peek-char peek-string ph pick-dict-items pipe pl
 port-host port-loop port-peek-string port-read-string port-ready?
 port-write-string port? positive? post-codegen postpone-linking prefix
@@ -176,11 +177,11 @@
 truncate truncate-not try tty? type type-of u u8 u8vector? ubyte? uid
 undefined unix-time unknown unknown-context unknown-local
 unknown-open-input-file-flag unknown-open-output-file-flag
-unpack-be-integer unpack-le-integer 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-move! vector? void void? vs vtab while wisp-build wisp-builder
-wisp-string-hash wisp-version with-errors-to with-fluid with-input-from
-with-output-to writable? write write-char write-string writeln
-wrong-fluid x xors xri zero?
+unknown-option unpack-be-integer unpack-le-integer 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-move! vector? void void?
+vs vtab while wisp-build wisp-builder wisp-string-hash wisp-version
+with-errors-to with-fluid with-input-from with-output-to writable?
+write write-char write-string writeln wrong-fluid x xors xri zero?