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

help.lint.checks: maybe clearer error message.

db4
John Benediktsson 2014-06-06 14:39:15 -07:00
parent 6b9c7c6772
commit c765f85851
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/help/lint/checks/checks.factor
View File

@ -93,11 +93,11 @@ SYMBOL: vocab-articles
] if ;
: check-value-effects ( word element -- )
[ effect-effects ]
[ extract-value-effects ]
bi* [ 2dup and [ = ] [ 2drop t ] if ] 2all?
[ "$quotation documentation in $values don't match stack effect" simple-lint-error ]
unless ;
[ effect-effects ] [ extract-value-effects ] bi*
[ 2dup and [ = ] [ 2drop t ] if ] 2all? [
"$quotation stack effects in $values don't match"
simple-lint-error
] unless ;
: check-nulls ( element -- )
\ $values swap elements