diff --git a/pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt b/pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt index 21a9884a..3d2dd7cc 100644 --- a/pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt +++ b/pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt @@ -3,6 +3,7 @@ (require "core.rkt" "private/render-utils.rkt" "html-properties.rkt" + "private/literal-anchor.rkt" scheme/class scheme/path scheme/file @@ -119,8 +120,6 @@ [v (regexp-replace* #rx#"[^-a-zA-Z0-9_!+*'()/.,]" v encode-bytes)]) (bytes->string/utf-8 v)))) -(define-serializable-struct literal-anchor (string)) - (define (color->string c) (if (string? c) c diff --git a/pkgs/scribble-pkgs/scribble-lib/scribble/private/literal-anchor.rkt b/pkgs/scribble-pkgs/scribble-lib/scribble/private/literal-anchor.rkt new file mode 100644 index 00000000..e7b44564 --- /dev/null +++ b/pkgs/scribble-pkgs/scribble-lib/scribble/private/literal-anchor.rkt @@ -0,0 +1,7 @@ +#lang racket/base +(require racket/serialize) + +(provide (all-defined-out)) + +(define-serializable-struct literal-anchor (string) + #:transparent) diff --git a/pkgs/scribble-pkgs/scribble-lib/scribble/private/manual-class-struct.rkt b/pkgs/scribble-pkgs/scribble-lib/scribble/private/manual-class-struct.rkt new file mode 100644 index 00000000..40c41dbf --- /dev/null +++ b/pkgs/scribble-pkgs/scribble-lib/scribble/private/manual-class-struct.rkt @@ -0,0 +1,8 @@ +#lang racket/base +(require racket/serialize) + +(provide (all-defined-out)) + +(define-serializable-struct cls/intf + (name-element app-mixins super intfs methods) + #:transparent) diff --git a/pkgs/scribble-pkgs/scribble-lib/scribble/private/manual-class.rkt b/pkgs/scribble-pkgs/scribble-lib/scribble/private/manual-class.rkt index b2edd921..5e09fba6 100644 --- a/pkgs/scribble-pkgs/scribble-lib/scribble/private/manual-class.rkt +++ b/pkgs/scribble-pkgs/scribble-lib/scribble/private/manual-class.rkt @@ -15,6 +15,7 @@ "manual-method.rkt" "manual-proc.rkt" "manual-vars.rkt" + "manual-class-struct.rkt" scheme/list (for-syntax scheme/base) (for-label scheme/base @@ -56,9 +57,6 @@ (error 'scribble "no class/interface/mixin information for identifier: ~e" id)))) -(define-serializable-struct cls/intf - (name-element app-mixins super intfs methods)) - (define (make-inherited-table r d ri decl) (define start (let ([key (find-scheme-tag d ri (decl-name decl) #f)]) diff --git a/pkgs/scribble-pkgs/scribble-lib/scribble/render-struct.rkt b/pkgs/scribble-pkgs/scribble-lib/scribble/render-struct.rkt index 7ad90ec2..24b27b54 100644 --- a/pkgs/scribble-pkgs/scribble-lib/scribble/render-struct.rkt +++ b/pkgs/scribble-pkgs/scribble-lib/scribble/render-struct.rkt @@ -3,4 +3,6 @@ (require scheme/serialize) (provide (struct-out mobile-root)) -(define-serializable-struct mobile-root (path) #:mutable) +(define-serializable-struct mobile-root (path) + #:mutable + #:transparent)