effects: Fix check-stack-effect. Better to report the expected before the got.
parent
c5f7ae9d74
commit
c2311f2d1d
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue