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