Emit a discard for empty case…of branch fields

2021-09-06 18:34:29 +02:00 · 2021-09-06 18:34:29 +02:00 · 23d34d1468
parent 00bb9de55f
commit 23d34d1468
1 changed files with 2 additions and 0 deletions
--- a/src/preserves/private/preserves_schema_nim.nim
+++ b/src/preserves/private/preserves_schema_nim.nim
@ -155,6 +155,8 @@ proc nimTypeOf(scm: Schema; known: var TypeTable; sn: SchemaNode; name = ""): PN
              newEmpty()))
        let disc = nkDotExpr.newNode.add(
          enumIdent, bn.altLabel.nimIdentNormalize.ident.accQuote)
+        if recList.len == 0:
+          recList.add nn(nkDiscardStmt, newEmpty())
        recCase.add nkOfBranch.newNode.add(disc, recList)
      result = nn(nkRefTy, nn(nkObjectTy,
        newEmpty(),