From 692eefeece536a060c1b6ca50275d59e50a424d8 Mon Sep 17 00:00:00 2001
From: Simon Brooke <simon@journeyman.cc>
Date: Sat, 17 Aug 2019 14:11:31 +0100
Subject: [PATCH] Further very minor titvation of the repl

---
 src/beowulf/core.clj | 8 ++++----
 src/beowulf/read.clj | 2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/beowulf/core.clj b/src/beowulf/core.clj
index 49eb105..8d8cebc 100644
--- a/src/beowulf/core.clj
+++ b/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))
-            (println (.getMessage e))))))
+              (pprint data))))))
     (recur)))
 
 (defn -main
@@ -47,7 +47,7 @@
         (if
           data
           (case (:cause data)
-            :quit (println (.getMessage e))
+            :quit nil
             ;; default
             (pprint data))
           (println e))))))
diff --git a/src/beowulf/read.clj b/src/beowulf/read.clj
index c68cfd9..da35d65 100644
--- a/src/beowulf/read.clj
+++ b/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