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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/logic/logic.factor
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?>> ;