combinators: fix typo
parent
3e8d21b493
commit
0b207caa87
|
@ -31,7 +31,7 @@ SLOT: out
|
||||||
[ dip ] dip
|
[ dip ] dip
|
||||||
dup in>> length swap out>> length
|
dup in>> length swap out>> length
|
||||||
check-datastack
|
check-datastack
|
||||||
] 2dip
|
] 2dip rot
|
||||||
[ 2drop ] [ wrong-values ] if ;
|
[ 2drop ] [ wrong-values ] if ;
|
||||||
|
|
||||||
: execute-effect ( word effect -- )
|
: execute-effect ( word effect -- )
|
||||||
|
|
Loading…
Reference in New Issue