From 3a3e9e09b8df62fb0981aa22f876cc39ab680e74 Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@red-bean.com>
Date: Thu, 15 May 1997 02:01:08 +0000
Subject: [PATCH] * boot-9.scm (eval-string): Function deleted; it was already
 implemented in C, so there's no point in making a divergable copy here.

---
 ice-9/boot-9.scm | 9 ---------
 1 file changed, 9 deletions(-)

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index c86e94078..5d3738587 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -778,15 +778,6 @@
 ;;; Scheme code based on the argument list.  This page contains help
 ;;; functions for the code it generates.
 
-(define (eval-string string)
-  (call-with-input-string
-   string
-   (lambda (port)
-     (let loop ()
-       (let ((expr (read port)))
-	 (if (eof-object? expr) #f
-	     (begin (eval expr) (loop))))))))
-
 (define (command-line) (program-arguments))
 
 (define (load-user-init)