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