steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

stack-checker.errors.prettyprint: give it some smart quotes lovin'

db4
Slava Pestov 2010-03-17 19:20:28 +13:00
parent 6ff0393e2f
commit fb06bbcae7
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
basis/stack-checker/errors/prettyprint/prettyprint.factor
View File

@ -27,23 +27,23 @@ M: recursive-quotation-error summary
M: undeclared-recursion-error summary M: undeclared-recursion-error summary
word>> name>> word>> name>>
"The inline recursive word " " must be declared recursive" surround ; "The inline recursive word “" "” must be declared recursive" surround ;
M: diverging-recursion-error summary M: diverging-recursion-error summary
word>> name>> word>> name>>
"The recursive word " " digs arbitrarily deep into the stack" surround ; "The recursive word “" "” digs arbitrarily deep into the stack" surround ;
M: unbalanced-recursion-error summary M: unbalanced-recursion-error summary
word>> name>> word>> name>>
"The recursive word " " leaves with the stack having the wrong height" surround ; "The recursive word “" "” leaves with the stack having the wrong height" surround ;
M: inconsistent-recursive-call-error summary M: inconsistent-recursive-call-error summary
word>> name>> word>> name>>
"The recursive word " "The recursive word “"
" calls itself with a different set of quotation parameters than were input" surround ; "” calls itself with a different set of quotation parameters than were input" surround ;
M: transform-expansion-error summary M: transform-expansion-error summary
word>> name>> "Macro expansion of " " threw an error" surround ; word>> name>> "Macro expansion of “" "” threw an error" surround ;
M: transform-expansion-error error. M: transform-expansion-error error.
[ summary print ] [ summary print ]
@ -52,14 +52,13 @@ M: transform-expansion-error error.
tri ; tri ;
M: do-not-compile summary M: do-not-compile summary
word>> name>> "Cannot compile call to " prepend ; word>> name>> "Cannot compile call to “" "”" surround ;
M: unbalanced-branches-error summary M: unbalanced-branches-error summary
word>> name>> word>> name>>
"The input quotations to " " don't match their expected effects" surround ; "The input quotations to “" "” don't match their expected effects" surround ;
M: unbalanced-branches-error error. M: unbalanced-branches-error error.
dup summary print dup summary print
[ quots>> ] [ declareds>> ] [ actuals>> ] tri 3array flip [ quots>> ] [ declareds>> ] [ actuals>> ] tri 3array flip
{ "Input" "Expected" "Got" } prefix simple-table. ; { "Input" "Expected" "Got" } prefix simple-table. ;