logic: use not.
parent
046d128c97
commit
6e23222187
|
@ -357,7 +357,7 @@ M:: resolver-gen next ( resolver -- yield? )
|
||||||
{ s-end: [
|
{ s-end: [
|
||||||
t resolver return?<< ] }
|
t resolver return?<< ] }
|
||||||
} case
|
} case
|
||||||
resolver [ yield?>> ] [ return?>> ] bi or [ f ] [ t ] if
|
resolver [ yield?>> ] [ return?>> ] bi or not
|
||||||
] loop
|
] loop
|
||||||
resolver yield?>> ;
|
resolver yield?>> ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue