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:
parent
e28748e4f0
commit
368bf056f9
1 changed files with 10 additions and 0 deletions
|
@ -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;
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue