diff --git a/janet/base.janet b/janet/base.janet index e1dd742..98cc9e5 100644 --- a/janet/base.janet +++ b/janet/base.janet @@ -209,10 +209,8 @@ "set!" set! }) -(comment -Used in current prelude but not yet in base: - -into/2 -to_dict -) +(def base (let [b @{}] + (each [k v] (pairs ctx) + (set (b (keyword k)) v)) + (table/to-struct b))) diff --git a/janet/interpreter.janet b/janet/interpreter.janet index 9013e6f..0e3d61a 100644 --- a/janet/interpreter.janet +++ b/janet/interpreter.janet @@ -633,10 +633,8 @@ (do (set source ` -fn foo -fn bar () -> foo () -fn foo () -> :foo -bar () +fn myadd (x, y) -> add (x, y) +myadd (1, _) (2) `) (def result (run)) (b/show result)