--- gforth/prim	2002/11/24 13:54:00	1.102
+++ gforth/prim	2002/12/15 17:38:51	1.105
@@ -1808,16 +1808,9 @@ floor	( r1 -- r2 )	float
 /* !! unclear wording */
 r2 = floor(r1);
 
-(fround)	( r1 -- r2 )	gforth	paren_f_round
-""Round to the nearest integral value.  Primitive variant (unused)""
-/* !! eliminate this as primitive? */
-/* !! unclear wording */
-#ifdef HAVE_RINT
+fround	( r1 -- r2 )	gforth	f_round
+""Round to the nearest integral value.""
 r2 = rint(r1);
-#else
-r2 = floor(r1+0.5);
-/* !! This is not quite true to the rounding rules given in the standard */
-#endif
 
 fmax	( r1 r2 -- r3 )	float	f_max
 if (r1<r2)
@@ -2461,7 +2454,7 @@ does-exec ( #a_cfa -- R:nest a_pfa )	new
 assert(0);
 #else
 a_pfa = PFA(a_cfa);
-nest = (Cell)ip;
+nest = (Cell)IP;
 IF_spTOS(spTOS = sp[0]);
 #ifdef DEBUG
     {
@@ -2750,6 +2743,9 @@ SUPER_CONTINUE;
      cell+
  THEN  >r ;
 
+\ set-next-code and call2 do not appear in images and can be
+\ renumbered arbitrarily
+
 set-next-code ( #w -- ) gforth set_next_code
 #ifdef NO_IP
 next_code = (Label)w;
@@ -2773,6 +2769,14 @@ finish-code ( -- ) gforth finish_code
 flushing).""
 finish_code();
 
+forget-dyncode ( c_code -- f ) gforth-internal forget_dyncode
+f = forget_dyncode(c_code);
+
+decompile-prim ( a_code -- a_prim ) gforth-internal decompile_prim
+""a_prim is the code address of the primitive that has been
+compile_prim1ed to a_code""
+a_prim = decompile_code(a_code);
+
 \+
 
 include(peeprules.vmg)