fix broken attempt to update DrRacket for errortrace change

This commit is contained in:
Matthew Flatt 2011-09-14 06:54:50 -06:00
parent 50ead29fb9
commit 347d4d32ba

View File

@ -558,7 +558,7 @@ profile todo:
(with-syntax ([expr expr]
[mark (list 'dummy-thing source line column position span)]
[wcm (syntax-shift-phase-level #'with-continuation-mark phase)]
[errortrace-key (syntax-shift-phase-level errortrace-key phase)]
[errortrace-key errortrace-key] ; a symbol
[qte (syntax-shift-phase-level #'quote phase)])
(syntax
(wcm (qte errortrace-key)