--- gforth/float.fs	1996/05/13 16:36:55	1.19
+++ gforth/float.fs	1997/05/21 20:39:25	1.21
@@ -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@ ;
@@ -98,7 +98,7 @@ DOES> ( -- r )
   scratch over c@ emit '. emit 1 /string type
   'E emit . ;
 
-require debugging.fs
+require debugs.fs
 
 : sfnumber ( c-addr u -- r true | false )
     2dup [CHAR] e scan ( c-addr u c-addr2 u2 )
@@ -131,7 +131,7 @@ IS compiler-notfound
     ENDIF ;
 IS interpreter-notfound
 
-: fvariable ( -- )
+: fvariable ( "name" -- ) \ float
     Create 0.0E0 f, ;
     \ does> ( -- f-addr )