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