dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

define* in try-module-autoload

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

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

@ -2700,10 +2700,9 @@ module '(ice-9 q) '(make-q q-length))}."
;; This function is called from "modules.c". If you change it, be ;; This function is called from "modules.c". If you change it, be
;; sure to update "modules.c" as well. ;; sure to update "modules.c" as well.
(define (try-module-autoload module-name . args) (define* (try-module-autoload module-name #:optional version)
(let* ((reverse-name (reverse module-name)) (let* ((reverse-name (reverse module-name))
(name (symbol->string (car reverse-name))) (name (symbol->string (car reverse-name)))
(version (and (not (null? args)) (car args)))
(dir-hint-module-name (reverse (cdr reverse-name))) (dir-hint-module-name (reverse (cdr reverse-name)))
(dir-hint (apply string-append (dir-hint (apply string-append
(map (lambda (elt) (map (lambda (elt)