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

define* in load

Browse source 
* module/ice-9/boot-9.scm (load): Use define*.
This commit is contained in:
Andy Wingo 2010-05-21 23:37:21 +02:00
parent 02851b26c7
commit d6e70467ba
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1089,7 +1089,7 @@ If there is no handler at all, Guile prints an error and then exits."
(set! %load-hook %load-announce) (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 ;; 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 ;; paths, only the fallback path. If the .go file is missing or out of
;; date, and autocompilation is enabled, will try autocompilation, just ;; 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" ";;; WARNING: compilation of ~a failed:\n;;; key ~a, throw_args ~s\n"
name k args) name k args)
#f))) #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)) (let ((cfn (and=> (and=> (false-if-exception (canonicalize-path name))
compiled-file-name) compiled-file-name)
fresh-compiled-file-name))) fresh-compiled-file-name)))