- fixed problem with importing (main) when (main main) is available.

- fixed decoding of library names containing funny characters.

scheme/last-revision

@@ -1 +1 @@
-1646
+1647

scheme/psyntax.library-manager.ss

@@ -98,7 +98,7 @@
           ((<= 0 n 9) (display n p))
           (else (write-char
                   (integer->char 
-                    (+ (char->integer #\A)
+                    (+ (char->integer #\a)
                        (- n 10)))
                   p))))
       (define (main*? x)
@@ -106,26 +106,26 @@
              (string=? (substring x 0 4) "main")
              (for-all (lambda (x) (char=? x #\_)) 
                (string->list (substring x 4 (string-length x))))))
-      (let f ((x (car ls)) (ls (cdr ls)))
+      (let f ((x (car ls)) (ls (cdr ls)) (fst #t))
         (write-char #\/ p)
         (let ([name (symbol->string x)])
           (for-each
-            (lambda (c)
+            (lambda (n)
-              (cond
+              (let ([c (integer->char n)])
-                ((or (char<=? #\a c #\z)
+                (cond
-                     (char<=? #\A c #\Z)
+                  ((or (char<=? #\a c #\z)
-                     (char<=? #\0 c #\9)
+                       (char<=? #\A c #\Z)
-                     (memv c '(#\- #\. #\_ #\~)))
+                       (char<=? #\0 c #\9)
-                 (write-char c p))
+                       (memv c '(#\- #\+ #\_)))
-                (else
+                   (write-char c p))
-                 (write-char #\% p)
+                  (else
-                 (let ((n (char->integer c)))
+                   (write-char #\% p)
                    (display-hex (quotient n 16))
                    (display-hex (remainder n 16))))))
-            (string->list name))
+            (bytevector->u8-list (string->utf8 name)))
           (if (null? ls)
-              (when (main*? name) (write-char #\_ p))
+              (when (and (not fst) (main*? name)) (write-char #\_ p))
-              (f (car ls) (cdr ls)))))
+              (f (car ls) (cdr ls) #f))))
       (extract)))
 
   (define file-locator