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

effects: swap got expected.

locals-and-roots
John Benediktsson 2016-04-13 13:16:59 -07:00
parent 923cb0127a
commit 1ad06b4e44
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/effects/effects.factor
View File

@ -128,8 +128,8 @@ M: effect clone
pick 0 = [ [ 1 + ] dip ] [ [ 1 - ] 2dip ] if pick 0 = [ [ 1 + ] dip ] [ [ 1 - ] 2dip ] if
[ [ "x" <array> ] bi@ ] dip <terminated-effect> ; [ [ "x" <array> ] bi@ ] dip <terminated-effect> ;
ERROR: bad-stack-effect word expected got ; ERROR: bad-stack-effect word got expected ;
: check-stack-effect ( word effect -- ) : check-stack-effect ( word effect -- )
over stack-effect 2dup effect= over stack-effect 2dup effect=
[ 3drop ] [ swap bad-stack-effect ] if ; [ 3drop ] [ bad-stack-effect ] if ;