--- gforth/prims2cl.fs	1999/03/02 15:50:04	1.1
+++ gforth/prims2cl.fs	2003/03/09 15:16:52	1.6
@@ -1,6 +1,6 @@
 \ prims2cl.fs	Primitives to c-library code
 
-\ Copyright (C) 1998 Free Software Foundation, Inc.
+\ Copyright (C) 1998,1999,2001 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -16,7 +16,7 @@
 
 \ You should have received a copy of the GNU General Public License
 \ along with this program; if not, write to the Free Software
-\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
 
 \ Author: Jens Wilke
 \ Revision Log
@@ -27,15 +27,15 @@ include ./prims2x.fs
 Create 	InputFile 130 chars allot
 
 : c-code
-    InputFile count ['] output-c-func process-file
+    InputFile count ['] output-c-func ['] abort process-file
     ;
 
 : c-names
-    InputFile count ['] output-funclabel process-file
+    InputFile count ['] output-funclabel ['] abort process-file
     ;
 
 : forth-names
-    InputFile count ['] output-forthname process-file
+    InputFile count ['] output-forthname dup process-file
     ;
 
 : .\ 
@@ -51,7 +51,7 @@ Create 	InputFile 130 chars allot
 	.\ #undef IF_TOS
 	.\ #define IF_TOS(x)
 	.\ #undef NEXT_P2
-	.\ #define NEXT_P2 return
+	.\ #define NEXT_P2 
 	.\ #undef NEXT_P1
 	.\ #define NEXT_P1
 	.\ #undef NEXT_P0
@@ -63,11 +63,6 @@ Create 	InputFile 130 chars allot
 	.\ #undef I_
 	.\ #define I_ I_
 	.\
-	.\ extern int *FP;
-	.\ extern int *SP;
-	.\ #define sp SP
-	.\ #define fp FP
-	.\
 	.\ #define NAME_LEN 32
 	.\ #define NULL 0
 	.\