diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2004-04-22 19:19:17 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2004-04-22 19:19:17 +0000 |
commit | 7e6e6b37ba2d5cd289cbe3c52041be4af7b60368 (patch) | |
tree | fa7ae7cb3dc4cc74e49113025670a34fb9efe00a /libguile/eval.h | |
parent | 7aaf475850c8aeabc90f9add69d027a934a577f0 (diff) | |
download | guile-7e6e6b37ba2d5cd289cbe3c52041be4af7b60368.tar.gz |
Hide the implementation of ilocs and isyms in eval.c.
* deprecated.h (SCM_IFRINC, SCM_ICDR, SCM_IFRAME, SCM_IDIST,
SCM_ICDRP), eval.c (SCM_IFRINC, SCM_ICDR, SCM_IFRAME, SCM_IDIST,
SCM_ICDRP), eval.h (SCM_ICDR, SCM_IFRINC, SCM_IFRAME, SCM_IDIST,
SCM_ICDRP): Deprecated and added to deprecated.h. Moved from
eval.h to eval.c.
* deprecated.c (scm_isymnames), deprecated.h (scm_isymnames,
SCM_ISYMNUM, SCM_ISYMCHARS), eval.c (SCM_ISYMNUM, isymnames,
scm_unmemocopy, CEVAL), print.c (scm_isymnames), tags.h
(SCM_ISYMNUM, scm_isymnames, SCM_ISYMCHARS): Deprecated
scm_isymnames, SCM_ISYMNUM and SCM_ISYMCHARS and added to
deprecated.[hc]. Moved scm_isymnames from print.c to eval.c and
renamed to isymnames. Moved SCM_ISYMNUM from tags.h to eval.c and
renamed to ISYMNUM.
* eval.c (scm_i_print_iloc, scm_i_print_isym), eval.h
(scm_i_print_iloc, scm_i_print_isym), print.c (scm_iprin1):
Extracted printing of ilocs and isyms to guile internal functions
scm_i_print_iloc, scm_i_print_isym of eval.c.
Diffstat (limited to 'libguile/eval.h')
-rw-r--r-- | libguile/eval.h | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/libguile/eval.h b/libguile/eval.h index 85fd78380..4269c5a71 100644 --- a/libguile/eval.h +++ b/libguile/eval.h @@ -60,12 +60,6 @@ SCM_API SCM scm_eval_options_interface (SCM setting); * */ #define SCM_ILOCP(n) (SCM_ITAG8(n)==scm_tc8_iloc) -#define SCM_ICDR (0x00080000L) -#define SCM_IFRINC (0x00000100L) -#define SCM_IFRAME(n) ((long)((SCM_ICDR-SCM_IFRINC)>>8) \ - & (SCM_UNPACK (n) >> 8)) -#define SCM_IDIST(n) (SCM_UNPACK (n) >> 20) -#define SCM_ICDRP(n) (SCM_ICDR & SCM_UNPACK (n)) @@ -199,6 +193,8 @@ SCM_API SCM scm_primitive_eval_x (SCM exp); SCM_API SCM scm_eval (SCM exp, SCM module); SCM_API SCM scm_eval_x (SCM exp, SCM module); +SCM_API void scm_i_print_iloc (SCM /*iloc*/, SCM /*port*/); +SCM_API void scm_i_print_isym (SCM /*isym*/, SCM /*port*/); SCM_API void scm_init_eval (void); |