diff options
| author | Andy Wingo <wingo@pobox.com> | 2015-01-13 21:59:03 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2015-01-23 16:16:02 +0100 |
| commit | cb3ea03dd1f89af9c82b220882a5e8c4fbe7dc3e (patch) | |
| tree | 2a70917fcb20c3ba76fba013af1547da1f62630f | |
| parent | 9c49d475f548270314c88cc643615b35c612f49b (diff) | |
| download | guile-cb3ea03dd1f89af9c82b220882a5e8c4fbe7dc3e.tar.gz | |
scm_make cleanup
* libguile/goops.c (scm_make): Remove SCM_DEFINE around scm_make; the
real definition is in Scheme.
| -rw-r--r-- | libguile/goops.c | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/libguile/goops.c b/libguile/goops.c index f829695c3..f2ca98194 100644 --- a/libguile/goops.c +++ b/libguile/goops.c @@ -799,15 +799,11 @@ scm_wta_dispatch_n (SCM gf, SCM args, int pos, const char *subr) -SCM_DEFINE (scm_make, "make", 0, 0, 1, - (SCM args), - "Make a new object. @var{args} must contain the class and\n" - "all necessary initialization information.") -#define FUNC_NAME s_scm_make +SCM +scm_make (SCM args) { return scm_apply_0 (scm_variable_ref (var_make), args); } -#undef FUNC_NAME |