summaryrefslogtreecommitdiff
path: root/libguile/macros.h
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-01-05 11:05:12 +0100
committerAndy Wingo <wingo@pobox.com>2010-01-05 11:47:16 +0100
commitbab980466108c6c22d2c820213d07b3d1b18c48e (patch)
tree20859c7554369de0711c23733c4da062484eda91 /libguile/macros.h
parent9f09b127d447991bd749235f78516700a20c7dff (diff)
downloadguile-bab980466108c6c22d2c820213d07b3d1b18c48e.tar.gz
remove mmacros, SCM_SYNTAX snarf macro
* libguile/snarf.h (SCM_SYNTAX): Remove snarf macro, users can't define primitive syntax any more. * libguile/memoize.c (SCM_SYNTAX): Define locally, and just call scm_i_makbimacro as there's no difference between that and scm_makmmacro. Alter invocations to suit. * libguile/macros.h: * libguile/macros.c (scm_i_makmmacro): Remove; users can't define primitive syntax any more. Use define-syntax instead. (scm_make_synt): Remove, this was only used by the SCM_SYNTAX snarf macro. (scm_i_makbimacro): Change prototype of this internal function to make the gsubr on behalf of the caller. (macro_print, scm_macro_type): Remove cases for mmacros.
Diffstat (limited to 'libguile/macros.h')
-rw-r--r--libguile/macros.h6
1 files changed, 1 insertions, 5 deletions
diff --git a/libguile/macros.h b/libguile/macros.h
index e2da844bd..38ec2d7d3 100644
--- a/libguile/macros.h
+++ b/libguile/macros.h
@@ -43,8 +43,7 @@
SCM_API scm_t_bits scm_tc16_macro;
-SCM_INTERNAL SCM scm_i_makbimacro (SCM code);
-SCM_API SCM scm_makmmacro (SCM code);
+SCM_INTERNAL SCM scm_i_makbimacro (const char *name, SCM (*fn)(SCM,SCM));
SCM_API SCM scm_make_syncase_macro (SCM type, SCM binding);
SCM_API SCM scm_make_extended_syncase_macro (SCM builtin, SCM type,
SCM binding);
@@ -54,9 +53,6 @@ SCM_API SCM scm_macro_name (SCM m);
SCM_API SCM scm_macro_transformer (SCM m);
SCM_API SCM scm_syncase_macro_type (SCM m);
SCM_API SCM scm_syncase_macro_binding (SCM m);
-SCM_API SCM scm_make_synt (const char *name,
- SCM (*macroizer) (SCM),
- SCM (*fcn) ());
SCM_INTERNAL void scm_init_macros (void);