rewrite `quote->cons' using `match'.

[sicp.git] / src / sicp / ex2_7.clj

diff --git a/src/sicp/ex2_7.clj b/src/sicp/ex2_7.clj
index 643920c0d519e0c2aea69774f7d6d57bfd1159d4..4a747d96a237b82ba0314ed92a2bdfd01c30b45c 100644 (file)
--- a/src/sicp/ex2_7.clj
+++ b/src/sicp/ex2_7.clj
@@ -5,8 +5,8 @@
 (defn make-interval [x y]
   (list x y))
 
-(defn upper-bound [i]
+(defn lower-bound [i]
   (first i))
 
-(defn lower-bound [i]
+(defn upper-bound [i]
   (first (rest i)))