~ 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