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

Fix various interaction breakage between the new DMdA records and the stepper.

Browse Source 
Namely, attach the `stepper-ignore-completely' property to each
individual definition, rather than just to the block of definitions as a whole.
This commit is contained in:
Mike Sperber 2010-06-01 20:08:00 +02:00
parent 61f6c2077d
commit 5f8924b1d2
1 changed files with 51 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
collects/deinprogramm/define-record-procedures.scm
View File

@ -118,9 +118,8 @@
(with-syntax
((defs
#'(begin
(define-values (type-descriptor
((struct-type-defs
#'(define-values (type-descriptor
raw-constructor
raw-predicate
raw-generic-access
@ -148,14 +147,14 @@
(raw-generic-access r number-of-fields))
(lambda (r val)
(raw-generic-mutate r number-of-fields val)))))
(make-inspector)))
(define ?constructor constructor-proc)
(define-values (?predicate real-predicate)
(values predicate-proc predicate-proc))
(define-values (accessor ... our-accessor ...)
(values accessor-proc ... accessor-proc ...))
(define mutator mutator-proc) ...))
(contract
(make-inspector))))
(constructor-def #'(define ?constructor constructor-proc))
(predicate-def #'(define-values (?predicate real-predicate)
(values predicate-proc predicate-proc)))
(accessor-defs #'(define-values (accessor ... our-accessor ...)
(values accessor-proc ... accessor-proc ...)))
(mutator-defs #'(define-values (mutator ...) (values mutator-proc ...)))
(contract-def
(with-syntax (((?param ...) (generate-temporaries #'(?field-spec ...))))
(with-syntax (((component-contract ...)
(map (lambda (accessor param)
@ -188,15 +187,22 @@
;; for ?type-name using ?predicate is inadvertently defined
base-contract
constructor-contract))))))
(with-syntax ((defs
;; again, with properties
(with-syntax ((struct-type-defs
(stepper-syntax-property
(syntax/loc x defs) 'stepper-skip-completely #t)))
(syntax/loc x struct-type-defs) 'stepper-skip-completely #t))
(constructor-def
(stepper-syntax-property #'constructor-def 'stepper-skip-completely #t))
(predicate-def
(stepper-syntax-property #'predicate-def 'stepper-skip-completely #t))
(accessor-defs
(stepper-syntax-property #'accessor-defs 'stepper-skip-completely #t))
(mutator-defs
(stepper-syntax-property #'mutator-defs 'stepper-skip-completely #t)))
#'(begin
contract
contract-def
;; the contract might be used in the definitions, hence this ordering
defs))))))
struct-type-defs constructor-def predicate-def accessor-defs mutator-defs))))))
((_ ?type-name
?contract-constructor-name
?constructor