float parsing fixed

examples/tram/Tram.gf

@@ -30,4 +30,7 @@ fun
 --  PClick   : Click -> Place ;          -- click associated with a "here"
 --  PHere    : Place ;                   -- indexical "here", without a click
 
+  FromThisPlace : Dep ;               -- "from this place"
+  ToThisPlace   : Dest ;              -- "to this place"
+
 }

examples/tram/TramI.gf

@@ -41,4 +41,6 @@ lin
 --  PHere = DemNP this_NP ;
 --  PNamed s = DemNP (UsePN (SymbPN s)) ;
 
+----  FromThisPlace = 
+
 }