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

Changes from arch/CVS synchronization

Browse source
This commit is contained in:
Ludovic Courtès 2007-10-17 21:56:10 +00:00
parent 24e59a9257
commit d41668faec
6 changed files with 31 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ChangeLog
View file

@ -1,3 +1,7 @@
2007-10-17 Ludovic Courtès <ludo@gnu.org>
* NEWS: Mention reader bug-fix.
2007-10-16 Ludovic Courtès <ludo@gnu.org> 2007-10-16 Ludovic Courtès <ludo@gnu.org>
Guile 1.8.3 released. Guile 1.8.3 released.

8
NEWS
View file

@ -31,6 +31,14 @@ This slightly improves program startup times.
** Functions for handling `scm_option' now no longer require an argument ** Functions for handling `scm_option' now no longer require an argument
indicating length of the `scm_t_option' array. indicating length of the `scm_t_option' array.
Changes in 1.8.4 (since 1.8.3)
* Bugs fixed
** CR (ASCII 0x0d) is (again) recognized as a token delimiter by the reader
Changes in 1.8.3 (since 1.8.2) Changes in 1.8.3 (since 1.8.2)

6
libguile/ChangeLog
View file

@ -1,3 +1,9 @@
2007-10-17 Ludovic Courtès <ludo@gnu.org>
* read.c (CHAR_IS_BLANK_): Add `\r' (ASCII 0x0d). This fixes a
regression compared to 1.8.2. Reported by Puneet
<schemer@gmail.com>.
2007-10-10 Ludovic Courtès <ludo@gnu.org> 2007-10-10 Ludovic Courtès <ludo@gnu.org>
* pthread-threads.h (SCM_I_PTHREAD_MUTEX_INITIALIZER): Check * pthread-threads.h (SCM_I_PTHREAD_MUTEX_INITIALIZER): Check

7
libguile/read.c
View file

@ -150,7 +150,7 @@ static SCM *scm_read_hash_procedures;
/* `isblank' is only in C99. */ /* `isblank' is only in C99. */
#define CHAR_IS_BLANK_(_chr) \ #define CHAR_IS_BLANK_(_chr) \
(((_chr) == ' ') || ((_chr) == '\t') || ((_chr) == '\n') \ (((_chr) == ' ') || ((_chr) == '\t') || ((_chr) == '\n') \
|| ((_chr) == '\f')) || ((_chr) == '\f') || ((_chr) == '\r'))
#ifdef MSDOS #ifdef MSDOS
# define CHAR_IS_BLANK(_chr) \ # define CHAR_IS_BLANK(_chr) \
@ -182,9 +182,8 @@ static SCM *scm_read_hash_procedures;
/* Read an SCSH block comment. */ /* Read an SCSH block comment. */
static inline SCM scm_read_scsh_block_comment (int chr, SCM port); static inline SCM scm_read_scsh_block_comment (int chr, SCM port);
/* Helper function similar to `scm_read_token ()'. Read from PORT until a /* Read from PORT until a delimiter (e.g., a whitespace) is read. Return
whitespace is read. Return zero if the whole token could fit in BUF, zero if the whole token fits in BUF, non-zero otherwise. */
non-zero otherwise. */
static inline int static inline int
read_token (SCM port, char *buf, size_t buf_size, size_t *read) read_token (SCM port, char *buf, size_t buf_size, size_t *read)
{ {

5
test-suite/ChangeLog
View file

@ -1,3 +1,8 @@
2007-10-17 Ludovic Courtès <ludo@gnu.org>
* tests/reader.test (reading)[CR recognized as a token
delimiter]: New test.
2007-10-10 Ludovic Courtès <ludo@gnu.org> 2007-10-10 Ludovic Courtès <ludo@gnu.org>
* standalone/test-conversion.c: Include <inttypes.h> where * standalone/test-conversion.c: Include <inttypes.h> where

6
test-suite/tests/reader.test
View file

@ -84,7 +84,11 @@
(pass-if "unprintable symbol" (pass-if "unprintable symbol"
;; The reader tolerates unprintable characters for symbols. ;; The reader tolerates unprintable characters for symbols.
(equal? (string->symbol "\001\002\003") (equal? (string->symbol "\001\002\003")
(read-string "\001\002\003")))) (read-string "\001\002\003")))
(pass-if "CR recognized as a token delimiter"
;; In 1.8.3, character 0x0d was not recognized as a delimiter.
(equal? (read-string "one\x0dtwo") 'one)))
(pass-if-exception "radix passed to number->string can't be zero" (pass-if-exception "radix passed to number->string can't be zero"