--- gforth/float.fs	1996/05/13 16:36:55	1.19
+++ gforth/float.fs	1996/09/10 16:08:37	1.20
@@ -55,7 +55,7 @@ dofield: lastxt code-address! \ change t
 
 : f, ( f -- )  here 1 floats allot f! ;
 
-: fconstant  ( r -- ) \ float
+: fconstant  ( r "name" -- ) \ float
     Create f,
 DOES> ( -- r )
     f@ ;
@@ -131,7 +131,7 @@ IS compiler-notfound
     ENDIF ;
 IS interpreter-notfound
 
-: fvariable ( -- )
+: fvariable ( "name" -- ) \ float
     Create 0.0E0 f, ;
     \ does> ( -- f-addr )