Permalink
Browse files

Pushing single-use let bindings to uses in AppCont.

  • Loading branch information...
1 parent 4b1e271 commit 6b584cbaed9bfa97425f75c90d7c949807af8814 @cjfrisz committed Oct 13, 2012
Showing with 2 additions and 4 deletions.
  1. +2 −4 src/ctco/expr/cont.clj
@@ -3,7 +3,7 @@
;; Written by Chris Frisz
;;
;; Created 1 Apr 2012
-;; Last modified 6 Oct 2012
+;; Last modified 13 Oct 2012
;;
;; Defines the Cont, AppCont, and AppContAbs record types for
;; continuations, continuation application, and continuation
@@ -61,9 +61,7 @@
(defrecord AppCont [cont val]
proto/PUnparse
(unparse [this]
- (let [cont (proto/unparse (:cont this))
- val (proto/unparse (:val this))]
- `(~cont ~val)))
+ `(~(proto/unparse (:cont this)) ~(proto/unparse (:val this))))
proto/PWalkable
(walk-expr [this f _]

0 comments on commit 6b584cb

Please sign in to comment.