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

(scm_i_tag_to_prototype): Make sure that "instead" gets defined.

Browse source 
(scm_array_prototype): Deprecated.
This commit is contained in:
Marius Vollmer 2004-11-02 22:45:22 +00:00
parent 34dedee007
commit 72d05aa477
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/unif.c
View file

@ -2399,6 +2399,9 @@ scm_i_tag_to_prototype (const char *tag, SCM port)
break;
case 'c':
proto = scm_c_make_rectangular (0.0, 1.0);
instead = "c64";
break;
default:
instead = "???";
break;
}
@ -2635,6 +2638,8 @@ SCM_DEFINE (scm_array_creator, "array-creator", 1, 0, 0,
}
#undef FUNC_NAME
#if SCM_ENABLE_DEPRECATED
SCM_DEFINE (scm_array_prototype, "array-prototype", 1, 0, 0,
(SCM ra),
"Return an object that would produce an array of the same type\n"
@ -2675,6 +2680,7 @@ loop:
}
#undef FUNC_NAME
#endif
static SCM
array_mark (SCM ptr)