From 5a6621244f1a1e93ab5c024f9da05565950ffafe Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 21 May 2010 23:41:49 +0200 Subject: [PATCH] define* in load-module * module/ice-9/boot-9.scm (load-module): Use define*. --- module/ice-9/boot-9.scm | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index 8cd861e87..ea68d5c5f 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -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)))))