fix get, solving turtle movement hang

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

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"))