~ chicken-core (chicken-5) 09cd5d1eb16e31db7b270b31f29a5c53f6b66906
commit 09cd5d1eb16e31db7b270b31f29a5c53f6b66906
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Sep 1 08:48:26 2011 +0200
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Thu Sep 1 08:48:26 2011 +0200
typo in posixunix.scm (reported by ckeen, found by alan post)
diff --git a/posixunix.scm b/posixunix.scm
index e76122c9..3d1e0da6 100644
--- a/posixunix.scm
+++ b/posixunix.scm
@@ -772,8 +772,8 @@ EOF
(define (change-directory* fd)
(##sys#check-exact fd 'change-directory*)
(unless (fx= 0 (##core#inline "C_fchdir" fd))
- (posix-error #:file-error 'change-directory* "cannot change current directory" fd) )
- fd))
+ (posix-error #:file-error 'change-directory* "cannot change current directory" fd) )
+ fd)
;;; Pipes:
Trap