kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-10-26 14:22:25 +03:00
Code Issues Projects Releases Wiki Activity

Fixed final bug with swap, added tests

Browse Source
This commit is contained in:
Javier Fernandez-Ivern 2015-10-26 21:49:58 -05:00
parent f39c5a2633
commit 6132da853d
2 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
kotlin/src/mal/core.kt
View File

@ -180,19 +180,12 @@ val ns = hashMapOf(
value
})),
Pair(MalSymbol("swap!"), MalFunction({ a: ISeq ->
val atom = (a.nth(0) as MalAtom)
val atom = a.nth(0) as MalAtom
val function = a.nth(1) as MalFunction
// TODO reuse code from apply?
val params = MalList()
params.conj_BANG(atom.value)
a.seq().drop(2).forEach({ it ->
if (it is ISeq && it.seq().any()) {
it.seq().forEach({ x -> params.conj_BANG(x) })
} else {
params.conj_BANG(it)
}
})
a.seq().drop(2).forEach({ it -> params.conj_BANG(it) })
val value = function.apply(params)
atom.value = value

3
tests/stepA_mal.mal
View File

@ -147,6 +147,9 @@
(swap! e assoc "foo" (list))
(get @e "foo")
;=>()
(swap! e assoc "bar" '(1 2 3))
(get @e "bar")
;=>(1 2 3)
;;