diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-11-02 22:45:22 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-11-02 22:45:22 +0000 |
commit | 72d05aa477c7852bd5cbe13cb7bfdea3d5fecc36 (patch) | |
tree | e2eaa9ad5b70545053e27748ac23425462a0a190 /libguile/unif.c | |
parent | 34dedee007ebce9b664abd75b39471334704148b (diff) | |
download | guile-72d05aa477c7852bd5cbe13cb7bfdea3d5fecc36.tar.gz |
(scm_i_tag_to_prototype): Make sure that "instead" gets defined.
(scm_array_prototype): Deprecated.
Diffstat (limited to 'libguile/unif.c')
-rw-r--r-- | libguile/unif.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/libguile/unif.c b/libguile/unif.c index 522cec43f..c74469145 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -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) |