From 6c666c71551a904b8ac8bd435b31ef4586d24bdb Mon Sep 17 00:00:00 2001
From: zbigniew <zbigniewsz@gmail.com>
Date: Wed, 9 Dec 2009 17:17:54 -0600
Subject: types.db fixes for posix
Signed-off-by: zbigniew <zbigniewsz@gmail.com>
---
types.db | 20 ++++++++++----------
1 files changed, 10 insertions(+), 10 deletions(-)
diff --git a/types.db b/types.db
index cc6edc7..0bd3746 100644
a
|
b
|
|
726 | 726 | (fcntl/setfd fixnum) |
727 | 727 | (fcntl/setfl fixnum) |
728 | 728 | (fifo? (procedure fifo? (string) boolean)) |
729 | | (file-access-time (procedure file-access-time (string) number)) |
730 | | (file-change-time (procedure file-change-time (string) number)) |
| 729 | (file-access-time (procedure file-access-time ((or string fixnum)) number)) |
| 730 | (file-change-time (procedure file-change-time ((or string fixnum)) number)) |
731 | 731 | (file-close (procedure file-close (fixnum) undefined)) |
732 | 732 | (file-control (procedure file-control (fixnum fixnum #!optional fixnum) fixnum)) |
733 | 733 | (file-execute-access? (procedure file-execute-access? (string) boolean)) |
734 | 734 | (file-link (procedure file-link (string string) undefined)) |
735 | | (file-lock (procedure file-lock (string fixnum #!optional *) (struct lock))) |
736 | | (file-lock/blocking (procedure file-lock/blocking (string fixnum #!optional *) (struct lock))) |
| 735 | (file-lock (procedure file-lock (port fixnum #!optional *) (struct lock))) |
| 736 | (file-lock/blocking (procedure file-lock/blocking (port fixnum #!optional *) (struct lock))) |
737 | 737 | (file-mkstemp (procedure file-mkstemp (string) fixnum string)) |
738 | | (file-modification-time (procedure file-modification-time (string) number)) |
| 738 | (file-modification-time (procedure file-modification-time ((or string fixnum)) number)) |
739 | 739 | (file-open (procedure file-open (string fixnum #!optional fixnum) fixnum)) |
740 | | (file-owner (procedure file-owner (string) fixnum)) |
741 | | (file-permissions (procedure file-permissions (string) fixnum)) |
| 740 | (file-owner (procedure file-owner ((or string fixnum)) fixnum)) |
| 741 | (file-permissions (procedure file-permissions ((or string fixnum)) fixnum)) |
742 | 742 | (file-position (procedure file-position ((or port fixnum)) fixnum)) |
743 | 743 | (file-read (procedure file-read (fixnum fixnum #!optional *) list)) |
744 | 744 | (file-read-access? (procedure file-read-access? (string) boolean)) |
745 | 745 | (file-select (procedure file-select (list list #!optional fixnum) list list)) |
746 | | (file-size (procedure file-size (string) fixnum)) |
747 | | (file-stat (procedure file-stat (string #!optional *) vector)) |
| 746 | (file-size (procedure file-size ((or string fixnum)) fixnum)) |
| 747 | (file-stat (procedure file-stat ((or string fixnum) #!optional *) vector)) |
748 | 748 | (file-test-lock (procedure file-test-lock (port fixnum #!optional *) boolean)) |
749 | | (file-truncate (procedure file-truncate (string fixnum) undefined)) |
| 749 | (file-truncate (procedure file-truncate ((or string fixnum) fixnum) undefined)) |
750 | 750 | (file-unlock (procedure file-unlock ((struct lock)) undefined)) |
751 | 751 | (file-write (procedure file-write (fixnum * #!optional fixnum) fixnum)) |
752 | 752 | (file-write-access? (procedure file-write-access? (string) boolean)) |