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

it should be { integer-array-capacity integer } ofcourse
locals-and-roots
Björn Lindqvist 2016-03-19 18:59:19 +01:00
parent bde8f522f1
commit bce3a88287
2 changed files with 8 additions and 4 deletions

View File

@ -58,9 +58,13 @@ IN: compiler.tree.propagation.tests
[ dup string? t xor [ "A" throw ] [ ] if ] final-classes [ dup string? t xor [ "A" throw ] [ ] if ] final-classes
] unit-test ] unit-test
{ t } [ {
[ dupd <string> drop ] final-info first V{ $[
integer-array-capacity <class-info> = integer-array-capacity <class-info>
integer <class-info>
] }
} [
[ 2dup <string> drop ] final-info
] unit-test ] unit-test
{ { } } [ { { } } [

View File

@ -329,7 +329,7 @@ M: object infer-call* \ call bad-macro-input ;
{ (byte-array) { integer-array-capacity } { byte-array } } { (byte-array) { integer-array-capacity } { byte-array } }
{ <array> { integer-array-capacity object } { array } } { <array> { integer-array-capacity object } { array } }
{ <byte-array> { integer-array-capacity } { byte-array } } { <byte-array> { integer-array-capacity } { byte-array } }
{ <string> { integer-array-capacity } { string } } { <string> { integer-array-capacity integer } { string } }
{ <tuple> { array } { tuple } } { <tuple> { array } { tuple } }
} make-flushable-primitives } make-flushable-primitives