Merge pull request #154 from MichaelBlume/handle-args

handle (ignore) extra args from LispReader

src/marginalia/parser.clj

@@ -74,7 +74,8 @@
       (directive))
     (not directive)))
 
-(defn read-comment [reader semicolon]
+(defn read-comment
+  ([reader semicolon]
    (let [sb (StringBuilder.)]
      (.append sb semicolon)
      (loop [c (.read reader)]
@@ -92,6 +93,8 @@
            (do
              (.append sb (Character/toString ch))
              (recur (.read reader))))))))
+  ([reader semicolon opts pending]
+   (read-comment reader semicolon)))
 
 (defn set-comment-reader [reader]
   (aset (get-field clojure.lang.LispReader :macros nil)
@@ -116,7 +119,8 @@
                [String]
                nil s))
 
-(defn read-keyword [reader colon]
+(defn read-keyword
+  ([reader colon]
    (let [c (.read reader)]
      (if (= (int \:) c)
        (-> (read-token reader (char c))
@@ -125,6 +129,8 @@
        (do (.unread reader c)
            (-> (read-token reader colon)
                match-symbol)))))
+  ([reader colon opts pending]
+   (read-keyword reader colon)))
 
 (defn set-keyword-reader [reader]
   (aset (get-field clojure.lang.LispReader :macros nil)