fixed line number within compiled region

technomancy · Apr 3, 2010 · 02cf45e · 02cf45e
1 parent 7ff3c89
commit 02cf45e
Showing 1 changed file with 3 additions and 2 deletions.
diff --git 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))))))