effects: Fix check-stack-effect. Better to report the expected before the got.

locals-and-roots
Doug Coleman 2016-04-12 17:06:12 -07:00
parent c5f7ae9d74
commit c2311f2d1d
1 changed files with 1 additions and 1 deletions

View File

@ -132,4 +132,4 @@ ERROR: bad-stack-effect word expected got ;
: check-stack-effect ( word effect -- )
over stack-effect 2dup effect=
[ 3drop ] [ bad-stack-effect ] if ;
[ 3drop ] [ swap bad-stack-effect ] if ;