getter-setter:

- Fix bug in handling of structures with set! patterns
  nested inside other patterns.
test-structure:
- add placeholder documentation for fields
- use #f instead of (make-inspector)

svn: r812

collects/mzlib/private/getter-setter.scm

@@ -73,8 +73,9 @@
                                 (let ((x #,(subst-bindings (syntax exp)
                                                            let-bound)))
                                   (lambda (y)
-                                    (#,(mk-setter 
-                                        (syntax-object->datum (syntax acc)))
+                                    (#,(datum->syntax-object #'acc
+                                                             (mk-setter 
+                                                              (syntax-object->datum (syntax acc))))
                                        x y)))))))))))
   
   ;;!(function getter

collects/mzlib/private/test-structure.scm

@@ -31,6 +31,10 @@
   ;;            of bind-exp-stx
   ;; bind-count - is the number of times in the bind-exp is found in the
   ;;              test list in which this test is a member
+  ;; times-used-neg - ??? (this appears to never be used)
+  ;; used-set-neg - ???
+  ;; closest-shape-tst - ???
+  ;; equal-set - ???
   (define-struct test (tst
                        comp
                        shape
@@ -43,7 +47,7 @@
                        used-set-neg
                        closest-shape-tst
                        equal-set)
-    (make-inspector))
+    #f)
   
   ;;!(function make-shape-test
   ;;          (form (make-shape-test test exp comp) -> test-struct)