25 lines
1.0 KiB
Racket
25 lines
1.0 KiB
Racket
#lang racket/base
|
|
(provide (struct-out exn:fail:syntax/rects)
|
|
(struct-out exn:fail:read/rects)
|
|
(struct-out exn:fail:read:eof/rects)
|
|
(struct-out exn:fail:read:non-char/rects)
|
|
(struct-out srcloc-rect)
|
|
prop:exn:srcloc-rects
|
|
exn:srcloc-rects?
|
|
exn:srcloc-rects-accessor)
|
|
|
|
(define-values (prop:exn:srcloc-rects exn:srcloc-rects? exn:srcloc-rects-accessor)
|
|
(make-struct-type-property 'exn:srcloc-rects))
|
|
|
|
(struct exn:fail:syntax/rects exn:fail:syntax (rects)
|
|
#:property prop:exn:srcloc-rects (λ (x) (exn:fail:syntax/rects-rects x)))
|
|
|
|
(struct exn:fail:read/rects exn:fail:read (rects)
|
|
#:property prop:exn:srcloc-rects (λ (x) (exn:fail:read/rects-rects x)))
|
|
(struct exn:fail:read:eof/rects exn:fail:read:eof (rects)
|
|
#:property prop:exn:srcloc-rects (λ (x) (exn:fail:read:eof/rects-rects x)))
|
|
(struct exn:fail:read:non-char/rects exn:fail:read:non-char (rects)
|
|
#:property prop:exn:srcloc-rects (λ (x) (exn:fail:read:non-char/rects-rects x)))
|
|
|
|
(struct srcloc-rect (source pos width height) #:transparent)
|