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

* tags.h (SCM_DOUBLE_CELLP): deprecation expired - removed.

Browse source 
(scm_tc_dblr): deprecation expired - removed.
  (scm_tc_dblc): deprecation expired - removed.
  (scm_tc16_flo): deprecation expired - removed.
  (scm_tc_flo): deprecation expired - removed.
This commit is contained in:
Rob Browning 2001-04-28 17:30:20 +00:00
parent 33cc9ac849
commit 457dc52c41
1 changed files with 0 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/tags.h
View file

@ -290,10 +290,6 @@ typedef long scm_bits_t;
#define SCM_CELLP(x) (((sizeof (scm_cell) - 1) & SCM_UNPACK (x)) == 0) #define SCM_CELLP(x) (((sizeof (scm_cell) - 1) & SCM_UNPACK (x)) == 0)
#define SCM_NCELLP(x) (!SCM_CELLP (x)) #define SCM_NCELLP(x) (!SCM_CELLP (x))
#if (SCM_DEBUG_DEPRECATED == 0)
#define SCM_DOUBLE_CELLP(x) (((2 * sizeof (scm_cell) - 1) & SCM_UNPACK (x)) == 0)
#endif /* SCM_DEBUG_DEPRECATED == 0 */
/* See numbers.h for macros relating to immediate integers. /* See numbers.h for macros relating to immediate integers.
*/ */
@ -546,11 +542,6 @@ extern char *scm_isymnames[]; /* defined in print.c */
#define scm_tc7_msymbol scm_tc7_symbol #define scm_tc7_msymbol scm_tc7_symbol
#define scm_tcs_symbols scm_tc7_symbol #define scm_tcs_symbols scm_tc7_symbol
#define scm_tc16_flo scm_tc16_real
#define scm_tc_flo 0x017fL
#define scm_tc_dblr scm_tc16_real
#define scm_tc_dblc scm_tc16_complex
#endif /* SCM_DEBUG_DEPRECATED == 0 */ #endif /* SCM_DEBUG_DEPRECATED == 0 */
#endif /* SCM_TAGS_H */ #endif /* SCM_TAGS_H */