math.factorial: reverse-factorial only undo factorial.

The other way doesn't make sense.

diff --git a/extra/math/factorials/factorials.factor b/extra/math/factorials/factorials.factor
index a65b20d207e57471b84290f8c0b69fe77a9c7b69..13c9e43e26af9d092a91641a88a4621e091fe8eb 100644 (file)
--- a/extra/math/factorials/factorials.factor
+++ b/extra/math/factorials/factorials.factor
@@ -123,5 +123,3 @@ PRIVATE>
     1 1 [ 2over > ] [ 1 + [ * ] keep ] while [ = ] dip and ;
 
 \ factorial [ reverse-factorial ] define-inverse
-
-\ reverse-factorial [ factorial ] define-inverse