[Wisp-cvs] wisp/src essence.c,1.174,1.175 wordlist.txt,1.553,1.554
Status: Alpha
Brought to you by:
digg
|
From: <di...@us...> - 2002-09-04 14:29:50
|
Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv29729/src
Modified Files:
essence.c wordlist.txt
Log Message:
Made macros ordinary first-class objects.
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.174
retrieving revision 1.175
diff -u -d -r1.174 -r1.175
--- essence.c 4 Sep 2002 14:28:27 -0000 1.174
+++ essence.c 4 Sep 2002 14:29:42 -0000 1.175
@@ -455,134 +455,134 @@
void*Y0[]={j,V 1,V 0,binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 85,tc,V 1,c,jinf,V 16,qi,W(cons_huh),dig,V 1,q,mha,l,V 1,l,V 116,tc,V 2,c,ds,V 1,r,dig,V 0,ds,V 1,r};
void*Y1[]={j,V 1,V 0,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 116,tc,V 2,c,ds,V 2,r,t,Z,ds,V 2,r};
void*Y2[]={j,V 1,V 0,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 91,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 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,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 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*Y3[]={j,V 1,V 0,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 85,tc,V 1,c,jif,V 146,qi,W(set_bang),qi,W(dict_ref),qi,W(XmacrosX),qi,W(quote),mla,l,V 1,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,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(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 84,tc,V 2,c,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,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 212,qi,W(set_bang),qi,W(dict_ref),qi,W(XmacrosX),qi,W(quote),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,q,qi,W(lambda),qi,W(Xsource_dictionaryX),qi,W(DOTl),mha,l,V 1,l,V 84,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 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,W(DOTl),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,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(syntax_error),qi,W(defmacro),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*Y4[]={j,V 1,V 0,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*Y5[]={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,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 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,qi,W(raise),qi,W(quote),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,qi,W(quote),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,q,qi,W(begin),qi,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,mha,l,V 1,l,V 84,tc,V 2,c,r};
-void*Y7[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 3,binc,&branch_EVM_invargca,mac,mca,subc,V 5,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 3,jizc,V 15,mac,p,s,V 3,p,s,V 2,p,s,V 1,p,s,V 0,j,V 101,mac,p,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,qi,I(-1),mha,l0,q,qi,W(symbol_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,CH('?'),mha,l0,q,qi,W(charEQ_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 5,mla,l,V 1,j,V 47,mla,l,V 1,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 6,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string2symbol),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,s,V 3,mla,l,V 1,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 6,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string2symbol),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 4,qi,W(my),qi,W(val),mla,l,V 2,q,qi,W(if),qi,W(not),mla,l,V 4,q,qi,W(val),qi,Q,mha,l,V 1,l,V 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,W(raise),qi,W(quote),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,qi,W(val),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,W(begin),qi,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,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,mha,l,V 1,l,V 84,tc,V 2,c,r};
-void*Y8[]={j,V 1,V 0,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 85,tc,V 1,c,jif,V 80,qi,W(define),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,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,mha,l,V 1,l,V 84,tc,V 2,c,r,qi,W(DEFINE),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,r};
-void*Y9[]={j,V 1,V 0,binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,xri,F,jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r};
-void*Y10[]={j,V 1,V 0,binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jinz,V 5,ds,V 1,t,T,r,ds,V 1,t,F,r};
-void*Y11[]={j,V 1,V 0,binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jinz,V 4,t,T,j,V 2,t,F,jinf,V 56,dig,V 1,q,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,li,rvec+15,tc,V 2,c,jif,V 33,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 3,tc,V 2,c,j,V 2,t,F,ds,V 2,r};
[...980 lines suppressed...]
struct cons conses [] = {
@@ -2067,13 +2061,13 @@
[324]{car:CH('C'),cdr:BC 323},
[325]{car:CH('A'),cdr:BC 324},
[326]{car:CH('e'),cdr:BC 325},
-[327]{car:B 672,cdr:Q},
-[328]{car:B 671,cdr:BC 327},
-[329]{car:B 673,cdr:Q},
+[327]{car:B 671,cdr:Q},
+[328]{car:B 670,cdr:BC 327},
+[329]{car:B 672,cdr:Q},
};
/* The root node of the compiled builtin library */
struct node *
-builtin_root = B 675;
+builtin_root = B 674;
/* essence.c ends here */
Index: wordlist.txt
===================================================================
RCS file: /cvsroot/wisp/wisp/src/wordlist.txt,v
retrieving revision 1.553
retrieving revision 1.554
diff -u -d -r1.553 -r1.554
--- wordlist.txt 4 Sep 2002 14:28:37 -0000 1.553
+++ wordlist.txt 4 Sep 2002 14:29:47 -0000 1.554
@@ -15,7 +15,6 @@
*arglist*
*asm-lock*
*ctx
-*macros*
*source-dictionary*
*stderr*
*stdin*
@@ -30,7 +29,6 @@
.l
/
/=
-:
:=
:=?
<
@@ -42,6 +40,7 @@
<c16string>
<class>
<file>
+<macro>
<port>
<record-type>
=
@@ -360,7 +359,6 @@
\char8
abs
absolute
-accept
acons!
addat
address-of
@@ -551,7 +549,6 @@
concatenate
cond
conflict
-conflicting-documentation
cons
cons!
cons-copy
@@ -564,7 +561,6 @@
ctime
current-globals
cut
-cut-place
cute
d
dat
@@ -595,7 +591,6 @@
discriminator
division-by-zero
do
-documentation
dot-tail
drain
drop
@@ -615,7 +610,6 @@
end
ensure-in-buffer
ensure-line-in-buffer
-env-copy
env-ref
eof-object?
eof?
@@ -633,9 +627,7 @@
exclusive
execve
exit
-expand-cut
export
-export-macro
f
false
fatal-handler
@@ -793,7 +785,6 @@
list-copy
list-ref
list?
-listen
load
local
local-count
@@ -806,6 +797,8 @@
lookup-slot
lseek
mac
+macro->procedure
+macro?
mah
make-box
make-c16string
@@ -813,7 +806,6 @@
make-class
make-counter
make-dict
-make-empty-env
make-fdset
make-instance
make-record-type
@@ -839,7 +831,6 @@
module
module-load
module-loop
-module-macro-ref
module-ref
module-was-run
modules
@@ -854,7 +845,6 @@
nc
negative?
negc
-new-value
newline
ninth
nlink
@@ -876,6 +866,7 @@
o
obsolete-initial
odd?
+of
off_t
oflag
open
@@ -920,6 +911,8 @@
preprocessing-error
prevent-invalid-call
print
+procedure->macro
+procedure-remark
procedure?
process-simple-quasiquote
process-unquote-splicing
@@ -1032,7 +1025,6 @@
sixth
size
size-of
-sktnr
slice
slot
slots
@@ -1081,7 +1073,6 @@
stringify-address
struct
structure->string
-structure->string-tree
sub
subat
subc
@@ -1106,7 +1097,6 @@
sync
syntax
syntax-error
-sys:accept
sys:chdir
sys:chmod
sys:close
|