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

* keywords.c (scm_tc16_kw): Removed deprecated type.

Browse source 
(Replaced by scm_tc16_keyword.)
This commit is contained in:
Mikael Djurfeldt 2000-06-12 11:59:24 +00:00
parent 6b29d2ff00
commit e8677eca92
1 changed files with 1 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

17
libguile/keywords.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996,1997,1998, 1999 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1997,1998, 1999, 2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by
@ -66,15 +66,6 @@ prin_keyword (SCM exp,SCM port,scm_print_state *pstate)
int scm_tc16_keyword; int scm_tc16_keyword;
#if (SCM_DEBUG_DEPRECATED == 0)
/* This global is only kept for backward compatibility.
Will be removed in next release. */
int scm_tc16_kw;
#endif /* SCM_DEBUG_DEPRECATED == 0 */
SCM_DEFINE (scm_make_keyword_from_dash_symbol, "make-keyword-from-dash-symbol", 1, 0, 0, SCM_DEFINE (scm_make_keyword_from_dash_symbol, "make-keyword-from-dash-symbol", 1, 0, 0,
(SCM symbol), (SCM symbol),
"Return a keyword object from SYMBOL that starts with `-' (a dash).") "Return a keyword object from SYMBOL that starts with `-' (a dash).")
@ -142,12 +133,6 @@ scm_init_keywords ()
scm_tc16_keyword = scm_make_smob_type_mfpe ("keyword", 0, scm_tc16_keyword = scm_make_smob_type_mfpe ("keyword", 0,
scm_markcdr, NULL, prin_keyword, NULL); scm_markcdr, NULL, prin_keyword, NULL);
#if (SCM_DEBUG_DEPRECATED == 0)
scm_tc16_kw = scm_tc16_keyword;
#endif /* SCM_DEBUG_DEPRECATED == 0 */
scm_keyword_obarray = scm_make_vector (SCM_MAKINUM (256), SCM_EOL); scm_keyword_obarray = scm_make_vector (SCM_MAKINUM (256), SCM_EOL);
#include "libguile/keywords.x" #include "libguile/keywords.x"
} }