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

define* in load-module

Browse source 
* module/ice-9/boot-9.scm (load-module): Use define*.
This commit is contained in:
Andy Wingo 2010-05-21 23:41:49 +02:00
parent 723ae5b370
commit 5a6621244f
1 changed files with 8 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1987,19 +1987,18 @@ If there is no handler at all, Guile prints an error and then exits."
(define basic-load load)
(define (load-module filename . reader)
(define* (load-module filename #:optional reader)
(save-module-excursion
(lambda ()
(let ((oldname (and (current-load-port)
(port-filename (current-load-port)))))
(apply basic-load
(if (and oldname
(> (string-length filename) 0)
(not (char=? (string-ref filename 0) #\/))
(not (string=? (dirname oldname) ".")))
(string-append (dirname oldname) "/" filename)
filename)
reader)))))
(basic-load (if (and oldname
(> (string-length filename) 0)
(not (char=? (string-ref filename 0) #\/))
(not (string=? (dirname oldname) ".")))
(string-append (dirname oldname) "/" filename)
filename)
reader)))))