Using "same?" in more places.

[factor.git] / unmaintained / alien / inline / syntax / syntax-tests.factor

diff --git a/unmaintained/alien/inline/syntax/syntax-tests.factor b/unmaintained/alien/inline/syntax/syntax-tests.factor
index c49b2b5aaeea61d18d9a8c100d111c418522560b..4044e1605d19b7c9a4bd1139aaf01fdadab6bdfd 100644 (file)
--- a/unmaintained/alien/inline/syntax/syntax-tests.factor
+++ b/unmaintained/alien/inline/syntax/syntax-tests.factor
@@ -30,7 +30,7 @@ C-FUNCTION: int area ( rectangle c )
 { 2 1 } [ add ] must-infer-as
 [ 5 ] [ 2 3 add ] unit-test
 
-[ t ] [ "double" "bigfloat" [ resolve-typedef ] bi@ = ] unit-test
+[ t ] [ "double" "bigfloat" [ resolve-typedef ] same? ] unit-test
 { 1 1 } [ smaller ] must-infer-as
 [ 1.0 ] [ 10 smaller ] unit-test