stack-checker: fix error message printed when do-primitive is inferred

diff --git a/basis/stack-checker/errors/prettyprint/prettyprint.factor b/basis/stack-checker/errors/prettyprint/prettyprint.factor
index eef35b61cd0756681d116a8e311a0c4cf89cea1e..d008c4921d6519d9c092fa0cce8c404b1558995f 100644 (file)
--- a/basis/stack-checker/errors/prettyprint/prettyprint.factor
+++ b/basis/stack-checker/errors/prettyprint/prettyprint.factor
@@ -51,7 +51,7 @@ M: inconsistent-recursive-call-error summary
     " calls itself with a different set of quotation parameters than were input" surround ;
 
 M: unknown-primitive-error summary
-    word>> name>> "The " " word cannot be called from optimized words" surround ;
+    drop "The do-primitive word cannot be called from here" ;
 
 M: transform-expansion-error summary
     word>> name>> "Macro expansion of " " threw an error" surround ;

diff --git a/basis/stack-checker/stack-checker-tests.factor b/basis/stack-checker/stack-checker-tests.factor
index 7ee7b8e0dd6498fdc7125db0e839085b7873612b..6af0ec64e583ebe0df9347eca44e3c5ec581051e 100644 (file)
--- a/basis/stack-checker/stack-checker-tests.factor
+++ b/basis/stack-checker/stack-checker-tests.factor
@@ -391,3 +391,6 @@ DEFER: eee'
 
 [ [ call-effect ] infer ] [ T{ unknown-macro-input f call-effect } = ] must-fail-with
 [ [ execute-effect ] infer ] [ T{ unknown-macro-input f execute-effect } = ] must-fail-with
+
+[ \ set-callstack def>> infer ] [ T{ unknown-primitive-error } = ] must-fail-with
+[ ] [ [ \ set-callstack def>> infer ] try ] unit-test