summaryrefslogtreecommitdiff
path: root/libguile/deprecated.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2015-01-04 13:43:14 -0500
committerAndy Wingo <wingo@pobox.com>2015-01-23 16:16:00 +0100
commit28b818d3038363fa76abd345925e08233d23a824 (patch)
tree843848cd76da5f5f31be0a3569c512bb1a14d83a /libguile/deprecated.c
parent51fd1cd650755f60e21ed54957348c171a3648a5 (diff)
downloadguile-28b818d3038363fa76abd345925e08233d23a824.tar.gz
Deprecate scm_basic_make_class
* libguile/deprecated.h: * libguile/deprecated.c (scm_basic_make_class): Deprecate. * libguile/goops.c: * libguile/goops.h (scm_make_standard_class): New internal helper. It's a better spelling, as it matches make-standard-class, and is internal so as not to cause confusion between boot GOOPS helpers and "real" GOOPS interfaces.
Diffstat (limited to 'libguile/deprecated.c')
-rw-r--r--libguile/deprecated.c13
1 files changed, 12 insertions, 1 deletions
diff --git a/libguile/deprecated.c b/libguile/deprecated.c
index 8989d301d..5f4b5c78b 100644
--- a/libguile/deprecated.c
+++ b/libguile/deprecated.c
@@ -2,7 +2,7 @@
deprecate something, move it here when that is feasible.
*/
-/* Copyright (C) 2003, 2004, 2006, 2008, 2009, 2010, 2011, 2012, 2013, 2014 Free Software Foundation, Inc.
+/* Copyright (C) 2003, 2004, 2006, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
@@ -319,6 +319,17 @@ scm_find_method (SCM l)
}
#undef FUNC_NAME
+SCM
+scm_basic_make_class (SCM meta, SCM name, SCM dsupers, SCM dslots)
+{
+ scm_c_issue_deprecation_warning
+ ("scm_basic_make_class is deprecated. Use `define-class' in Scheme,"
+ "or use `(make META #:name NAME #:dsupers DSUPERS #:slots DSLOTS)' "
+ "in Scheme.");
+
+ return scm_make_standard_class (meta, name, dsupers, dslots);
+}
+