mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

r7rs: 'read-u8' now defaults to 'current-input-port'.

Browse source 
Fixes <https://bugs.gnu.org/62690>.
Reported by Rui Zhang <zrui16@hotmail.com>.

* module/scheme/base.scm (read-u8): Change default value of 'port'.
This commit is contained in:
Ludovic Courtès 2023-07-16 22:29:19 +02:00
parent dcccaddf7b
commit d5659b7869
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
NEWS
View file

@ -35,6 +35,8 @@ the compiler reports it as "possibly unused".
(<https://bugs.gnu.org/64666>) (<https://bugs.gnu.org/64666>)
** Avoid module resolution in 'call-with-new-thread', which could deadlock ** Avoid module resolution in 'call-with-new-thread', which could deadlock
(<https://bugs.gnu.org/62691>) (<https://bugs.gnu.org/62691>)
** 'read-u8' in (scheme base) now defaults to (current-input-port)
(<https://bugs.gnu.org/62690>)
** Hashing of UTF-8 symbols with non-ASCII characters avoids corruption ** Hashing of UTF-8 symbols with non-ASCII characters avoids corruption
(<https://bugs.gnu.org/56413>) (<https://bugs.gnu.org/56413>)

4
module/scheme/base.scm
View file

@ -1,5 +1,5 @@
;;; R7RS compatibility libraries ;;; R7RS compatibility libraries
;;; Copyright (C) 2019-2021 Free Software Foundation, Inc. ;;; Copyright (C) 2019-2021, 2023 Free Software Foundation, Inc.
;;; ;;;
;;; This library is free software: you can redistribute it and/or modify ;;; This library is free software: you can redistribute it and/or modify
;;; it under the terms of the GNU Lesser General Public License as ;;; it under the terms of the GNU Lesser General Public License as
@ -368,7 +368,7 @@
(define* (peek-u8 #:optional (port (current-input-port))) (define* (peek-u8 #:optional (port (current-input-port)))
(lookahead-u8 port)) (lookahead-u8 port))
(define* (read-u8 #:optional (port (current-output-port))) (define* (read-u8 #:optional (port (current-input-port)))
(get-u8 port)) (get-u8 port))
(define* (read-bytevector len #:optional (port (current-input-port))) (define* (read-bytevector len #:optional (port (current-input-port)))