1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00

* eval.c (SCM_CEVAL): Mark macro frames at `handle_a_macro' so

that we can identify these in a backtrace.  (This change doesn't
introduce any significant speed penalty.)
* eval.c: Added note about `serial-map' using scm_map.
This commit is contained in:
Mikael Djurfeldt 1998-11-09 14:13:31 +00:00
parent e28748e4f0
commit 368bf056f9

View file

@ -2026,6 +2026,9 @@ dispatch:
unmemocar (x, env);
handle_a_macro:
#ifdef DEVAL
SCM_SET_MACROFRAME (debug);
#endif
t.arg1 = SCM_APPLY (SCM_CDR (proc), x,
scm_cons (env, scm_listofnull));
@ -2990,6 +2993,13 @@ ret:
SCM_PROC (s_map, "map", 2, 0, 1, scm_map);
/* Note: Currently, scm_map applies PROC to the argument list(s)
sequentially, starting with the first element(s). This is used in
evalext.c where the Scheme procedure `serial-map', which guarantees
sequential behaviour, is implemented using scm_map. If the
behaviour changes, we need to update `serial-map'.
*/
SCM
scm_map (proc, arg1, args)
SCM proc;