From e9f2db23b60626b1f5a95b8cadcdd774be7a4bbc Mon Sep 17 00:00:00 2001 From: Ramakrishnan Muthukrishnan <vu3rdd@gmail.com> Date: Fri, 28 May 2010 01:14:58 +0530 Subject: [PATCH] making repeated-1 as private --- src/sicp/ex1_43.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/sicp/ex1_43.clj b/src/sicp/ex1_43.clj index c13f25b..5c8e7ea 100644 --- 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)))) -- 2.45.2