negative bounds of literal arrays

[SZAVAI Gyula]

guile-1.8-20061126

   address@hidden(#t #t)
==> address@hidden(#t #t)


--- orig/libguile/unif.c        2006-11-29 00:28:41.655614400 +0100
+++ mod/libguile/unif.c 2006-11-29 00:43:33.678280000 +0100
@@ -2669,7 +2669,7 @@
    }

  if (got_it)
-    *resp = res;
+    *resp = sign*res;
  return c;
}

@@ -2753,6 +2753,9 @@
           {
             c = scm_getc (port);
             c = read_decimal_integer (port, c, &len);
+              if (len < 0)
+                scm_i_input_error (NULL, port,
+                            "array length must be non-negative", SCM_EOL);
             s = scm_list_2 (s, scm_from_ssize_t (lbnd+len-1));
           }