Author: iratqq
Date: Sun Mar 15 23:17:08 2009
New Revision: 5895
Modified:
trunk/scm/fileio.scm
Log:
* scm/fileio.scm (file-open-flags-number, file-open-mode-number)
(file-poll-flags-number):
- Oops. reorder r5894.
Modified: trunk/scm/fileio.scm
==============================================================================
--- trunk/scm/fileio.scm (original)
+++ trunk/scm/fileio.scm Sun Mar 15 23:17:08 2009
@@ -46,11 +46,11 @@
(assq-cdr s alist))
l)))
(define (file-open-flags-number l)
- (fileio-set-flag l open-flags-alist))
+ (file-set-flag l file-open-flags-alist))
(define (file-open-mode-number l)
- (fileio-set-flag l open-mode-alist))
+ (file-set-flag l file-open-mode-alist))
(define (file-poll-flags-number l)
- (fileio-set-flag l poll-flags-alist))
+ (file-set-flag l file-poll-flags-alist))
(define (string->file-buf str)
(map char->integer (string->list str)))
