mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-10 22:10:21 +02:00
Avoid duplicate binding warnings from (lang elisp) modules.
This commit is contained in:
parent
560434b369
commit
651f2c7854
4 changed files with 11 additions and 5 deletions
|
@ -1,3 +1,9 @@
|
|||
2003-11-01 Neil Jerram <neil@ossau.uklinux.net>
|
||||
|
||||
* internals/format.scm (format), internals/signal.scm (error),
|
||||
internals/load.scm (load): Export using #:replace to avoid
|
||||
duplicate binding warnings.
|
||||
|
||||
2003-01-05 Marius Vollmer <mvo@zagadka.ping.de>
|
||||
|
||||
* primitives/Makefile.am (elisp_sources): Added char-table.scm.
|
||||
|
|
|
@ -4,8 +4,8 @@
|
|||
#:use-module ((ice-9 format) #:select ((format . scheme:format)))
|
||||
#:use-module (lang elisp internals fset)
|
||||
#:use-module (lang elisp internals signal)
|
||||
#:export (format
|
||||
message))
|
||||
#:replace (format)
|
||||
#:export (message))
|
||||
|
||||
(define (format control-string . args)
|
||||
|
||||
|
|
|
@ -3,8 +3,8 @@
|
|||
#:use-module (lang elisp internals signal)
|
||||
#:use-module (lang elisp internals format)
|
||||
#:use-module (lang elisp internals evaluation)
|
||||
#:export (load-path
|
||||
load))
|
||||
#:replace (load)
|
||||
#:export (load-path))
|
||||
|
||||
(define load-path '("/usr/share/emacs/20.7/lisp/"
|
||||
"/usr/share/emacs/20.7/lisp/emacs-lisp/"))
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
(define-module (lang elisp internals signal)
|
||||
#:use-module (lang elisp internals format)
|
||||
#:replace (error)
|
||||
#:export (signal
|
||||
error
|
||||
wta))
|
||||
|
||||
(define (signal error-symbol data)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue