Added some more float words.

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

diff --git a/src/scheme.4th b/src/scheme.4th
index 165d88f..c1d42e8 100644 (file)
--- a/src/scheme.4th
+++ b/src/scheme.4th
@@ -24,6 +24,7 @@ variable nexttype
     does> @ ;
 
 make-type fixnum-type
+make-type flonum-type
 make-type boolean-type
 make-type character-type
 make-type string-type