X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scheme.forth.jl.git;a=blobdiff_plain;f=src%2Ffloat.4th;h=74a4f08469578fcc8a922699f43d6265017ac562;hp=95aaa3b1f42ea2d6f3596fb5e691fa84be048c30;hb=73373387ae07d9da0ee049d96338555707b6d7b7;hpb=a39894e12a9e84a17411e3bdd5d49fae3369e0d4 diff --git a/src/float.4th b/src/float.4th index 95aaa3b..74a4f08 100644 --- 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