Minor fixes

diff --git a/library/compiler/generator/generator.factor b/library/compiler/generator/generator.factor
index 6083da2639aeb0efc72ead418030f17855a64e8a..7776637345c3b4b81107b7cd1d2725624c0edaae 100644 (file)
--- a/library/compiler/generator/generator.factor
+++ b/library/compiler/generator/generator.factor
@@ -194,12 +194,11 @@ M: #dispatch generate-node ( node -- next )
 UNION: immediate fixnum POSTPONE: f ;
 
 : generate-push ( node -- )
-    [
-        >#push< dup literal-template
-        dup requested-vregs ensure-vregs
-        alloc-vregs [ [ load-literal ] 2each ] keep
-        phantom-d get phantom-append
-    ] with-scope ;
+    >#push< dup literal-template
+    dup requested-vregs ensure-vregs
+    alloc-vregs [ [ load-literal ] 2each ] keep
+    phantom-d get phantom-append
+    "fp-scratch" off ;
 
 M: #push generate-node ( #push -- )
     generate-push iterate-next ;

diff --git a/library/test/compiler/float.factor b/library/test/compiler/float.factor
index cc7639b2581747929f73ae7de6208496222b3dff..01ab401f9d0f809908e064a7e2b4c28d537aab2c 100644 (file)
--- a/library/test/compiler/float.factor
+++ b/library/test/compiler/float.factor
@@ -4,6 +4,8 @@ USING: compiler kernel memory math math-internals test ;
 [ 5.0 ] [ [ 5.0 ] compile-1 full-gc full-gc full-gc ] unit-test
 [ 2.0 3.0 ] [ 3.0 [ 2.0 swap ] compile-1 ] unit-test
 
+[ 1 2 3 4.0 ] [ [ 1 2 3 4.0 ] compile-1 ] unit-test
+
 [ 3.0 ] [ 1.0 [ 2.0 float+ ] compile-1 ] unit-test
 [ 3.0 ] [ 1.0 [ 2.0 swap float+ ] compile-1 ] unit-test
 [ 3.0 ] [ 1.0 2.0 [ float+ ] compile-1 ] unit-test