[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/libguile ChangeLog read.c
From: |
Mikael Djurfeldt |
Subject: |
guile/guile-core/libguile ChangeLog read.c |
Date: |
Sun, 14 Oct 2001 12:05:04 -0400 |
CVSROOT: /cvs
Module name: guile
Changes by: Mikael Djurfeldt <address@hidden> 01/10/14 12:05:04
Modified files:
guile-core/libguile: ChangeLog read.c
Log message:
* read.c (scm_lreadr): When user-defined hash procedure returns
SCM_UNSPECIFIED: Fall back to standard handling instead of raising
an exception. (This prevents parsing of uniform vectors from
interfering with parsing of numbers.)
* arrays.scm (read:uniform-vector): Return *unspecified* instead
of raising an exception if hash extend character isn't followed by
the array list. (This prevents parsing of uniform vectors from
interfering with parsing of numbers.)
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/ChangeLog.diff?cvsroot=OldCVS&tr1=1.1532&tr2=1.1533&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/read.c.diff?cvsroot=OldCVS&tr1=1.76&tr2=1.77&r1=text&r2=text
Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1532
guile/guile-core/libguile/ChangeLog:1.1533
--- guile/guile-core/libguile/ChangeLog:1.1532 Sat Oct 13 11:42:52 2001
+++ guile/guile-core/libguile/ChangeLog Sun Oct 14 12:05:04 2001
@@ -1,3 +1,10 @@
+2001-10-14 Mikael Djurfeldt <address@hidden>
+
+ * read.c (scm_lreadr): When user-defined hash procedure returns
+ SCM_UNSPECIFIED: Fall back to standard handling instead of raising
+ an exception. (This prevents parsing of uniform vectors from
+ interfering with parsing of numbers.)
+
2001-10-13 Marius Vollmer <address@hidden>
* numbers.c: Set NO_PREPRO_MAGIC when defining our version of
Index: guile/guile-core/libguile/read.c
diff -u guile/guile-core/libguile/read.c:1.76
guile/guile-core/libguile/read.c:1.77
--- guile/guile-core/libguile/read.c:1.76 Mon Jul 30 15:35:15 2001
+++ guile/guile-core/libguile/read.c Sun Oct 14 12:05:04 2001
@@ -350,7 +350,7 @@
got = scm_call_2 (sharp, SCM_MAKE_CHAR (c), port);
if (SCM_EQ_P (got, SCM_UNSPECIFIED))
- goto unkshrp;
+ goto handle_sharp;
if (SCM_RECORD_POSITIONS_P)
return *copy = recsexpr (got, line, column,
SCM_FILENAME (port));
@@ -358,6 +358,7 @@
return got;
}
}
+ handle_sharp:
switch (c)
{
case '(':
- guile/guile-core/libguile ChangeLog read.c,
Mikael Djurfeldt <=