fix bugs, oops

janet/base.janet

@@ -80,7 +80,7 @@
 
 (defn disj [sett value]
   (def new (merge sett))
-  (set (new/value) nil)
+  (set (new value) nil)
   new)
 
 (defn assoc [dict key value]
@@ -116,7 +116,7 @@
     :list (array/concat @[] x y)
     :set (merge x y)))
 
-(defn deref [x] (get :value) x)
+(defn deref [x] (get x :value))
 
 (defn set! [x] (set (x :value) x))
 
@@ -145,7 +145,7 @@
   "concat" concat
   "conj" conj
   "disj" disj
-  "push" push
+  "push" array/push
   "assoc" assoc
   "dissoc" dissoc
   "get" ludus/get