From c1e7ee6bc620b3c687cdd85c08b7ee51c6186aa7 Mon Sep 17 00:00:00 2001 From: Daniel Ehrenberg Date: Sat, 16 Feb 2008 00:52:01 -0600 Subject: [PATCH] Fixing inverse bug --- extra/inverse/inverse.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/inverse/inverse.factor b/extra/inverse/inverse.factor index 99dddb25f0..4bb620083f 100755 --- a/extra/inverse/inverse.factor +++ b/extra/inverse/inverse.factor @@ -100,7 +100,7 @@ M: math-inverse inverse [ drop swap-inverse ] [ pull-inverse ] if ; 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 ; : (undo) ( revquot -- )