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

Don't let the stepper snoop inside `for-all'.

Browse Source 
svn: r16076
This commit is contained in:
Mike Sperber 2009-09-19 18:01:30 +00:00
parent 65119301e6
commit 3ce1ce4c73
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/deinprogramm/DMdA.ss
View File

@ -985,8 +985,11 @@
(raise-syntax-error #f "inkorrekte `for-all'-Klausel - sollte die Form (id contr) haben" (raise-syntax-error #f "inkorrekte `for-all'-Klausel - sollte die Form (id contr) haben"
pr)))) pr))))
(syntax->list #'(?clause ...))))) (syntax->list #'(?clause ...)))))
#'(quickcheck:property
((?id ?arb) ...) ?body))) (stepper-syntax-property #'(quickcheck:property
((?id ?arb) ...) ?body)
'stepper-skip-completely
#t)))
((_ ?something ?body) ((_ ?something ?body)
(raise-syntax-error #f "keine Klauseln der Form (id contr)" (raise-syntax-error #f "keine Klauseln der Form (id contr)"
stx)) stx))