fixed a bug in matching library subversion in psyntax.

scheme/last-revision

@@ -1 +1 @@
-1523
+1524

scheme/psyntax.expander.ss

@@ -29,7 +29,6 @@
           interaction-environment
           ellipsis-map)
   (import
-    (only (ikarus) printf)
     (except (rnrs) 
       environment environment? identifier?
       eval generate-temporaries free-identifier=?
@@ -3299,7 +3298,7 @@
                    [(null? x) #f]
                    [else 
                     (and ((car p*) (car x))
-                         (f (cdr p*) (cdr x*)))]))))]
+                         (f (cdr p*) (cdr x)))]))))]
           [_ (syntax-violation 'import "invalid version spec" spec x*)]))
       (let f ([x spec])
         (syntax-match x ()