chicken-hackers
[Top][All Lists]
Advanced

[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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]