commit 8c1953bf477844027901a7c1fe3cf54d0595da3e parent 7308e4cc10b0e6ea8da6248c2b1963aae206ad12 Author: Matthew Flatt <mflatt@racket-lang.org> Date: Thu, 11 Jul 2013 15:44:22 -0600 raco setup and scribble: fix problems tracking document changes Some non-transparent but serializable data structures broke the comparison between previous and new outputs, which caused too many document rebuilds. Includes a change to make module path indexes work with `equal?'. original commit: d5558a4fe0a0405140a6a44473f3000aef275685 Diffstat:
5 files changed, 20 insertions(+), 6 deletions(-)
diff --git 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 @@ -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 @@ -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 @@ -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 @@ -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)