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

Fix name clash in inverse: fry:_ -vs- inverse:_

db4
Slava Pestov 2008-12-02 16:28:11 -06:00
parent 791a61101a
commit f2f1961eeb
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/inverse/inverse.factor
View File

@ -5,7 +5,8 @@ sequences assocs math arrays stack-checker effects generalizations
continuations debugger classes.tuple namespaces make vectors continuations debugger classes.tuple namespaces make vectors
bit-arrays byte-arrays strings sbufs math.functions macros bit-arrays byte-arrays strings sbufs math.functions macros
sequences.private combinators mirrors sequences.private combinators mirrors
combinators.short-circuit fry ; combinators.short-circuit fry qualified ;
RENAME: _ fry => __
IN: inverse IN: inverse
TUPLE: fail ; TUPLE: fail ;
@ -236,7 +237,7 @@ DEFER: _
] recover ; inline ] recover ; inline
: true-out ( quot effect -- quot' ) : true-out ( quot effect -- quot' )
out>> '[ @ _ ndrop t ] ; out>> '[ @ __ ndrop t ] ;
: false-recover ( effect -- quot ) : false-recover ( effect -- quot )
in>> [ ndrop f ] curry [ recover-fail ] curry ; in>> [ ndrop f ] curry [ recover-fail ] curry ;