Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv26343/src
Modified Files:
essence.c wordlist.txt
Log Message:
Dropped the obsolete |freeze-class| procedure.
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.205
retrieving revision 1.206
diff -u -d -r1.205 -r1.206
--- essence.c 18 Sep 2002 20:56:48 -0000 1.205
+++ essence.c 18 Sep 2002 20:57:21 -0000 1.206
@@ -438,9 +438,9 @@
dict_ref_2;
/* The classes */
-void*BCL0[]__attribute__((aligned(16)))=CLS(F,(4,BC 3,BC 4,BC 5,BC 6),Q);
-void*BCL1[]__attribute__((aligned(16)))=CLS(F,(10,BC 8,BC 9,BC 10,BC 11,BC 12,BC 13,BC 14,BC 15,BC 16,BC 17),Q);
-void*BCL2[]__attribute__((aligned(16)))=CLS(&BCL1,(11,BC 8,BC 9,BC 10,BC 11,BC 12,BC 13,BC 14,BC 15,BC 16,BC 17,BC 18),Q);
+void*BCL0[]__attribute__((aligned(16)))=CLS(F,(2,BC 3,BC 4),Q);
+void*BCL1[]__attribute__((aligned(16)))=CLS(F,(10,BC 6,BC 7,BC 8,BC 9,BC 10,BC 11,BC 12,BC 13,BC 14,BC 15),Q);
+void*BCL2[]__attribute__((aligned(16)))=CLS(&BCL1,(11,BC 6,BC 7,BC 8,BC 9,BC 10,BC 11,BC 12,BC 13,BC 14,BC 15,BC 16),Q);
// The EVM bodies.
[...1666 lines suppressed...]
+[322]{car:W(LTDOTDOTDOTGT),cdr:Q},
+[323]{car:W(LTGT),cdr:BC 322},
+[324]{car:CH('i'),cdr:Q},
+[325]{car:CH('c'),cdr:BC 324},
+[326]{car:CH('C'),cdr:BC 325},
+[327]{car:CH('A'),cdr:BC 326},
+[328]{car:CH('e'),cdr:BC 327},
+[329]{car:B 680,cdr:Q},
+[330]{car:B 679,cdr:BC 329},
[331]{car:B 681,cdr:Q},
-[332]{car:B 680,cdr:BC 331},
-[333]{car:B 682,cdr:Q},
};
/* The root node of the compiled builtin library */
struct node *
-builtin_root = B 684;
+builtin_root = B 683;
/* essence.c ends here */
Index: wordlist.txt
===================================================================
RCS file: /cvsroot/wisp/wisp/src/wordlist.txt,v
retrieving revision 1.570
retrieving revision 1.571
diff -u -d -r1.570 -r1.571
--- wordlist.txt 18 Sep 2002 20:56:51 -0000 1.570
+++ wordlist.txt 18 Sep 2002 20:57:26 -0000 1.571
@@ -90,10 +90,10 @@
finally find find-tail first fit-for-symbol? fit-for-variable-name?
fixnum fixnum? flag-specifier? flatten flock floor fluid-list fluid-my
fluid? fluids flush follow-not for-all-env-vars for-dir-entries
-for-each fork form? formfeed fourth fraction fraction? freeze-class
-frer frer->structure friend frozen frozen? ftruncate getcwd getegid
-geteuid getgid getpgid getpid getppid getuid gid grammar-error hache
-hidden hide hide* hold home hop ia32 if iflag immediate-sublambdas
+for-each fork form? formfeed fourth fraction fraction? frer
+frer->structure friend frozen frozen? ftruncate getcwd getegid geteuid
+getgid getpgid getpid getppid getuid gid grammar-error hache hidden
+hide hide* hold home hop ia32 if iflag immediate-sublambdas
imported-variables inc incr! infix init-input-file init-output-file
init-port ino input-port? instance instance-of-wrong-class instance?
instruction-list int integer integer->char integer->flag-list
|