diff options
| author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-03-22 11:58:59 +0000 |
|---|---|---|
| committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-03-22 11:58:59 +0000 |
| commit | b27aca0a9eb9cf592477c6da46bdbdee82b2cd72 (patch) | |
| tree | 17296132bec7ece356e720b7eeb72803a32eeb2e /libguile/keywords.c | |
| parent | f2327aef5807bc994c4c1b08ba3426a467f304c6 (diff) | |
| download | guile-b27aca0a9eb9cf592477c6da46bdbdee82b2cd72.tar.gz | |
* keywords.c (scm_tc16_kw): Added for backward compatibility.
Will be removed in next release.
Diffstat (limited to 'libguile/keywords.c')
| -rw-r--r-- | libguile/keywords.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/libguile/keywords.c b/libguile/keywords.c index ff8df679b..821624c0d 100644 --- a/libguile/keywords.c +++ b/libguile/keywords.c @@ -74,6 +74,10 @@ prin_keyword (exp, port, pstate) 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 = {scm_markcdr, free_keyword, prin_keyword, 0}; @@ -140,6 +144,7 @@ void scm_init_keywords () { scm_tc16_keyword = scm_newsmob (&keyword_smob); + scm_tc16_kw = scm_tc16_keyword; scm_keyword_obarray = scm_make_vector (SCM_MAKINUM (256), SCM_EOL); #include "keywords.x" } |