diff --git a/extra/inverse/inverse.factor b/extra/inverse/inverse.factor index 9c94c86ce9..6852d70e48 100755 --- a/extra/inverse/inverse.factor +++ b/extra/inverse/inverse.factor @@ -195,6 +195,10 @@ DEFER: _ \ first3 [ 3array ] define-inverse \ first4 [ 4array ] define-inverse +\ prefix [ unclip ] define-inverse +\ unclip [ prefix ] define-inverse +\ suffix [ dup 1 head* swap peek ] define-inverse + ! Constructor inverse : deconstruct-pred ( class -- quot ) "predicate" word-prop [ dupd call assure ] curry ; diff --git a/extra/macros/summary.txt b/extra/macros/summary.txt index 93ecb60f1c..cfd00d9795 100644 --- a/extra/macros/summary.txt +++ b/extra/macros/summary.txt @@ -1 +1 @@ -Utility for defining compiler transforms, and short-circuiting boolean operators +Utility for defining compiler transforms