Permalink
Fetching contributors…
Cannot retrieve contributors at this time
13 lines (10 sloc) 303 Bytes
#lang racket/base
(require "demo.scrbl"
scribble/core
scribble/manual)
(define renamed-doc
(struct-copy part doc
[style manual-doc-style]
[title-content
(cons "M2 " (part-title-content doc))]))
(provide (rename-out [renamed-doc doc]))