--- gforth/float.fs	1994/06/01 10:02:22	1.4
+++ gforth/float.fs	1994/06/17 12:34:59	1.5
@@ -1,12 +1,5 @@
 \ High level floating point                            14jan94py
 
-: faligned ( addr -- f-addr )
-  [ 1 floats 1- ] Literal + [ -1 floats ] Literal and ;
-
-: falign ( -- )
-  here dup faligned swap
-  ?DO  bl c,  LOOP ;
-
 : f, ( f -- )  here 1 floats allot f! ;
 
 \ !! have create produce faligned pfas