syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

This commit is contained in:
Tony Garnock-Jones 2016-03-03 17:31:53 -05:00
parent 30a5a924a3
commit 2a754624ef
7 changed files with 7 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
README.md
View File

@ -42,7 +42,7 @@ This repository contains a [Racket](http://racket-lang.org/) package,
## Compiling and running the code ## 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 Once you have Racket installed, run

2
prospect-monolithic/drivers/tcp.rkt
View File

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

2
prospect-monolithic/trace/stderr.rkt
View File

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

2
prospect/drivers/tcp.rkt
View File

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

8
prospect/exn-util.rkt
View File

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

4
prospect/pretty.rkt
View File

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

2
prospect/trace/stderr.rkt
View File

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