From a399669197acb8ee29d8f157bff8ad63acce8c79 Mon Sep 17 00:00:00 2001 From: Scott Richmond Date: Sun, 19 May 2024 18:13:08 -0400 Subject: [PATCH] fix bugs, oops --- janet/base.janet | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/janet/base.janet b/janet/base.janet index d0bd447..f3868d7 100644 --- a/janet/base.janet +++ b/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