Ticket #144: 0001-types.db-fixes-for-posix.patch

File 0001-types.db-fixes-for-posix.patch, 2.9 KB (added by Jim Ursetto, 16 years ago)

  • types.db 

    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  
    726726(fcntl/setfd fixnum)
    727727(fcntl/setfl fixnum)
    728728(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))
    731731(file-close (procedure file-close (fixnum) undefined))
    732732(file-control (procedure file-control (fixnum fixnum #!optional fixnum) fixnum))
    733733(file-execute-access? (procedure file-execute-access? (string) boolean))
    734734(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)))
    737737(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))
    739739(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))
    742742(file-position (procedure file-position ((or port fixnum)) fixnum))
    743743(file-read (procedure file-read (fixnum fixnum #!optional *) list))
    744744(file-read-access? (procedure file-read-access? (string) boolean))
    745745(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))
    748748(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))
    750750(file-unlock (procedure file-unlock ((struct lock)) undefined))
    751751(file-write (procedure file-write (fixnum * #!optional fixnum) fixnum))
    752752(file-write-access? (procedure file-write-access? (string) boolean))