From 02cf45e67528b0f27e10d9f26212793df39136c9 Mon Sep 17 00:00:00 2001
From: Hugo Duncan <hugo_duncan@yahoo.com>
Date: Sat, 3 Apr 2010 09:02:37 -0400
Subject: [PATCH] fixed line number within compiled region

---
 src/swank/commands/basic.clj | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/swank/commands/basic.clj b/src/swank/commands/basic.clj
index c6c041e..d394dd2 100644
--- a/src/swank/commands/basic.clj
+++ b/src/swank/commands/basic.clj
@@ -43,8 +43,9 @@
 (defn- compile-region
   "Compile region."
   ([string file line]
-     (with-open [rdr (proxy [LineNumberingPushbackReader] ((StringReader. string))
-                       (getLineNumber [] line))]
+     (with-open [rdr1 (proxy [LineNumberingPushbackReader] ((StringReader. string)))
+                 rdr (proxy [LineNumberingPushbackReader] (rdr1)
+                         (getLineNumber [] (+ line (.getLineNumber rdr1) -1)))]
        (clojure.lang.Compiler/load rdr file (.getName (File. file))))))