[Wisp-cvs] wisp/src essence.c,1.177,1.178

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

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 */