* standard libraries now have version (6).

* #<library> now prints versions in proper form.

scheme/makefile.ss

@@ -1443,7 +1443,7 @@
           [visible? (caddr legend-entry)]) 
       (let ([id     (gensym)]
             [name       name]
-            [version     '()]
+            [version    (if (eq? (car name) 'rnrs) '(6) '())]
             [import-libs '()]
             [visit-libs  '()]
             [invoke-libs '()])

scheme/psyntax.expander.ss

@@ -2791,6 +2791,7 @@
                  (cdr x)))
              subst)))
         ((library name) (eq? library 'library)
+         ;;; FIXME: versioning stuff
          (let ((lib (find-library-by-name name)))
            (unless lib
              (error 'import 

scheme/psyntax.library-manager.ss

@@ -52,7 +52,10 @@
       (unless (library? x)
         (error 'record-type-printer "not a library"))
       (display 
-        (format "#<library ~s>" (append (library-name x) (library-ver x)))
+        (format "#<library ~s>" 
+          (if (null? (library-ver x))
+              (library-name x)
+              (append (library-name x) (list (library-ver x)))))
         p)))
 
   (define (find-dependencies ls)