From 43693e3c0ed806ef7ba8f53f6cca222306883b9a Mon Sep 17 00:00:00 2001
From: Scott Richmond <kredati@users.noreply.github.com>
Date: Tue, 18 Jun 2024 11:13:33 -0400
Subject: [PATCH] fix `get`, solving turtle movement hang

---
 prelude.ld      | 4 ++--
 src/ludus.janet | 3 ++-
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/prelude.ld b/prelude.ld
index 3dc25b8..817d3c5 100644
--- a/prelude.ld
+++ b/prelude.ld
@@ -776,7 +776,7 @@ fn diff {
 fn get {
 	"Takes a key, dict, and optional default value; returns the value at key. If the value is not found, returns nil or the default value."
 	(key as :keyword) -> get (key, _)
-	(key as :keyword, dict as :dict) -> get (key, dict)
+	(key as :keyword, dict as :dict) -> get (key, dict, nil)
 	(key as :keyword, dict as :dict, default) -> base :get (key, dict, default) 
 }
 
@@ -1319,7 +1319,7 @@ fn pencolor {
 
 fn penwidth {
 	"Returns the turtle's pen width in pixels."
-	() -> turtle_state () :pencolor
+	() -> turtle_state () :penwidth
 }
 
 box state = nil
diff --git a/src/ludus.janet b/src/ludus.janet
index 0ad76f2..c6d6d60 100644
--- a/src/ludus.janet
+++ b/src/ludus.janet
@@ -52,13 +52,14 @@
 (comment
 # (do
 (def source `
-words ("hello, world!")
+forward! (100)
 `)
 (def out (-> source 
  ludus
  j/decode
  ))
 (setdyn :out stdout)
+(pp out)
 (def console (out "console"))
 (print console)
 (def result (out "result"))