suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

getter-setter:

Browse Source 
- 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
This commit is contained in:
Sam Tobin-Hochstadt 2005-09-09 15:58:34 +00:00
parent 6c8bd4e087
commit 6f8d1ef4f2
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mzlib/private/getter-setter.scm
View File

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

6
collects/mzlib/private/test-structure.scm
View File

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