1 files changed, 0 insertions, 16 deletions
diff --git a/algebraic-structures.group.make.scm b/algebraic-structures.group.make.scm
deleted file mode 100644
index 7568ac9..0000000
--- a/algebraic-structures.group.make.scm
+++ /dev/null
@@ -1,16 +0,0 @@
-(functor ((algebraic-structures group make) (M (<> unit inv)))
-    (<> unit inv pow)
-  (import M
-          scheme
-          (chicken base))
-
-  (define (pow x n)
-    (assert (exact-integer? n))
-    (if (negative? n)
-        (pow (inv x) (- n))
-        (let loop ((i n)
-                   (acc unit))
-          (if (= i 0)
-              acc
-              (loop (sub1 i)
-                    (<> acc x)))))))