You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
359 B
19 lines
359 B
#! /usr/bin/racket
|
|
#lang racket
|
|
(require "schemadsl.rkt")
|
|
|
|
(displayln
|
|
(make-mapping
|
|
"course"
|
|
`(,(estruct "sections"
|
|
`(,(str "title")
|
|
,(str "time")
|
|
,(str "loc")
|
|
,(str "prof")
|
|
,(atom "sem")
|
|
,(str "day")))
|
|
|
|
,(estruct "textbooks"
|
|
`(,(str "title")
|
|
,(str "author")
|
|
,(str "price"))))))
|
|
|