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

ps: Fix result of (concat [1 2]), so it returns a list not a vector.

Browse Source
This commit is contained in:
Ben Harris 2019-05-07 22:04:28 +01:00
parent 737e676bbb
commit 4bfde8229c
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ps/core.ps
View File

@ -97,7 +97,9 @@ end } def
dup _count 0 eq { %if just concat
pop 0 _list
}{ dup _count 1 eq { %elseif concat of single item
0 _nth % noop
0 _nth dup _vector? { %if vector
/data get _list_from_array
} if
}{ % else
[] exch
/data get {