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

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

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)

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)

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)])

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)