compiler.cfg.builder: don't run certain tests if float intrinsics are not available

diff --git a/basis/compiler/cfg/builder/builder-tests.factor b/basis/compiler/cfg/builder/builder-tests.factor
index 8da73a1e0efc33a887ea9fa1680f6d0fb6ac3674..db0dd65a8372d039a0c427e6a628db52ff06cfff 100644 (file)
--- a/basis/compiler/cfg/builder/builder-tests.factor
+++ b/basis/compiler/cfg/builder/builder-tests.factor
@@ -192,14 +192,16 @@ IN: compiler.cfg.builder.tests
     [ [ ##unbox-alien? ] contains-insn? ] bi
 ] unit-test
 
-[ f t ] [
-    [ { byte-array fixnum } declare alien-cell 4 alien-float ]
-    [ [ ##box-alien? ] contains-insn? ]
-    [ [ ##box-float? ] contains-insn? ] bi
-] unit-test
-
-[ f t ] [
-    [ { byte-array fixnum } declare alien-cell { simple-alien } declare 4 alien-float ]
-    [ [ ##box-alien? ] contains-insn? ]
-    [ [ ##box-float? ] contains-insn? ] bi
-] unit-test
\ No newline at end of file
+\ alien-float "intrinsic" word-prop [
+    [ f t ] [
+        [ { byte-array fixnum } declare alien-cell 4 alien-float ]
+        [ [ ##box-alien? ] contains-insn? ]
+        [ [ ##box-float? ] contains-insn? ] bi
+    ] unit-test
+
+    [ f t ] [
+        [ { byte-array fixnum } declare alien-cell { simple-alien } declare 4 alien-float ]
+        [ [ ##box-alien? ] contains-insn? ]
+        [ [ ##box-float? ] contains-insn? ] bi
+    ] unit-test
+] when
\ No newline at end of file