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

* keywords.c (scm_tc16_kw): Added for backward compatibility.

Browse source 
Will be removed in next release.
This commit is contained in:
Mikael Djurfeldt 1999-03-22 11:58:59 +00:00
parent f2327aef58
commit b27aca0a9e
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/keywords.c
View file

@ -74,6 +74,10 @@ prin_keyword (exp, port, pstate)
int scm_tc16_keyword; int scm_tc16_keyword;
/* This global is only kept for backward compatibility.
Will be removed in next release. */
int scm_tc16_kw;
static scm_smobfuns keyword_smob = static scm_smobfuns keyword_smob =
{scm_markcdr, free_keyword, prin_keyword, 0}; {scm_markcdr, free_keyword, prin_keyword, 0};
@ -140,6 +144,7 @@ void
scm_init_keywords () scm_init_keywords ()
{ {
scm_tc16_keyword = scm_newsmob (&keyword_smob); scm_tc16_keyword = scm_newsmob (&keyword_smob);
scm_tc16_kw = scm_tc16_keyword;
scm_keyword_obarray = scm_make_vector (SCM_MAKINUM (256), SCM_EOL); scm_keyword_obarray = scm_make_vector (SCM_MAKINUM (256), SCM_EOL);
#include "keywords.x" #include "keywords.x"
} }