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

Better error message when id is unbound in `make-env'.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2011-08-15 17:56:50 -04:00
parent 13ef3849fc
commit 11167aa214
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/typed-scheme/utils/tc-utils.rkt
View File

@ -194,10 +194,7 @@ don't depend on any other portion of the system
#:transparent #:transparent
#:attributes (ty id) #:attributes (ty id)
(pattern [nm:identifier ~! ty] (pattern [nm:identifier ~! ty]
#:fail-unless (list? ((if (= 1 (syntax-local-phase-level)) #:fail-when (and (not (list? (identifier-template-binding #'nm))) #'nm)
identifier-template-binding
identifier-template-binding)
#'nm))
"not a bound identifier" "not a bound identifier"
#:with id #'(quote-syntax nm)) #:with id #'(quote-syntax nm))
(pattern [e:expr ty] (pattern [e:expr ty]