From 249bab1c5341d957c69d1258e73898a2281c317f Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 9 Mar 2009 21:26:44 +0100 Subject: @ and @@ as primitive macros * libguile/eval.h: * libguile/eval.c (error_unbound_variable, error_defined_variable): Move these prototypes up earlier. (scm_m_at, scm_m_atat): New functions, provide the @ and @@ functionality. Moved here from defmacros because they are "special", inasmuch as syncase doesn't really understand them in interpreted code. * module/ice-9/boot-9.scm (@, @@): Don't define as defmacros, as defmacros have to actually return source now. --- libguile/eval.h | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'libguile/eval.h') diff --git a/libguile/eval.h b/libguile/eval.h index 333265263..f3ec2e19c 100644 --- a/libguile/eval.h +++ b/libguile/eval.h @@ -94,6 +94,8 @@ SCM_API SCM scm_sym_quasiquote; SCM_API SCM scm_sym_unquote; SCM_API SCM scm_sym_uq_splicing; +SCM_API SCM scm_sym_at; +SCM_API SCM scm_sym_atat; SCM_API SCM scm_sym_atapply; SCM_API SCM scm_sym_atcall_cc; SCM_API SCM scm_sym_at_call_with_values; @@ -131,6 +133,8 @@ SCM_API SCM scm_m_future (SCM xorig, SCM env); SCM_API SCM scm_m_define (SCM x, SCM env); SCM_API SCM scm_m_letrec (SCM xorig, SCM env); SCM_API SCM scm_m_let (SCM xorig, SCM env); +SCM_API SCM scm_m_at (SCM xorig, SCM env); +SCM_API SCM scm_m_atat (SCM xorig, SCM env); SCM_API SCM scm_m_apply (SCM xorig, SCM env); SCM_API SCM scm_m_cont (SCM xorig, SCM env); #if SCM_ENABLE_ELISP -- cgit v1.2.3