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

lambda* in resolve-module

Browse source 
* module/ice-9/boot-9.scm (resolve-module): Use lambda*.
This commit is contained in:
Andy Wingo 2010-05-21 23:42:17 +02:00
parent 5a6621244f
commit 6b7d701e73
1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2404,11 +2404,8 @@ If there is no handler at all, Guile prints an error and then exits."
;; Define the-root-module as '(guile).
(module-define-submodule! root 'guile the-root-module)
(lambda (name . args) ;; #:optional (autoload #t) (version #f)
(let* ((already (nested-ref-module root name))
(numargs (length args))
(autoload (or (= numargs 0) (car args)))
(version (and (> numargs 1) (cadr args))))
(lambda* (name #:optional (autoload #t) (version #f))
(let ((already (nested-ref-module root name)))
(cond
((and already
(or (not autoload) (module-public-interface already)))