Permalink
Browse files

Trailing whitespace cleanup

1 parent a0e0ede commit 88ff17c146241a1560f94d0d8627ee2355fa7ddd @brandonbloom brandonbloom committed Apr 24, 2012
Showing with 19 additions and 19 deletions.
  1. +8 −8 src/delimc/core.clj
  2. +11 −11 test/delimc/test/core.clj
View
@@ -66,9 +66,9 @@
;; ================================================================================
(declare expr->cps
- atom->cps
- cons->cps
- application->cps
+ atom->cps
+ cons->cps
+ application->cps
apply->cps
funcall->cps
expr-sequence->cps)
@@ -113,7 +113,7 @@
expanded-p (expanded? acons expansion)]
(if expanded-p
(expr->cps expansion k-expr)
- (funcall->cps
+ (funcall->cps
(cons `(~'function ~(first expansion)) (rest expansion)) k-expr nil))))))
(defn application->cps [app-sym acons k-expr args]
@@ -147,7 +147,7 @@
;; quote
;; --------------------------------------------------------------------------------
-(defcpstransformer quote
+(defcpstransformer quote
[acons k-expr]
`(~k-expr ~acons))
@@ -262,17 +262,17 @@
(defmacro with-local-function-names [names & body]
`(let [fn-list# ~names]
(do
- (binding [ctx (assoc ctx :local-functions
+ (binding [ctx (assoc ctx :local-functions
(declare-function-names-local fn-list#))]
~@body))))
(defcpstransformer letfn [[_ fn-list & forms :as acons] k-expr]
(if (>= (count acons) 2)
nil
(throw (Exception. "Too few parameters to letfn")))
- (with-local-function-names
+ (with-local-function-names
(map first fn-list)
`(letfn [~@(map (fn [afn]
(transform-local-function afn))
fn-list)]
- (transform-forms-in-env ~forms ~k-expr ~ctx))))
+ (transform-forms-in-env ~forms ~k-expr ~ctx))))
View
@@ -8,16 +8,16 @@
(deftest not-seq-2
(is (= (let [cc (atom nil)]
- [(reset
+ [(reset
(shift k
(reset! cc k)
(@cc 1)))
(@cc 2)])
[1 2])))
;; funcall
-(deftest funcall-1
- (is (= (reset (+ 1 2))
+(deftest funcall-1
+ (is (= (reset (+ 1 2))
3)))
(deftest funcall-2
@@ -86,15 +86,15 @@
[42 84])))
;; quote
-(deftest quote-1
+(deftest quote-1
(is (= (reset 'a) 'a)))
(deftest quote-2
(is (= (reset '(a)) '(a))))
(deftest quote-3
(is (= (let [cc (atom nil)]
- [(reset
+ [(reset
(concat '(a b)
(shift k
(reset! cc k)
@@ -148,7 +148,7 @@
(deftest if-3
(is (= (let [cc (atom nil)]
[(reset
- (if true
+ (if true
(shift k
(reset! cc k)
(k 1))
@@ -159,10 +159,10 @@
(deftest if-4
(is (= (let [cc (atom nil)]
(reset
- (if nil
+ (if nil
(shift k
(reset! cc k)
- (k 1))
+ (k 1))
2))
@cc)
nil)))
@@ -386,7 +386,7 @@
(if-let [a nil]
(shift k
(reset! cc k)
- (k 1))
+ (k 1))
2))
@cc)
nil)))
@@ -439,7 +439,7 @@
(deftest letfn-3
(is (= (let [cc (atom nil)]
- [(reset
+ [(reset
(letfn [(a [i] (+ i (shift k
(reset! cc k)
(k 2))))
@@ -563,4 +563,4 @@
(deftest ref-1
(is (= @(reset (ref {}))
- @(ref {}))))
+ @(ref {}))))

0 comments on commit 88ff17c

Please sign in to comment.