You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
15 lines
363 B
Racket
15 lines
363 B
Racket
#lang racket/base
|
|
(require racket/contract racket/match racket/set)
|
|
(require sugar txexpr)
|
|
(require "world.rkt" "file-tools.rkt" "debug.rkt")
|
|
|
|
(provide (all-from-out "file-tools.rkt"))
|
|
|
|
;; test for well-formed meta
|
|
(define+provide/contract (meta-xexpr? x)
|
|
(any/c . -> . boolean?)
|
|
(match x
|
|
[`(meta ,(? string? key) ,(? string? value)) #t]
|
|
[else #f]))
|
|
|