kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-09-20 01:57:09 +03:00
Code Issues Projects Releases Wiki Activity

Fix assoc

Browse Source
This commit is contained in:
Vasilij Schneidermann 2016-10-23 20:39:29 +02:00
parent 49b192ddc3
commit 5f4a095830
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
pil/core.l
View File

@ -50,6 +50,18 @@
(for (L List L (cddr L))
(link (cons (car L) (cadr L))) ) ) )
(de join (List)
(mapcan '((X) (list (car X) (cdr X))) List) )
(de MAL-assoc @
(let (Map (next) Args (rest))
(MAL-map
(append Args
(join
(filter '((X) (not (find '((Y) (MAL-= (car Y) (car X)))
(chunk Args) ) ) )
(chunk (MAL-value Map)) ) ) ) ) ) )
(de MAL-dissoc @
(let (Map (next) Args (rest))
(MAL-map
@ -136,7 +148,7 @@
(vector . `(MAL-fn '(@ (MAL-vector (rest)))))
(hash-map . `(MAL-fn '(@ (MAL-map (rest)))))
(assoc . `(MAL-fn '(@ (let (Map (next) Args (rest)) (MAL-map (append (MAL-value Map) Args))))))
(assoc . `(MAL-fn MAL-assoc))
(dissoc . `(MAL-fn MAL-dissoc))
(get . `(MAL-fn '((Map Key) (or (and (<> (MAL-type Map) 'nil) (cdr (find '((X) (MAL-= (car X) Key)) (chunk (MAL-value Map))))) *MAL-nil))))
(contains? . `(MAL-fn '((Map Key) (if (find '((X) (MAL-= (car X) Key)) (chunk (MAL-value Map))) *MAL-true *MAL-false))))