Move gen-schema.rkt to gen/schema.rkt

This commit is contained in:
Tony Garnock-Jones 2021-05-22 15:52:12 +02:00
parent 9e6743abdc
commit 1d6956fa55
5 changed files with 5 additions and 5 deletions

View File

@ -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)))

View File

@ -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))

View File

@ -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)

View File

@ -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