diff options
| author | Andy Wingo <wingo@pobox.com> | 2014-12-18 12:51:11 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2015-01-23 16:15:59 +0100 |
| commit | c0a56ec78ddf9df65f591104a1d7bbcada099477 (patch) | |
| tree | b005238856dbb5a7951075246bd90daf9073fc04 /libguile/goops.h | |
| parent | 667937533225956b6048b75f4a3c03cdd61584f3 (diff) | |
| download | guile-c0a56ec78ddf9df65f591104a1d7bbcada099477.tar.gz | |
%compute-applicable-methods in Scheme
* libguile/goops.c: Move %compute-applicable-methods to Scheme.
(scm_sys_goops_loaded): No need to initialize
var_compute_applicable_methods.
* libguile/goops.h (scm_sys_compute_applicable_methods): Remove. This
was internal so it shouldn't cause a problem.
* module/oop/goops.scm (%sort-applicable-methods):
(%compute-applicable-methods): New definitions.
Diffstat (limited to 'libguile/goops.h')
| -rw-r--r-- | libguile/goops.h | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/goops.h b/libguile/goops.h index b3071b039..f28bc6352 100644 --- a/libguile/goops.h +++ b/libguile/goops.h @@ -3,7 +3,7 @@ #ifndef SCM_GOOPS_H #define SCM_GOOPS_H -/* Copyright (C) 1998,1999,2000,2001,2002,2003, 2006, 2008, 2009, 2011 Free Software Foundation, Inc. +/* Copyright (C) 1998,1999,2000,2001,2002,2003, 2006, 2008, 2009, 2011, 2014 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 @@ -248,7 +248,6 @@ SCM_API SCM scm_slot_ref (SCM obj, SCM slot_name); SCM_API SCM scm_slot_set_x (SCM obj, SCM slot_name, SCM value); SCM_API SCM scm_compute_applicable_methods (SCM gf, SCM args, long len, int scm_find_method); -SCM_API SCM scm_sys_compute_applicable_methods (SCM gf, SCM args); #ifdef GUILE_DEBUG SCM_API SCM scm_pure_generic_p (SCM obj); #endif |