mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

* snarf.h (SCM_SYNTAX): New macro to allow convenient declaration of

Browse source 
syntactic forms, similar to SCM_PROC.
* debug.c, eval.c, evalext.c: use SCM_SYNTAX to declare all special
forms, and SCM_SYMBOL or SCM_GLOBAL_SYMBOL to delcare C variables for
the name symbols when needed.
This commit is contained in:
Maciej Stachowiak 1998-12-14 15:19:59 +00:00
parent 257665b528
commit b8229a3bab
5 changed files with 104 additions and 79 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/debug.c
View file

@ -550,7 +550,8 @@ scm_start_stack (id, exp, env)
return answer;
}
static char s_start_stack[] = "start-stack";
SCM_SYNTAX(s_start_stack, "start-stack", scm_makacro, scm_m_start_stack);
static SCM
scm_m_start_stack (exp, env)
SCM exp;
@ -648,8 +649,6 @@ scm_init_debug ()
scm_i_args = SCM_CAR (scm_sysintern ("args", SCM_UNDEFINED));
scm_i_eval_args = SCM_CAR (scm_sysintern ("eval-args", SCM_UNDEFINED));
scm_make_synt (s_start_stack, scm_makacro, scm_m_start_stack);
#ifdef GUILE_DEBUG
scm_sysintern ("SCM_IM_AND", SCM_IM_AND);
scm_sysintern ("SCM_IM_BEGIN", SCM_IM_BEGIN);