#lang racket

(define-struct (exn:fail:filesystem:9p exn:fail:filesystem)
  ()
  #:transparent)

(define (raise-9p-error name)
  (raise (make-exn:fail:filesystem:9p name (current-continuation-marks))))

(provide/contract
 (struct exn:fail:filesystem:9p ([message string?]
                                 [continuation-marks continuation-mark-set?]))
 [raise-9p-error (-> string? any)])