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

db4
Slava Pestov 2009-11-19 19:43:41 -06:00
parent 2c553bcc86
commit 1d16152057
2 changed files with 4 additions and 1 deletions

View File

@ -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 ;

View File

@ -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