diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1997-09-10 20:05:28 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1997-09-10 20:05:28 +0000 |
commit | 7332df664494f9a206b2460524f95e8dffe240a4 (patch) | |
tree | 86d87b07daa396ccd0425aacfe25cbc2031a49e5 /libguile/eval.h | |
parent | 87688f5f1282080e4fff755c4ba544f19ed418fb (diff) | |
download | guile-7332df664494f9a206b2460524f95e8dffe240a4.tar.gz |
* * eval.c (macro?, macro-type, macro-name, macro-transfomer): New
procedures;
(prinmacro): Removed. The code has been moved/merged into print.c
in order to decrease code redundancy. We want macros to print in
a way equivalent to procedures, and it would be silly to duplicate
the required code. (We don't want to maintain two places.)
(macrosmob): Print field is now a NULL pointer.
* eval.h (scm_macro_p, scm_macro_type, scm_macro_name,
scm_macro_transformer): New prototypes.
(scm_tc16_macro): Declared.
* * print.c (scm_iprin1): Added code for printing of macros. Macros
are now printed in a way equivalent to procedures.
Diffstat (limited to 'libguile/eval.h')
-rw-r--r-- | libguile/eval.h | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/libguile/eval.h b/libguile/eval.h index 85ca7c267..2ceed646f 100644 --- a/libguile/eval.h +++ b/libguile/eval.h @@ -97,6 +97,7 @@ extern SCM scm_i_unquote; extern SCM scm_i_uq_splicing; extern SCM scm_i_apply; +extern long scm_tc16_macro; /* A resolved global variable reference in the CAR position * of a list is stored (in code only) as a pointer to a pair with a @@ -152,6 +153,10 @@ extern SCM scm_makprom SCM_P ((SCM code)); extern SCM scm_makacro SCM_P ((SCM code)); extern SCM scm_makmacro SCM_P ((SCM code)); extern SCM scm_makmmacro SCM_P ((SCM code)); +extern SCM scm_macro_p SCM_P ((SCM obj)); +extern SCM scm_macro_type SCM_P ((SCM m)); +extern SCM scm_macro_name SCM_P ((SCM m)); +extern SCM scm_macro_transformer SCM_P ((SCM m)); extern SCM scm_force SCM_P ((SCM x)); extern SCM scm_promise_p SCM_P ((SCM x)); extern SCM scm_copy_tree SCM_P ((SCM obj)); |