--- gforth/prims2x.fs	2003/11/03 20:13:35	1.147
+++ gforth/prims2x.fs	2004/01/19 10:11:26	1.148
@@ -1110,8 +1110,11 @@ variable tail-nextp2 \ xt to execute for
 : output-alias ( -- ) 
     ( primitive-number @ . ." alias " ) ." Primitive " prim prim-name 2@ type cr ;
 
-: output-c-prim-num ( -- )
+defer output-c-prim-num ( -- )
+
+:noname ( -- )
     ." N_" prim prim-c-name 2@ type ." ," cr ;
+is output-c-prim-num
 
 : output-forth ( -- )  
     prim prim-forth-code @ 0=