mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-09-29 23:40:40 +00:00
Code Issues 1 Releases Wiki Activity

Strip whitespace

Browse Source
This commit is contained in:
Calvin Rose 2018-12-08 17:56:31 -05:00
parent 22f7fe6de4
commit 997d5cf2c6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/core/core.janet
View File

@ -956,7 +956,7 @@ value, one key will be ignored."
(match-1 pattern.0 expr (fn []
~(if (and ,;(tuple/slice pattern 1)) ,(onmatch) ,sentinel)) seen)
(array? pattern)
(array? pattern)
(do
(def len (length pattern))
(var i -1)
@ -975,7 +975,7 @@ value, one key will be ignored."
(var key nil)
(with-idemp
$dict expr
~(if (dictionary? ,$dict)
~(if (dictionary? ,$dict)
,((fn aux []
(:= key (next pattern key))
(if (= key nil)