--- gforth/engine/engine.c	2001/03/28 16:18:51	1.30
+++ gforth/engine/engine.c	2001/12/09 19:12:46	1.33
@@ -20,6 +20,7 @@
 */
 
 #include "config.h"
+#include "forth.h"
 #include <ctype.h>
 #include <stdio.h>
 #include <string.h>
@@ -27,7 +28,6 @@
 #include <assert.h>
 #include <stdlib.h>
 #include <errno.h>
-#include "forth.h"
 #include "io.h"
 #include "threaded.h"
 #ifndef STANDALONE
@@ -196,6 +196,7 @@ DCell timeval2us(struct timeval *tvp)
 
 #ifdef HAS_FILE
 static char* fileattr[6]={"rb","rb","r+b","r+b","wb","wb"};
+static char* pfileattr[6]={"r","r","r+","r+","w","w"};
 
 #ifndef O_BINARY
 #define O_BINARY 0
@@ -543,5 +544,6 @@ Label *engine(Xt *ip0, Cell *sp0, Cell *
   }
   NEXT;
 
+#define LABEL(name) I_##name
 #include "prim.i"
 }