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

Preserve some coercion behavior of old internal-definition-context-apply

Browse Source 
mzlib/unit200 relies upon this behavior, even though it appears to have
been mostly accidental, so this maintains it for the sake of
backwards-compatibility.
This commit is contained in:
Alexis King 2018-04-20 20:40:07 -05:00
parent 51decc085d
commit 7d556d4006
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/collects/racket/syntax.rkt
View File

@ -187,7 +187,10 @@
;; Included for backwards compatibility.
(define (internal-definition-context-apply intdefs stx)
(internal-definition-context-introduce intdefs stx 'add))
; The old implementation of internal-definition-context-apply implicitly converted its stx argument
; to syntax, which some things seem to (possibly unintentionally) rely on, so replicate that
; behavior here:
(internal-definition-context-introduce intdefs (datum->syntax #f stx) 'add))
(define (syntax-local-eval stx [intdefs '()])
(let* ([name (generate-temporary)]