Commit e2ef9a4c authored by Kevin Cozens's avatar Kevin Cozens Committed by Kevin Cozens

Use more descriptive message when display a result which returns an array

2006-10-13  Kevin Cozens  <kcozens@cvs.gnome.org>

	* tinyscheme/scheme.c: Use more descriptive message when display a
	result which returns an array instead of using the form #<ARRAYn>.
parent 049bda12
2006-10-13 Kevin Cozens <kcozens@cvs.gnome.org>
* tinyscheme/scheme.c: Use more descriptive message when display a
result which returns an array instead of using the form #<ARRAYn>.
2006-10-12 Kevin Cozens <kcozens@cvs.gnome.org>
* scripts/gimp-labels.scm: Missed closing quotes in previous update.
......
......@@ -1980,7 +1980,24 @@ static void atom2str(scheme *sc, pointer l, int f, char **pp, int *plen) {
}
} else if (is_array(l)) {
p = sc->strbuff;
sprintf(p, "#<ARRAY%d>", arraytype(l));
switch (arraytype(l))
{
case 0:
strcpy(p, "#<INT32ARRAY>");
break;
case 1:
strcpy(p, "#<INT16ARRAY>");
break;
case 2:
strcpy(p, "#<INT8ARRAY>");
break;
case 3:
strcpy(p, "#<FLOATARRAY>");
break;
case 4:
strcpy(p, "#<STRINGARRAY>");
break;
}
} else if (is_character(l)) {
gunichar c=charvalue(l);
p = sc->strbuff;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment