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

Change to definition of >boolean broke unit test, so define an inverse for >boolean and not explicitly

db4
Slava Pestov 2008-11-06 13:20:27 -06:00
parent 55902df529
commit 5a50046791
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/inverse/inverse.factor
View File

@ -131,6 +131,9 @@ MACRO: undo ( quot -- ) [undo] ;
\ pick [ >r pick r> =/fail ] define-inverse \ pick [ >r pick r> =/fail ] define-inverse
\ tuck [ swapd [ =/fail ] keep ] define-inverse \ tuck [ swapd [ =/fail ] keep ] define-inverse
\ not [ not ] define-inverse
\ >boolean [ { t f } memq? assure ] define-inverse
\ >r [ r> ] define-inverse \ >r [ r> ] define-inverse
\ r> [ >r ] define-inverse \ r> [ >r ] define-inverse