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

Fixing inverse bug

db4
Daniel Ehrenberg 2008-02-16 00:52:01 -06:00
parent c8853094b3
commit c1e7ee6bc6
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/inverse/inverse.factor
View File

@ -100,7 +100,7 @@ M: math-inverse inverse
[ drop swap-inverse ] [ pull-inverse ] if ; [ drop swap-inverse ] [ pull-inverse ] if ;
M: pop-inverse inverse M: pop-inverse inverse
[ "pop-length" word-prop cut-slice swap ] keep [ "pop-length" word-prop cut-slice swap >quotation ] keep
"pop-inverse" word-prop compose call ; "pop-inverse" word-prop compose call ;
: (undo) ( revquot -- ) : (undo) ( revquot -- )