[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: ice-9/and-let*.scm
From: |
Keisuke Nishida |
Subject: |
Re: ice-9/and-let*.scm |
Date: |
Sat, 18 Nov 2000 18:08:49 -0500 |
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.0.90 |
Jim Blandy <address@hidden> writes:
> > The file ice-9/and-let*.scm can't exist on windows32 systems because of
> > the asterisk. CVS doesn't even do a checkout with rename so you must
> > get it from a unix system when you checkout guile-core :)
> >
> > The point is, it would be great if that file was officially renamed...
>
> Right. The problem right now is that the mapping from module names
> (like (ice-9 and-let*)) and filenames (like ice-9/and-let*) is too
> simple. It should provide some quoting rules, so the file could be
> named ice-9/and-let%2A or something. Think of what would happen to a
> module named (scheme call/cc)...
How about renaming and-let*.scm to and-let.scm and apply the following
patch as a temporary solution?
--- boot-9.scm~ Sat Nov 18 18:03:19 2000
+++ boot-9.scm Sat Nov 18 18:02:52 2000
@@ -1898,6 +1898,10 @@
(map (lambda (elt)
(string-append (symbol->string elt) "/"))
dir-hint-module-name))))
+ (let ((match (regexp-exec (make-regexp "\\*$") name)))
+ (if match
+ (let ((p (vector-ref match 1)))
+ (set! name (make-shared-substring name 0 (car p))))))
(resolve-module dir-hint-module-name #f)
(and (not (autoload-done-or-in-progress? dir-hint name))
(let ((didit #f))
I know this is not a good solution, but the current module will be
replaced soon, right?
-- Kei