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

more helpful message for contract failure

Browse Source
This commit is contained in:
John Clements 2013-09-30 15:07:02 -07:00
parent 575ed235f0
commit 87c6f891cd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/htdp-pkgs/htdp-lib/stepper/private/annotate.rkt
View File

@ -679,7 +679,7 @@
[(stepper-syntax-property exp 'stepper-skipto/discard) [(stepper-syntax-property exp 'stepper-skipto/discard)
(dont-annotate 'discard)] (dont-annotate 'discard)]
[(to-be-skipped? exp) [(to-be-skipped? exp)
(vector (wcm-wrap 13 exp) null)] (vector (wcm-wrap "supposed to be skipped" exp) null)]
[else [else
(let ([exp (syntax-disarm exp saved-code-inspector)]) (let ([exp (syntax-disarm exp saved-code-inspector)])