Removing integers-as-sequences

[factor.git] / basis / stack-checker / state / state.factor

diff --git a/basis/stack-checker/state/state.factor b/basis/stack-checker/state/state.factor
index 1c527abfe49e63eb59f6ae889dd3911fb82049af..f0b595ebe5c2ebfa4f54be0a36f65fa7312ad223 100644 (file)
--- a/basis/stack-checker/state/state.factor
+++ b/basis/stack-checker/state/state.factor
@@ -1,4 +1,4 @@
-! Copyright (C) 2008 Slava Pestov.
+! Copyright (C) 2008, 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: assocs arrays namespaces sequences kernel definitions
 math effects accessors words fry classes.algebra
@@ -38,7 +38,9 @@ SYMBOL: literals
 : current-stack-height ( -- n ) meta-d length input-count get - ;
 
 : current-effect ( -- effect )
-    input-count get meta-d length terminated? get effect boa ;
+    input-count get "x" <array>
+    meta-d length "x" <array>
+    terminated? get effect boa ;
 
 : init-inference ( -- )
     terminated? off