--- stack/stack.h	2002/03/07 03:28:29	1.4
+++ stack/stack.h	2002/03/08 16:09:30	1.5
@@ -28,17 +28,19 @@
 typedef struct {
   enum {
     integer,
+    tfloat,
     string,
     func,			/* Function pointer */
     symb, 
     list
-  } type:3;			/* Type of stack element */
+  } type:4;			/* Type of stack element */
 
   int gc_garb:1;
 
   union {
     void *ptr;			/* Pointer to the content */
-    int val;			/* ...or an integer */
+    int i;			/* ...or an integer */
+    float f;
   } content;			/* Stores a pointer or an integer */
 
 } value;
@@ -93,6 +95,7 @@
 extern void gc_init(environment*);
 void push_val(environment*, value*);
 void push_int(environment*, int);
+void push_float(environment*, float);
 void push_cstring(environment*, const char*);
 char *mangle_str(const char*);
 extern void mangle(environment*);
@@ -138,5 +141,11 @@
 extern void foreach(environment*);
 void protect(environment*, value*);
 void unprotect(environment*);
-extern void copying(environment *env);
-extern void warranty(environment *env);
+extern void copying(environment*);
+extern void warranty(environment*);
+extern void sx_2a(environment*);
+extern void sx_2f(environment*);
+extern void mod(environment*);
+extern void sx_3c(environment*);
+extern void sx_3c3d(environment*);
+extern void sx_3e3d(environment*);