Further very minor titvation of the repl

src/beowulf/core.clj

@@ -9,7 +9,7 @@
   "Read/eval/print loop."
   []
   (loop []
-    (print ":: ")
+    (print "Sprecan:: ")
     (flush)
     (try
       (let [input (read-line)]
@@ -21,14 +21,14 @@
         Exception
         e
         (let [data (ex-data e)]
+          (println (.getMessage e))
           (if
             data
             (case (:cause data)
               :parse-failure (println (:failure data))
               :quit (throw e)
               ;; default
-              (pprint data))
+              (pprint data))))))
-            (println (.getMessage e))))))
     (recur)))
 
 (defn -main
@@ -47,7 +47,7 @@
         (if
           data
           (case (:cause data)
-            :quit (println (.getMessage e))
+            :quit nil
             ;; default
             (pprint data))
           (println e))))))

src/beowulf/read.clj

@@ -69,7 +69,7 @@
   ([p]
    (if
      (instance? instaparse.gll.Failure p)
-     (throw (ex-info "Parse error" {:cause :parse-failure :failure p}))
+     (throw (ex-info "Ic ne behæfd" {:cause :parse-failure :failure p}))
      (simplify p :sexpr)))
   ([p context]
   (if