stack-checker.known-words: fix input class declaration for <string>

it should be { integer-array-capacity integer } ofcourse

diff --git a/basis/compiler/tree/propagation/propagation-tests.factor b/basis/compiler/tree/propagation/propagation-tests.factor
index 4bb3ca095edbc0ebade32e152484aedcafeab02f..a30fe7582aa28d13949a734ee59776cfe41e4805 100644 (file)
--- a/basis/compiler/tree/propagation/propagation-tests.factor
+++ b/basis/compiler/tree/propagation/propagation-tests.factor
@@ -58,9 +58,13 @@ IN: compiler.tree.propagation.tests
     [ dup string? t xor [ "A" throw ] [ ] if ] final-classes
 ] unit-test
 
-{ t } [
-    [ dupd <string> drop ] final-info first
-    integer-array-capacity <class-info> =
+{
+    V{ $[
+        integer-array-capacity <class-info>
+        integer <class-info>
+    ] }
+} [
+    [ 2dup <string> drop ] final-info
 ] unit-test
 
 { { } } [

diff --git a/basis/stack-checker/known-words/known-words.factor b/basis/stack-checker/known-words/known-words.factor
index 0aee17b4fb6ef9934f9875afb96c5ced6039fdcf..47bd154d2dc073a59b1ac835f19a2fd70f6defea 100644 (file)
--- a/basis/stack-checker/known-words/known-words.factor
+++ b/basis/stack-checker/known-words/known-words.factor
@@ -329,7 +329,7 @@ M: object infer-call* \ call bad-macro-input ;
     { (byte-array) { integer-array-capacity } { byte-array } }
     { <array> { integer-array-capacity object } { array } }
     { <byte-array> { integer-array-capacity } { byte-array } }
-    { <string> { integer-array-capacity } { string } }
+    { <string> { integer-array-capacity integer } { string } }
     { <tuple> { array } { tuple } }
 } make-flushable-primitives