jyapayne/patty
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

minor

Browse source
This commit is contained in:
Andrea Ferretti 2015-07-02 20:19:50 +02:00
commit e382833aa8
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
patty.nim
View file

@ -41,7 +41,7 @@ proc makeBranch(n: NimNode): NimNode {. compileTime .} =
else:
error("Invalid ADT case: " & $(toStrLit(n)))
macro adt*(e: expr, body: stmt): stmt {. immediate .} =
proc defineTypes(e, body: NimNode): NimNode {. compileTime .} =
e.expectKind(nnkIdent)
body.expectKind(nnkStmtList)
# The children of the body should look like object constructors
@ -72,6 +72,9 @@ macro adt*(e: expr, body: stmt): stmt {. immediate .} =
result = newNimNode(nnkTypeSection)
result.add(enumType)
result.add(definedType)
macro adt*(e: expr, body: stmt): stmt {. immediate .} =
result = defineTypes(e, body)
when defined(pattydebug):
echo toStrLit(result)