Move gen-schema.rkt to gen/schema.rkt
This commit is contained in:
parent
9e6743abdc
commit
1d6956fa55
|
@ -11,7 +11,7 @@
|
|||
(require "type.rkt")
|
||||
(require "parser.rkt")
|
||||
(require "unparser.rkt")
|
||||
(require "gen-schema.rkt")
|
||||
(require "gen/schema.rkt")
|
||||
|
||||
(define (struct-stx name-pieces field-names)
|
||||
`(struct ,(string->symbol (string-join (map ~a name-pieces) "-")) ,field-names #:prefab))
|
||||
|
@ -68,6 +68,6 @@
|
|||
(parse-Schema
|
||||
(with-input-from-file "../../../../schema/schema.bin" read-preserve))))
|
||||
(if #t
|
||||
(with-output-to-file "gen-schema.rkt" #:exists 'replace
|
||||
(with-output-to-file "gen/schema.rkt" #:exists 'replace
|
||||
(lambda () (pretty-write metaschema-module-source)))
|
||||
(pretty-write metaschema-module-source)))
|
||||
|
|
|
@ -7,7 +7,7 @@
|
|||
(require (only-in racket/syntax format-symbol))
|
||||
|
||||
(require "type.rkt")
|
||||
(require "gen-schema.rkt")
|
||||
(require "gen/schema.rkt")
|
||||
|
||||
(define (definition-parser name def)
|
||||
(define ty (definition-ty def))
|
||||
|
|
|
@ -17,7 +17,7 @@
|
|||
(require racket/match)
|
||||
(require (only-in racket/syntax format-symbol))
|
||||
|
||||
(require "gen-schema.rkt")
|
||||
(require "gen/schema.rkt")
|
||||
|
||||
(struct ty-union (variants) #:transparent)
|
||||
(struct ty-unit () #:transparent)
|
||||
|
|
|
@ -8,7 +8,7 @@
|
|||
(require (only-in racket/list append-map))
|
||||
|
||||
(require "type.rkt")
|
||||
(require "gen-schema.rkt")
|
||||
(require "gen/schema.rkt")
|
||||
|
||||
(define (simple-pattern? p)
|
||||
(match p
|
||||
|
|
Loading…
Reference in New Issue