--- gforth/engine/forth.h	2003/01/26 20:56:38	1.48
+++ gforth/engine/forth.h	2003/01/27 18:59:42	1.49
@@ -99,7 +99,6 @@ typedef struct {
 typedef DOUBLE_CELL_TYPE DCell;
 typedef unsigned DOUBLE_CELL_TYPE UDCell;
 
-#define IOR(flag)	((flag)? -512-errno : 0)
 #define OFF2UD(o)	((UDCell)(o))
 #define UD2OFF(ud)	((off_t)(ud))
 #define DZERO		((DCell)0)
@@ -250,6 +249,8 @@ struct Cellquad {
   Cell n4;
 };
 
+#define IOR(flag)	((flag)? -512-errno : 0)
+
 Label *engine(Xt *ip, Cell *sp, Cell *rp, Float *fp, Address lp);
 Label *engine2(Xt *ip, Cell *sp, Cell *rp, Float *fp, Address lp);
 Label *engine3(Xt *ip, Cell *sp, Cell *rp, Float *fp, Address lp);