mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 15:00:21 +02:00
Code Activity

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

Browse source 
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
1 changed files with 0 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

9
ice-9/boot-9.scm
View file

@ -778,15 +778,6 @@
;;; Scheme code based on the argument list. This page contains help ;;; Scheme code based on the argument list. This page contains help
;;; functions for the code it generates. ;;; 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 (command-line) (program-arguments))
(define (load-user-init) (define (load-user-init)