Author: iratqq
Date: Sun Feb 8 17:10:15 2009
New Revision: 5832
Modified:
trunk/scm/posix.scm
Log:
* scm/posix.scm (duplicate-fileno):
- Oops, misused args.
Modified: trunk/scm/posix.scm
==============================================================================
--- trunk/scm/posix.scm (original)
+++ trunk/scm/posix.scm Sun Feb 8 17:10:15 2009
@@ -90,5 +90,5 @@
(file-buf->string (inbuf? port)))
(define (duplicate-fileno oldd . args)
- (let-optionals* args ((newd . #f))
+ (let-optionals* args ((newd #f))
(duplicate2-fileno oldd newd)))
