[Commit] nickle/builtin toplevel.c,1.15,1.16

[Keith Packard]

Committed by: keithp

Update of /local/src/CVS/nickle/builtin
In directory home.keithp.com:/tmp/cvs-serv1145/builtin

Modified Files:
	toplevel.c 
Log Message:
Dim function returns logical rather than actual array sizes

Index: toplevel.c
===================================================================
RCS file: /local/src/CVS/nickle/builtin/toplevel.c,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- toplevel.c	11 Apr 2003 23:48:55 -0000	1.15
+++ toplevel.c	29 Jun 2003 22:31:22 -0000	1.16
@@ -304,7 +304,7 @@
 				2, NewInt (0), av);
 	RETURN (Void);
     }
-    ret = NewInt(ArrayDims(&av->array)[0]);
+    ret = NewInt(ArrayLimits(&av->array)[0]);
     RETURN (ret);
 }
 
@@ -317,7 +317,7 @@
 
     ret = NewArray(True, typePrim[rep_int], 1, &av->array.ndim);
     for (i = 0; i < av->array.ndim; i++) {
-      Value d = NewInt(ArrayDims(&av->array)[i]);
+      Value d = NewInt(ArrayLimits(&av->array)[i]);
       BoxValueSet(ret->array.values, i, d);
     }
     RETURN (ret);