guile/guile-core/libguile ChangeLog read.c

[Mikael Djurfeldt]

CVSROOT:        /cvs
Module name:    guile
Branch:         branch_release-1-6
Changes by:     Mikael Djurfeldt <address@hidden>       01/10/15 07:21:47

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&only_with_tag=branch_release-1-6&tr1=1.1465.2.40&tr2=1.1465.2.41&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/read.c.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.74.2.1&tr2=1.74.2.2&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1533 
guile/guile-core/libguile/ChangeLog:1.1534
--- guile/guile-core/libguile/ChangeLog:1.1533  Sun Oct 14 12:05:04 2001
+++ guile/guile-core/libguile/ChangeLog Sun Oct 14 17:28:23 2001
@@ -1,3 +1,8 @@
+2001-10-14  Gary Houston  <address@hidden>
+
+       * version.c (scm_version): use sprintf instead of snprintf,
+       for portability.  thanks to Bill Schottstaedt.
+
 2001-10-14  Mikael Djurfeldt  <address@hidden>
 
        * read.c (scm_lreadr): When user-defined hash procedure returns
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 '(':