making repeated-1 as private
authorRamakrishnan Muthukrishnan <vu3rdd@gmail.com>
Thu, 27 May 2010 19:44:58 +0000 (01:14 +0530)
committerRamakrishnan Muthukrishnan <vu3rdd@gmail.com>
Thu, 27 May 2010 19:44:58 +0000 (01:14 +0530)
src/sicp/ex1_43.clj

index c13f25bfbfc9ca3a36f38209e7c72b64548648d7..5c8e7ea93c36eb2029d09756b737bfdf01559786 100644 (file)
@@ -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))))