guile/guile-core/libguile ChangeLog read.c

[Mikael Djurfeldt]

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 '(':