(define (syntactic-form name) (lambda subclauses (cons name subclauses))) (define form (syntactic-form 'form)) (define title (syntactic-form 'title)) (define description (syntactic-form 'description)) (define parameter (syntactic-form 'parameter)) (define pre-condition (syntactic-form 'pre-condition)) (define misc (syntactic-form 'misc)) (define result (syntactic-form 'result)) (define (manual-page . clauses) (let ((clause-leq? (generate-leq '(title form description pre-condition result misc) first)) ) (let ((sorted-clauses (sort-list clauses clause-leq?))) (present-clauses sorted-clauses))))