mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-08 22:50:27 +02:00
Code Activity

* ramap.c (scm_ramapc): Typo in error message.

Browse source
This commit is contained in:
Mikael Djurfeldt 2003-01-09 15:21:33 +00:00
parent 2f413bc4bd
commit 9cf5d9b7d2
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ChangeLog
View file

@ -1,3 +1,7 @@
2003-01-09 Mikael Djurfeldt <djurfeldt@nada.kth.se>
* ramap.c (scm_ramapc): Typo in error message.
2003-01-08 Mikael Djurfeldt <djurfeldt@nada.kth.se> 2003-01-08 Mikael Djurfeldt <djurfeldt@nada.kth.se>
* goops.c (scm_sys_prep_layout_x): Bugfix: Only create layout for * goops.c (scm_sys_prep_layout_x): Bugfix: Only create layout for

2
libguile/ramap.c
View file

@ -323,7 +323,7 @@ scm_ramapc (int (*cproc)(), SCM data, SCM ra0, SCM lra, const char *what)
{ {
default: default:
case 0: case 0:
scm_misc_error (what, "array shape mismatch: ~S", ra0); scm_misc_error (what, "array shape mismatch: ~S", scm_list_1 (ra0));
case 2: case 2:
case 3: case 3:
case 4: /* Try unrolling arrays */ case 4: /* Try unrolling arrays */