X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fcompiler%2Ftree%2Fpropagation%2Fpropagation-tests.factor;h=06e68d3e3575278e73f72f85be600befd446f92c;hp=00d982c2bf6fbce2720f8238b2e4d36dbbf67074;hb=bbca00e2aec26098f6d021c3f21b8246eb5aaad3;hpb=32ecb5d49bb6de970c3ae03acaa71008669d71c5

diff --git a/basis/compiler/tree/propagation/propagation-tests.factor b/basis/compiler/tree/propagation/propagation-tests.factor
index 00d982c2bf..06e68d3e35 100644
--- a/basis/compiler/tree/propagation/propagation-tests.factor
+++ b/basis/compiler/tree/propagation/propagation-tests.factor
@@ -815,3 +815,6 @@ M: tuple-with-read-only-slot clone
     [ { byte-array fixnum } declare alien-cell dup [ "OOPS" throw ] unless ] final-classes
     first simple-alien class=
 ] unit-test
+
+! Don't crash if bad literal inputs are passed to unsafe words
+[ f ] [ [ { } 1 fixnum+fast ] final-info first literal?>> ] unit-test