summaryrefslogtreecommitdiff
path: root/libguile/eval.h
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1997-09-10 20:05:28 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1997-09-10 20:05:28 +0000
commit7332df664494f9a206b2460524f95e8dffe240a4 (patch)
tree86d87b07daa396ccd0425aacfe25cbc2031a49e5 /libguile/eval.h
parent87688f5f1282080e4fff755c4ba544f19ed418fb (diff)
downloadguile-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.h5
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));