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

Define local read-and-eval! in emacs interface.

Browse source
This commit is contained in:
Neil Jerram 2002-11-17 22:17:59 +00:00
parent 7403e409f0
commit 50a6300387
2 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/ChangeLog
View file

@ -1,3 +1,8 @@
2002-11-17 Neil Jerram <neil@ossau.uklinux.net>
* emacs.scm (emacs-load): Locally define `read-and-eval!', as it
has been removed from the core.
2002-11-16 Dirk Herrmann <D.Herrmann@tu-bs.de> 2002-11-16 Dirk Herrmann <D.Herrmann@tu-bs.de>
* syncase.scm (define-syntax, eval-when, fluid-let-syntax, * syncase.scm (define-syntax, eval-when, fluid-let-syntax,

5
ice-9/emacs.scm
View file

@ -150,6 +150,11 @@
#t))) #t)))
(define (emacs-load filename linum colnum module interactivep) (define (emacs-load filename linum colnum module interactivep)
(define (read-and-eval! port)
(let ((x (read port)))
(if (eof-object? x)
(throw 'end-of-file)
(primitive-eval x))))
(set-port-filename! %%load-port filename) (set-port-filename! %%load-port filename)
(set-port-line! %%load-port linum) (set-port-line! %%load-port linum)
(set-port-column! %%load-port colnum) (set-port-column! %%load-port colnum)