From 6f8d1ef4f2972062f331f15f1bc419ce61eadea3 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Fri, 9 Sep 2005 15:58:34 +0000 Subject: [PATCH] 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 | 5 +++-- collects/mzlib/private/test-structure.scm | 6 +++++- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/collects/mzlib/private/getter-setter.scm b/collects/mzlib/private/getter-setter.scm index a2a70a6219..ca1acb9ebb 100644 --- a/collects/mzlib/private/getter-setter.scm +++ b/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 diff --git a/collects/mzlib/private/test-structure.scm b/collects/mzlib/private/test-structure.scm index baa36e9c3c..94a1456ad3 100644 --- a/collects/mzlib/private/test-structure.scm +++ b/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)