From 533a40bd45a4759c25ef4de28f12203819e623b0 Mon Sep 17 00:00:00 2001
From: Scott Richmond <kredati@users.noreply.github.com>
Date: Fri, 7 Jun 2024 16:41:11 -0400
Subject: [PATCH] runtime errors should return strings, not buffers

---
 src/ludus.janet | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/ludus.janet b/src/ludus.janet
index 8773a6f..e30465f 100644
--- a/src/ludus.janet
+++ b/src/ludus.janet
@@ -24,13 +24,13 @@
    (set (out :errors) (scanned :errors))
    (each err (scanned :errors)
     (e/scan-error err))
-   (break (j/encode out)))
+   (break (-> out j/encode string)))
  (def parsed (p/parse scanned))
  (when (any? (parsed :errors))
   (set (out :errors) (parsed :errors))
   (each err (parsed :errors)
    (e/parse-error err))
-  (break (j/encode out)))
+  (break (-> out j/encode string)))
  (def validated (v/valid parsed ctx))
  (when (any? (validated :errors))
   (set (out :errors) (validated :errors))
@@ -43,7 +43,7 @@
   ([err] 
    (e/runtime-error err)
    (set (out :errors) [err])
-   (break (j/encode out))))
+   (break (-> out j/encode string))))
  (setdyn :out stdout)
  (set (out :result) (b/show result))
  (var post @{})
@@ -51,9 +51,9 @@
   (set post (i/interpret prelude/post/ast ctx))
   ([err] (e/runtime-error err)))
  (set (out :draw) (post :draw))
- (string (j/encode out)))
+ (-> out j/encode string))
+
+(-> (ludus `
+random (1, 3)
+`) j/decode)
 
-(ludus `
- let foo = 42
- "{foo} bar baz"
-`)