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 -- )
|
: check-stack-effect ( word effect -- )
|
||||||
over stack-effect 2dup effect=
|
over stack-effect 2dup effect=
|
||||||
[ 3drop ] [ bad-stack-effect ] if ;
|
[ 3drop ] [ swap bad-stack-effect ] if ;
|
||||||
|
|
Loading…
Reference in New Issue