--- gforth/float.fs	1994/02/11 16:30:46	1.1
+++ gforth/float.fs	1994/05/07 14:55:49	1.2
@@ -3,11 +3,13 @@
 : faligned ( addr -- f-addr )
   [ 1 floats 1- ] Literal + [ -1 floats ] Literal and ;
 
-: falign ( -- )  here dup aligned swap
+: falign ( -- )
+  here dup aligned swap
   ?DO  bl c,  LOOP ;
 
 : f, ( f -- )  here 1 floats allot f! ;
 
+\ !! have create produce faligned pfas
 : fconstant  ( r -- )
   Create falign f,
   DOES>  faligned f@ ;