fix `syntax-local-bind-syntaxes' argument checking
Closes PR 11808
This commit is contained in:
parent
0efcf22ed4
commit
4b39efdee4
|
@ -540,4 +540,13 @@
|
|||
|
||||
;; ----------------------------------------
|
||||
|
||||
(let ()
|
||||
(define-syntax (foo stx)
|
||||
(define context (syntax-local-make-definition-context))
|
||||
(with-handlers ([exn:fail:contract? (lambda (x) #''ok)])
|
||||
(syntax-local-bind-syntaxes (list 'q) #'1 context)))
|
||||
(test 'ok 'ok (foo)))
|
||||
|
||||
;; ----------------------------------------
|
||||
|
||||
(report-errs)
|
||||
|
|
|
@ -11559,7 +11559,7 @@ local_eval(int argc, Scheme_Object **argv)
|
|||
names = argv[0];
|
||||
for (l = names; SCHEME_PAIRP(l); l = SCHEME_CDR(l)) {
|
||||
a = SCHEME_CAR(l);
|
||||
if (!SCHEME_STX_SYMBOLP(a))
|
||||
if (!SCHEME_STXP(a) || !SCHEME_STX_SYMBOLP(a))
|
||||
break;
|
||||
cnt++;
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue
Block a user