From a8eb4969626233267978bf951630f8220718e8bd Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 31 Dec 2012 00:27:03 +0900 Subject: [PATCH] get/set-file-descriptor-flags/status[!] now accept port arguments --- lib/chibi/filesystem.stub | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/chibi/filesystem.stub b/lib/chibi/filesystem.stub index bbcad4b2..5638180a 100644 --- a/lib/chibi/filesystem.stub +++ b/lib/chibi/filesystem.stub @@ -151,17 +151,17 @@ (define-c errno (make-fifo "mkfifo") (string (default #o644 int))) (define-c int (get-file-descriptor-flags "fcntl") - (fileno (value F_GETFD int))) + (port-or-fileno (value F_GETFD int))) (define-c errno (set-file-descriptor-flags! "fcntl") - (fileno (value F_SETFD int) long)) + (port-or-fileno (value F_SETFD int) long)) ;;> Get and set the flags for the given file descriptor. ;;/ (define-c int (get-file-descriptor-status "fcntl") - (fileno (value F_GETFL int))) + (port-or-fileno (value F_GETFL int))) (define-c errno (set-file-descriptor-status! "fcntl") - (fileno (value F_SETFL int) long)) + (port-or-fileno (value F_SETFL int) long)) ;;> Get and set the status for the given file descriptor. ;;/