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 ; ] if ;
: check-value-effects ( word element -- ) : check-value-effects ( word element -- )
[ effect-effects ] [ effect-effects ] [ extract-value-effects ] bi*
[ extract-value-effects ] [ 2dup and [ = ] [ 2drop t ] if ] 2all? [
bi* [ 2dup and [ = ] [ 2drop t ] if ] 2all? "$quotation stack effects in $values don't match"
[ "$quotation documentation in $values don't match stack effect" simple-lint-error ] simple-lint-error
unless ; ] unless ;
: check-nulls ( element -- ) : check-nulls ( element -- )
\ $values swap elements \ $values swap elements