mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 23:50:19 +02:00
Code Activity

Some GOOPS cleanup.

Browse source
This commit is contained in:
Keisuke Nishida 2000-12-16 20:25:08 +00:00
parent b8d3f9a8ee
commit 398d8ee17e
5 changed files with 363 additions and 325 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/objects.c
View file

@ -83,8 +83,10 @@ SCM *scm_smob_class = 0;
SCM scm_no_applicable_method;
/* This function is used for efficient type dispatch. */
SCM
scm_class_of (SCM x)
SCM_DEFINE (scm_class_of, "class-of", 1, 0, 0,
(SCM x),
"")
#define FUNC_NAME s_scm_class_of
{
switch (SCM_ITAG3 (x))
{
@ -213,6 +215,7 @@ scm_class_of (SCM x)
}
return scm_class_unknown;
}
#undef FUNC_NAME
/* (SCM_IM_DISPATCH ARGS N-SPECIALIZED
* #((TYPE1 ... ENV FORMALS FORM ...) ...)