From 145b3d840ea2bf744cdacd00bb71730accb5fbb2 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 13 Mar 2018 20:15:07 -0600
Subject: [PATCH] remove unused function

---
 racket/src/racket/src/read.c | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/racket/src/racket/src/read.c b/racket/src/racket/src/read.c
index 483a0fc6b4..f698b106d7 100644
--- a/racket/src/racket/src/read.c
+++ b/racket/src/racket/src/read.c
@@ -2346,12 +2346,6 @@ void scheme_ill_formed(struct CPort *port
 		  );
 }
 
-static void unsafe_disallowed(struct CPort *port)
-{
-  scheme_read_err(port ? port->orig_port : NULL,
-		  "read (compiled): unsafe values disallowed");
-}
-
 static void make_ut(CPort *port)
 {
   Scheme_Unmarshal_Tables *ut;