mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-04-05 14:56:55 +00:00
Code Issues 1 Releases Wiki Activity

Fix if-let when-let and add put-in (assoc-in)

Browse Source
This commit is contained in:
Gavlooth 2018-03-25 11:30:30 +03:00
parent 3c57980ef1
commit 1bc5705667
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/compiler/boot.dst
View File

@ -367,13 +367,16 @@ If no match is found, returns nil"
(tuple 'when (tuple not condition) exp-1))
(defmacro if-let
"Takes the first one or two forms in a vector and if true binds
"Takes the first one or two forms in a vector and if both are true binds
all the forms with let and evaluates the first expression else
evaluates the second"
[bindings then else]
(def head (ast-unwrap1 bindings))
(tuple 'let head
(tuple 'if (and (get head 1) (if (get head 2) (get head 3) true))
#(tuple 'print (tuple '> (tuple 'length bindings) 2))
(tuple 'let bindings
(tuple 'if (tuple 'and (tuple 'get bindings 1)
(tuple 'if
(tuple '> (tuple 'length bindings) 2)
(tuple 'get bindings 3) 'true))
then
else)))
@ -385,7 +388,10 @@ If no match is found, returns nil"
(tuple 'let head
(tuple
'when
(and (get head 1) (if (get head 2) (get head 3) true))
(tuple 'and (tuple 'get bindings 1)
(tuple 'if
(tuple '> (tuple 'length bindings) 2)
(tuple 'get bindings 3) 'true))
(apply1 tuple (array-concat ['do] (ast-unwrap1 body))))))
(defn comp