complete draft of base

janet/base.janet

@@ -209,10 +209,8 @@
   "set!" set!
 })
 
-(comment
+(def base (let [b @{}]
-Used in current prelude but not yet in base:
+  (each [k v] (pairs ctx)
-
+    (set (b (keyword k)) v))
-into/2
+  (table/to-struct b)))
-to_dict
-)
 

janet/interpreter.janet

@@ -633,10 +633,8 @@
 
 (do 
 (set source `
-fn foo
+fn myadd (x, y) -> add (x, y)
-fn bar () -> foo ()
+myadd (1, _) (2)
-fn foo () -> :foo
-bar ()
 `)
 (def result (run))
 (b/show result)