complete draft of base

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

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)