diff --git a/kiss/src/kiss/SpecialForms.hx b/kiss/src/kiss/SpecialForms.hx index 4a28ebf9..1865c48b 100644 --- a/kiss/src/kiss/SpecialForms.hx +++ b/kiss/src/kiss/SpecialForms.hx @@ -48,12 +48,12 @@ class SpecialForms { function arrayAccess(wholeExp:ReaderExp, args:Array, k:KissState) { return EArray(k.convert(args[0]), k.convert(args[1])).withMacroPosOf(wholeExp); }; - k.doc("nth", 2, 2, "(nth [list] [idx])"); + k.doc("nth", 2, 2, "(nth )"); map["nth"] = (wholeExp:ReaderExp, args:Array, k:KissState) -> { arrayAccess(wholeExp, args, k); }; + k.doc("dictGet", 2, 2, "(dictGet )"); map["dictGet"] = (wholeExp:ReaderExp, args:Array, k:KissState) -> { - wholeExp.checkNumArgs(2, 2, "(dictGet [dict] [key])"); arrayAccess(wholeExp, args, k); }; @@ -185,8 +185,8 @@ class SpecialForms { }; renameAndDeprecate("deflocal", "localVar"); + k.doc("let", 2, null, "(let [] )"); map["let"] = (wholeExp:ReaderExp, args:Array, k:KissState) -> { - wholeExp.checkNumArgs(2, null, "(let [[bindings...]] [body...])"); var bindingList = args[0].bindingList("let"); var bindingPairs = bindingList.groups(2); var varDefs = [];