summaryrefslogtreecommitdiff
path: root/libguile/unif.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-11-02 22:45:22 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-11-02 22:45:22 +0000
commit72d05aa477c7852bd5cbe13cb7bfdea3d5fecc36 (patch)
treee2eaa9ad5b70545053e27748ac23425462a0a190 /libguile/unif.c
parent34dedee007ebce9b664abd75b39471334704148b (diff)
downloadguile-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.c6
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)