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

Unbreak the stepper wrt. the new `define-record-procedures' syntax.

Browse Source 
svn: r16074
This commit is contained in:
Mike Sperber 2009-09-19 17:46:19 +00:00
parent e4ed07ce73
commit 4c70a14d7e
1 changed files with 19 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -144,21 +144,27 @@
#'(at ?param (property ?accessor ?param))))
(syntax->list #'(our-accessor ...))
(syntax->list #'(?param ...)))))
#'(begin
;; we use real-predicate to avoid infinite recursion if a contract
;; for ?type-name using ?predicate is inadvertently defined
(define ?type-name (contract (predicate real-predicate)))
(define (?contract-constructor-name ?param ...)
(contract
(combined (at ?type-name (predicate real-predicate))
component-contract ...))))))))
(with-syntax ((base-contract
(stepper-syntax-property
#'(define ?type-name (contract (predicate real-predicate)))
'stepper-skip-completely
#t))
(constructor-contract
(stepper-syntax-property
#'(define (?contract-constructor-name ?param ...)
(contract
(combined (at ?type-name (predicate real-predicate))
component-contract ...)))
'stepper-skip-completely
#t)))
#'(begin
;; we use real-predicate to avoid infinite recursion if a contract
;; for ?type-name using ?predicate is inadvertently defined
base-contract
constructor-contract))))))
(with-syntax ((defs
(stepper-syntax-property
(syntax/loc x defs) 'stepper-skip-completely #t))
(contract
(stepper-syntax-property
#'contract
'stepper-skip-completely #t)))
(syntax/loc x defs) 'stepper-skip-completely #t)))
#'(begin
contract