mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-17 22:24:49 +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 [] (match-1 pattern.0 expr (fn []
~(if (and ,;(tuple/slice pattern 1)) ,(onmatch) ,sentinel)) seen) ~(if (and ,;(tuple/slice pattern 1)) ,(onmatch) ,sentinel)) seen)
(array? pattern) (array? pattern)
(do (do
(def len (length pattern)) (def len (length pattern))
(var i -1) (var i -1)
@ -975,7 +975,7 @@ value, one key will be ignored."
(var key nil) (var key nil)
(with-idemp (with-idemp
$dict expr $dict expr
~(if (dictionary? ,$dict) ~(if (dictionary? ,$dict)
,((fn aux [] ,((fn aux []
(:= key (next pattern key)) (:= key (next pattern key))
(if (= key nil) (if (= key nil)