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

syntax/parse: removed unused exn info

Browse Source
This commit is contained in:
Ryan Culpepper 2013-07-31 17:42:22 -04:00
parent 1b98359925
commit 7b113899d4
1 changed files with 1 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
racket/collects/syntax/parse/private/runtime-report.rkt
View File

@ -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)