]> git.rkrishnan.org Git - sicp.git/blob - src/sicp/ex2_48.clj
rewrite `quote->cons' using `match'.
[sicp.git] / src / sicp / ex2_48.clj
1 (ns sicp.ex2_48
2   (:use [clojure.test]
3         [sicp.ex2_46]
4         [sicp.ch2_2 :only (segments->painter)]))
5
6 ;; we define a segment as a list of 2 vectors
7 (defn make-segment [v1 v2]
8   (list v1 v2))
9
10 (defn start-segment [segment]
11   (first segment))
12
13 (defn end-segment [segment]
14   (second segment))