[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Chicken-hackers] [PATCH] Fix read-string! and u8vector! types.db entrie
From: |
Evan Hanson |
Subject: |
[Chicken-hackers] [PATCH] Fix read-string! and u8vector! types.db entries to allow false length arguments |
Date: |
Sat, 17 May 2014 20:43:58 -0700 |
User-agent: |
OpenSMTPD enqueuer (Demoosh) |
---
types.db | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/types.db b/types.db
index ab012d2..a66f044 100644
--- a/types.db
+++ b/types.db
@@ -1302,7 +1302,7 @@
(read-line (#(procedure #:enforce) read-line (#!optional input-port (or false
fixnum)) (or eof string)))
(read-lines (#(procedure #:enforce) read-lines (#!optional (or input-port
string) fixnum) (list-of string)))
(read-string (#(procedure #:enforce) read-string (#!optional * input-port)
string))
-(read-string! (#(procedure #:enforce) read-string! (fixnum string #!optional
input-port fixnum) fixnum))
+(read-string! (#(procedure #:enforce) read-string! ((or fixnum false) string
#!optional input-port fixnum) fixnum))
(read-token (#(procedure #:enforce) read-token ((procedure (char) *)
#!optional input-port) string))
(sprintf (#(procedure #:enforce) sprintf (string #!rest) string))
(write-byte (#(procedure #:enforce) write-byte (fixnum #!optional output-port)
undefined))
@@ -2457,7 +2457,7 @@
(make-u32vector (#(procedure #:clean #:enforce) make-u32vector (fixnum
#!optional * * *) (struct u32vector)))
(make-u8vector (#(procedure #:clean #:enforce) make-u8vector (fixnum
#!optional * * *) (struct u8vector)))
(read-u8vector (#(procedure #:enforce) read-u8vector (#!optional fixnum
input-port) (struct u8vector)))
-(read-u8vector! (#(procedure #:enforce) read-u8vector! (fixnum (struct
u8vector) #!optional input-port fixnum) number))
+(read-u8vector! (#(procedure #:enforce) read-u8vector! ((or fixnum false)
(struct u8vector) #!optional input-port fixnum) number))
(release-number-vector (procedure release-number-vector (*) undefined))
(s16vector (#(procedure #:clean #:enforce) s16vector (#!rest fixnum) (struct
s16vector)))
(s16vector->blob (#(procedure #:clean #:enforce) s16vector->blob ((struct
s16vector)) blob))
--
1.7.10.4
- [Chicken-hackers] [PATCH] Fix read-string! and u8vector! types.db entries to allow false length arguments,
Evan Hanson <=