From d6e70467bafdf5417000a14e168493aca8d0b80d Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 21 May 2010 23:37:21 +0200 Subject: [PATCH] define* in load * module/ice-9/boot-9.scm (load): Use define*. --- module/ice-9/boot-9.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index 30b9db129..28d32fa8b 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -1089,7 +1089,7 @@ If there is no handler at all, Guile prints an error and then exits." (set! %load-hook %load-announce) -(define (load name . reader) +(define* (load name #:optional reader) ;; Returns the .go file corresponding to `name'. Does not search load ;; paths, only the fallback path. If the .go file is missing or out of ;; date, and autocompilation is enabled, will try autocompilation, just @@ -1137,7 +1137,7 @@ If there is no handler at all, Guile prints an error and then exits." ";;; WARNING: compilation of ~a failed:\n;;; key ~a, throw_args ~s\n" name k args) #f))) - (with-fluids ((current-reader (and (pair? reader) (car reader)))) + (with-fluids ((current-reader reader)) (let ((cfn (and=> (and=> (false-if-exception (canonicalize-path name)) compiled-file-name) fresh-compiled-file-name)))