twc/ludus
4
0
Fork 0
Code Issues 28 Pull Requests Packages Projects 8 Releases Wiki Activity

fix bugs, oops

Browse Source
This commit is contained in:
Scott Richmond 2024-05-19 18:13:08 -04:00
parent e468add325
commit a399669197
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
janet/base.janet
View File

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