logic: use not.

master
John Benediktsson 2020-05-28 09:13:44 -07:00
parent 046d128c97
commit 6e23222187
1 changed files with 1 additions and 1 deletions

View File

@ -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?>> ;