making repeated-1 as private

diff --git a/src/sicp/ex1_43.clj b/src/sicp/ex1_43.clj
index c13f25bfbfc9ca3a36f38209e7c72b64548648d7..5c8e7ea93c36eb2029d09756b737bfdf01559786 100644 (file)
--- a/src/sicp/ex1_43.clj
+++ b/src/sicp/ex1_43.clj
@@ -4,7 +4,7 @@
        [sicp ch1_3]
        [sicp ex1_42]))
 
-(defn repeated-1 [f1 f2 m]
+(defn- repeated-1 [f1 f2 m]
   (cond (= m 0) f1
        (= m 1) f2
        :else (repeated-1 f1 (compose f2 f1) (- m 1))))