guile/guile-core/ice-9 ChangeLog arrays.scm

[Mikael Djurfeldt]

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

Modified files:
        guile-core/ice-9: ChangeLog arrays.scm 

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/ice-9/ChangeLog.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.461.2.20&tr2=1.461.2.21&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/arrays.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.3&tr2=1.3.2.1&r1=text&r2=text

Patches:
Index: guile/guile-core/ice-9/ChangeLog
diff -u guile/guile-core/ice-9/ChangeLog:1.484 
guile/guile-core/ice-9/ChangeLog:1.485
--- guile/guile-core/ice-9/ChangeLog:1.484      Mon Oct  8 08:40:14 2001
+++ guile/guile-core/ice-9/ChangeLog    Sun Oct 14 12:04:34 2001
@@ -1,3 +1,10 @@
+2001-10-14  Mikael Djurfeldt  <address@hidden>
+
+       * 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.)
+
 2001-10-08  Mikael Djurfeldt  <address@hidden>
 
        * emacs.scm (%%load-port, %%emacs-load, %%emacs-eval-request,
Index: guile/guile-core/ice-9/arrays.scm
diff -u guile/guile-core/ice-9/arrays.scm:1.3 
guile/guile-core/ice-9/arrays.scm:1.4
--- guile/guile-core/ice-9/arrays.scm:1.3       Sat Jun 30 15:26:21 2001
+++ guile/guile-core/ice-9/arrays.scm   Sun Oct 14 12:04:34 2001
@@ -79,5 +79,4 @@
 
 (define (read:uniform-vector proto port)
   (if (eq? #\( (peek-char port))
-      (list->uniform-array 1 proto (read port))
-      (error "read:uniform-vector list not found")))
+      (list->uniform-array 1 proto (read port))))