From 7b113899d48267f0c266192ea916f1efe7ec0e98 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Wed, 31 Jul 2013 17:42:22 -0400 Subject: [PATCH] syntax/parse: removed unused exn info --- .../syntax/parse/private/runtime-report.rkt | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) diff --git a/racket/collects/syntax/parse/private/runtime-report.rkt b/racket/collects/syntax/parse/private/runtime-report.rkt index 1b84b860a4..8f43927dee 100644 --- a/racket/collects/syntax/parse/private/runtime-report.rkt +++ b/racket/collects/syntax/parse/private/runtime-report.rkt @@ -10,9 +10,6 @@ current-failure-handler maximal-failures - exn:syntax-parse? - exn:syntax-parse-info - invert-ps ps->stx+index ) @@ -46,16 +43,6 @@ broken by a lazy-require of this module into residual.rkt ;; Hack: alternative to new (primitive) phase-crossing exn type is to ;; store extra information in exn continuation marks. -(define (exn:syntax-parse? x) - (and (exn:fail:syntax? x) - (pair? (continuation-mark-set-first - (exn-continuation-marks x) - 'exn:syntax-parse)))) - -;; exn:syntax-parse-info : exn:syntax-parse -> (cons syntax failureset) -(define (exn:syntax-parse-info x) - (continuation-mark-set-first (exn-continuation-marks x) 'exn:syntax-parse)) - #| Reporting --------- @@ -71,8 +58,7 @@ complicated. (define (report-failureset stx0 fs) (let* ([classes (maximal-failures fs)] [reports (apply append (map report/class classes))]) - (with-continuation-mark 'exn:syntax-parse (cons stx0 fs) - (raise-syntax-error/reports stx0 reports)))) + (raise-syntax-error/reports stx0 reports))) ;; A Report is ;; - (report string stx)