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

remove goops-local %tag-body

Browse source 
* libguile/goops.c (scm_sys_tag_body): Remove goops-local hack that is
  no longer necessary.
This commit is contained in:
Andy Wingo 2009-11-03 22:41:59 +01:00
parent 092d7704be
commit 4d34fbe181
1 changed files with 0 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/goops.c
View file

@ -1166,15 +1166,6 @@ SCM_DEFINE (scm_accessor_method_slot_definition, "accessor-method-slot-definitio
} }
#undef FUNC_NAME #undef FUNC_NAME
SCM_DEFINE (scm_sys_tag_body, "%tag-body", 1, 0, 0,
(SCM body),
"Internal GOOPS magic---don't use this function!")
#define FUNC_NAME s_scm_sys_tag_body
{
return scm_cons (SCM_IM_LAMBDA, body);
}
#undef FUNC_NAME
/****************************************************************************** /******************************************************************************
* *
* S l o t a c c e s s * S l o t a c c e s s