From bce3a88287d487f0df87dbf6f7e0de1f3dd16655 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Sat, 19 Mar 2016 18:59:19 +0100 Subject: [PATCH] stack-checker.known-words: fix input class declaration for it should be { integer-array-capacity integer } ofcourse --- .../compiler/tree/propagation/propagation-tests.factor | 10 +++++++--- basis/stack-checker/known-words/known-words.factor | 2 +- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/basis/compiler/tree/propagation/propagation-tests.factor b/basis/compiler/tree/propagation/propagation-tests.factor index 4bb3ca095e..a30fe7582a 100644 --- 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 drop ] final-info first - integer-array-capacity = +{ + V{ $[ + integer-array-capacity + integer + ] } +} [ + [ 2dup 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 0aee17b4fb..47bd154d2d 100644 --- 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 } } { { integer-array-capacity object } { array } } { { integer-array-capacity } { byte-array } } - { { integer-array-capacity } { string } } + { { integer-array-capacity integer } { string } } { { array } { tuple } } } make-flushable-primitives