~ chicken-core (chicken-5) a8f8a6f9826dd5ccd33248affd0932574600aea3

commit a8f8a6f9826dd5ccd33248affd0932574600aea3
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Jun 30 06:23:28 2011 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Jun 30 06:23:28 2011 -0400

    removed redundant test in lookup-script-file (csi)

diff --git a/csi.scm b/csi.scm
index 21dd765b..a5664e6e 100644
--- a/csi.scm
+++ b/csi.scm
@@ -205,7 +205,7 @@ EOF
 	(and (> (##sys#size name) 0)
 	     (cond [(dirseparator? (string-ref name 0)) (addext name)]
 		   [(string-index dirseparator? name)
-		    (and-let* ([p (_getcwd buf 256)])
+		    (let ((p (_getcwd buf 256)))
 		      (addext (string-append (chop-separator p) "/" name)) ) ]
 		   [(addext name)]
 		   [else