1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00

* boot-9.scm (eval-string): Function deleted; it was already

implemented in C, so there's no point in making a divergable copy
here.
This commit is contained in:
Jim Blandy 1997-05-15 02:01:08 +00:00
parent e1cd56f9d3
commit 3a3e9e09b8

View file

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