Remove exn-util.rkt, because since 6.3 racket/exn exists.

README.md

@@ -42,7 +42,7 @@ This repository contains a [Racket](http://racket-lang.org/) package,
 
 ## Compiling and running the code
 
-You will need Racket version 6.2.x or later.
+You will need Racket version 6.3 or later.
 
 Once you have Racket installed, run
 

prospect-monolithic/drivers/tcp.rkt

@@ -1,9 +1,9 @@
 #lang racket/base
 
 (require racket/match)
+(require racket/exn)
 (require (prefix-in tcp: racket/tcp))
 (require (only-in racket/port read-bytes-avail!-evt))
-(require "../../prospect/exn-util.rkt")
 (require "../main.rkt")
 (require "../demand-matcher.rkt")
 

prospect-monolithic/trace/stderr.rkt

@@ -5,8 +5,8 @@
 (require racket/set)
 (require racket/match)
 (require racket/pretty)
+(require racket/exn)
 (require (only-in racket/string string-join))
-(require "../../prospect/exn-util.rkt")
 (require "../core.rkt")
 (require "../../prospect/trace.rkt")
 (require "../mux.rkt")

prospect/drivers/tcp.rkt

@@ -1,9 +1,9 @@
 #lang racket/base
 
 (require racket/match)
+(require racket/exn)
 (require (prefix-in tcp: racket/tcp))
 (require (only-in racket/port read-bytes-avail!-evt))
-(require "../exn-util.rkt")
 (require "../main.rkt")
 (require "../demand-matcher.rkt")
 

prospect/exn-util.rkt

@@ -1,8 +0,0 @@
-#lang racket/base
-
-(provide exn->string)
-
-(define (exn->string exn)
-  (parameterize ([current-error-port (open-output-string)])
-    ((error-display-handler) (exn-message exn) exn)
-    (get-output-string (current-error-port))))

prospect/pretty.rkt

@@ -5,14 +5,14 @@
 
          prospect-pretty-print->string
 
-         exn->string ;; required from exn-util.rkt
+         exn->string ;; required from racket/exn
          string-indent
          indented-port-output)
 
 (require racket/generic)
 (require racket/pretty)
+(require racket/exn)
 (require (only-in racket/string string-join string-split))
-(require "exn-util.rkt")
 (require "route.rkt")
 
 (define-generics prospect-pretty-printable

prospect/trace/stderr.rkt

@@ -5,8 +5,8 @@
 (require racket/set)
 (require racket/match)
 (require racket/pretty)
+(require racket/exn)
 (require (only-in racket/string string-join))
-(require "../exn-util.rkt")
 (require "../core.rkt")
 (require "../trace.rkt")
 (require "../mux.rkt")