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

inverse: remove ?word-prop which is the same as word-prop?.

locals-and-roots
John Benediktsson 2016-04-23 14:13:56 -07:00
parent 596bedea25
commit fb99c0ac84
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/inverse/inverse.factor
View File

@ -52,9 +52,6 @@ ERROR: bad-math-inverse ;
: pull-inverse ( math-inverse revquot const -- revquot* quot ) : pull-inverse ( math-inverse revquot const -- revquot* quot )
assure-constant rot first compose ; assure-constant rot first compose ;
: ?word-prop ( word/object name -- value/f )
over word? [ word-prop ] [ 2drop f ] if ;
: undo-literal ( object -- quot ) [ =/fail ] curry ; : undo-literal ( object -- quot ) [ =/fail ] curry ;
PREDICATE: normal-inverse < word "inverse" word-prop >boolean ; PREDICATE: normal-inverse < word "inverse" word-prop >boolean ;