~ chicken-core (chicken-5) 190890e351996e3d5497abd2fcb8e83e6bccf577

commit 190890e351996e3d5497abd2fcb8e83e6bccf577
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Jun 9 23:40:39 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Jun 9 23:40:39 2010 +0200

    fixed missing paren

diff --git a/library.scm b/library.scm
index 53964c4d..87d86abd 100644
--- a/library.scm
+++ b/library.scm
@@ -1913,12 +1913,12 @@ EOF
 (define (directory-exists? name)
   (##sys#check-string name 'directory-exists?)
   (##sys#pathname-resolution
-    name
-    (lambda (name)
-      (and-let* ((info (##sys#file-info (##sys#platform-fixup-pathname name)))
-		 ((eq? 1 (vector-ref info 4))))
-	name))
-    #:exists?) )
+   name
+   (lambda (name)
+     (and-let* ((info (##sys#file-info (##sys#platform-fixup-pathname name)))
+		((eq? 1 (vector-ref info 4))))
+       name))
+   #:exists?) )
 
 (define (##sys#flush-output port)
   ((##sys#slot (##sys#slot port 2) 5) port) ; flush-output
@@ -3358,7 +3358,7 @@ EOF
     (for-each
      (lambda (info) 
        (let ((more1 (##sys#slot info 1))
-	     (more2 (##sys#slot info 2)) 
+	     (more2 (##sys#slot info 2)) )
 	 (##sys#print "\n\t" #f port)
 	 (##sys#print (##sys#slot info 0) #f port)
 	 (##sys#print "\t\t" #f port)