arrays: make it so pair? doesn't call length, fixes #1496

[factor.git] / core / arrays / arrays-tests.factor

diff --git a/core/arrays/arrays-tests.factor b/core/arrays/arrays-tests.factor
index e0d171a3989d3af8ee648926b11ffe402df6490a..aa162751aff2759db1a94fbf99d5ba8b3ff95d9f 100644 (file)
--- a/core/arrays/arrays-tests.factor
+++ b/core/arrays/arrays-tests.factor
@@ -25,3 +25,7 @@ IN: arrays.tests
     ${ "kernel-error" ERROR-OUT-OF-FIXNUM-RANGE 147573952589676412928 f }
     =
 ] must-fail-with
+
+{ t } [
+    1 2 2array pair?
+] unit-test