Redefined numeric procs in terms of fixnum prims.

[scheme.forth.jl.git] / src / float.4th

diff --git a/src/float.4th b/src/float.4th
index 95aaa3b..74a4f08 100644 (file)
--- a/src/float.4th
+++ b/src/float.4th
@@ -29,16 +29,3 @@ CODE f/
     a = reinterpret(Float64, popPS())
     pushPS(reinterpret(Int64, a/b))
 END-CODE
-
-( addr len -- float )
-CODE float-parse
-    len = popPS()
-    addr = popPS()
-    val = parse(Float64, getString(addr, len))
-    pushPS(reinterpret(Int64, val))
-END-CODE
-
-( float -- )
-CODE float-print
-    print(reinterpret(Float64, popPS()))
-END-CODE
\ No newline at end of file