ehmry
/
preserves-nim
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Generate `data` fields for anonymous patterns

This commit is contained in:
Emery Hemingway 2022-03-19 09:13:23 -05:00
parent e8d1bf2c57
commit a3c55238f5
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/preserves/preserves_schema_nim.nim
View File

@ -10,7 +10,7 @@ import std/[hashes, sequtils, strutils, sets, tables]
import compiler/[ast, idents, renderer, lineinfos]
import ../preserves, ./schema, ./parse
import ../preserves, ./schema
type
Bundle = schema.Bundle[void]
@ -487,8 +487,7 @@ proc addFields(recList: PNode; scm: Schema; known: var TypeTable; cp: CompoundPa
proc addFields(recList: PNode; scm: Schema; known: var TypeTable; pat: Pattern; parentName: string): PNode {.discardable.} =
case pat.orKind
of PatternKind.SimplePattern:
raiseAssert "addFields called with SimplePattern " #& $pat.simplePattern
# addField(recList, scm, known, pat.simplePattern, "data")
addField(recList, scm, known, pat.simplePattern, "data")
of PatternKind.CompoundPattern:
discard addFields(recList, scm, known, pat.compoundPattern, parentName)
reclist

2
src/preserves/schemaparse.nim
View File

@ -6,7 +6,7 @@ from std/os import absolutePath, isAbsolute, getCurrentDir, parentDir
import npeg
import ../preserves, ./schema, ./parse, ./pegs
import ../preserves, ./schema, ./pegs
type
Value = Preserve[void]