bugfixes: re; pegs module

This commit is contained in:
Andreas Rumpf 2010-02-28 18:14:27 +01:00
commit ddb7185482
13 changed files with 97 additions and 72 deletions

View file

@ -223,9 +223,8 @@ proc newXmlTree*(tag: string, children: openArray[PXmlNode],
result.fAttr = attributes
proc xmlConstructor(e: PNimrodNode): PNimrodNode {.compileTime.} =
## use this procedure to define a new XML tag
expectLen(e, 1)
var a = e[0]
expectLen(e, 2)
var a = e[1]
if a.kind == nnkCall:
result = newCall("newXmlTree", toStrLit(a[0]))
var attrs = newCall("newStringTable", [])