[Wisp-cvs] wisp/src essence.c,1.189,1.190

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

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

Modified Files:
	essence.c 
Log Message:
Made |length| able to access length of strings and vectors.

Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.189
retrieving revision 1.190
diff -u -d -r1.189 -r1.190
--- essence.c	7 Sep 2002 21:53:51 -0000	1.189
+++ essence.c	7 Sep 2002 21:54:53 -0000	1.190
@@ -587,471 +587,470 @@
 void*Y140[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(concatenate),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r};
 void*Y141[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jinz,V 4,t,T,j,V 2,t,F,jinf,V 37,dig,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 22,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 1,tc,V 1,c,j,V 2,t,F,ds,V 1,r};
 void*Y142[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,Q,mlt,s,V 1,t,B 141,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 1,mla,l,V 0,q,mla,l,V 1,tc,V 1,c,r};
-void*Y143[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 31,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 1,tc,V 1,c,q,qi,I(1),li,rvec+4,tc,V 2,c,ds,V 1,r,t,I(0),ds,V 1,r};
-void*Y144[]={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 143,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*Y145[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 16,dig,V 1,xri,Q,jinz,V 5,ds,V 2,t,T,r,ds,V 2,t,F,r,dig,V 1,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 34,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,dig,V 1,q,qi,I(1),li,rvec+5,tc,V 2,c,q,mha,l,V 2,l,V 2,tc,V 2,c,ds,V 2,r,t,F,ds,V 2,r};
-void*Y146[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,t,Q,mlt,s,V 2,t,B 145,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 2,mla,l,V 0,q,mla,l,V 1,q,mla,l,V 2,tc,V 2,c,r};
-void*Y147[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jiz,V 47,mha,l,V 2,l,V 0,q,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,xors,jinz,V 5,dig,V 0,ds,V 1,r,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 2,tc,V 1,c,ds,V 1,r,t,F,ds,V 1,r};
-void*Y148[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,t,Q,mlt,s,V 2,t,B 147,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 2,mla,l,V 1,q,mla,l,V 2,tc,V 1,c,r};
-void*Y149[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jiz,V 52,mha,l,V 2,l,V 0,q,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,li,rvec+17,tc,V 2,c,jif,V 5,dig,V 0,ds,V 1,r,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 2,tc,V 1,c,ds,V 1,r,t,F,ds,V 1,r};
-void*Y150[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,t,Q,mlt,s,V 2,t,B 149,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 2,mla,l,V 1,q,mla,l,V 2,tc,V 1,c,r};
[...1197 lines suppressed...]
 
 struct cons conses [] = {
@@ -2070,13 +2068,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 677,cdr:Q},
-[332]{car:B 676,cdr:BC 331},
-[333]{car:B 678,cdr:Q},
+[331]{car:B 676,cdr:Q},
+[332]{car:B 675,cdr:BC 331},
+[333]{car:B 677,cdr:Q},
 };
 
 /* The root node of the compiled builtin library */
 struct node *
-builtin_root = B 680;
+builtin_root = B 679;
 
 /* essence.c ends here */