diff options
Diffstat (limited to 'src/lux/reader.clj')
-rw-r--r-- | src/lux/reader.clj | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/src/lux/reader.clj b/src/lux/reader.clj index d66a671aa..38ff4d5e6 100644 --- a/src/lux/reader.clj +++ b/src/lux/reader.clj @@ -35,9 +35,7 @@ (fn [file-name line-num column-num ^String line] (if-let [[^String match] (re-find regex line)] (let [match-length (.length match) - line* (.substring line match-length) - ;; _ (prn 'with-line line*) - ] + line* (.substring line match-length)] (&/V "Yes" (&/T (&/V "lux;Meta" (&/T (&/T file-name line-num column-num) match)) (if (empty? line*) (&/V "lux;None" nil) @@ -49,9 +47,7 @@ (fn [file-name line-num column-num ^String line] (if-let [[^String match tok1 tok2] (re-find regex line)] (let [match-length (.length match) - line* (.substring line match-length) - ;; _ (prn 'with-line line*) - ] + line* (.substring line match-length)] (&/V "Yes" (&/T (&/V "lux;Meta" (&/T (&/T file-name line-num column-num) (&/T tok1 tok2))) (if (empty? line*) (&/V "lux;None" nil) @@ -61,12 +57,9 @@ (defn read-text [^String text] (with-line (fn [file-name line-num column-num ^String line] - ;; (prn 'read-text text line) (if (.startsWith line text) (let [match-length (.length text) - line* (.substring line match-length) - ;; _ (prn 'with-line line*) - ] + line* (.substring line match-length)] (&/V "Yes" (&/T (&/V "lux;Meta" (&/T (&/T file-name line-num column-num) text)) (if (empty? line*) (&/V "lux;None" nil) |