inverse: Add `under`

[factor.git] / basis / inverse / inverse.factor

diff --git a/basis/inverse/inverse.factor b/basis/inverse/inverse.factor
index 3a442db48e512bae153aae5e4fc00e64df7fc870..33954c7634701a74a0ae6b8a0686f9fe815e1316 100644 (file)
--- a/basis/inverse/inverse.factor
+++ b/basis/inverse/inverse.factor
@@ -291,3 +291,6 @@ MACRO: switch ( quot-alist -- quot ) [switch] ;
 SYNTAX: INVERSE: scan-word parse-definition define-inverse ;
 
 SYNTAX: DUAL: scan-word scan-word define-dual ;
+
+MACRO: under ( reversible-quot quot -- quot )
+    over [undo] '[ @ @ @ ] ;