mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

* __scm.h, chars.c, debug.c, eval.c, eval.h, extchrs.c, extchrs.h,

Browse source 
fdsocket.c, feature.c, mbstrings.c, mbstrings.h, numbers.c,
numbers.h, print.c, scmhob.h, simpos.h, symbols.c, symbols.h,
tags.h, throw.c, variable.h: Name cleanup.  Lots of xxxSCM_yyy
removed.  (These were introduced by unsupervised name
substitution.)
This commit is contained in:
Mikael Djurfeldt 1996-09-13 13:31:50 +00:00
parent e2806c1000
commit 08b5b88cdf
9 changed files with 28 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/throw.c
View file

@ -71,9 +71,9 @@ SCM scm_bad_throw_vcell;
#define JBJMPBUF(O) ((jmp_buf*)SCM_CDR (O) )
#define SETJBJMPBUF SCM_SETCDR
#else
#define JBSCM_DFRAME(O) ((scm_debug_frame*)SCM_CAR (SCM_CDR (O)) )
#define SCM_JBDFRAME(O) ((scm_debug_frame*)SCM_CAR (SCM_CDR (O)) )
#define JBJMPBUF(O) ((jmp_buf*)SCM_CDR (SCM_CDR (O)) )
#define SETJBSCM_DFRAME(O,X) SCM_CAR(SCM_CDR (O)) = (SCM)(X)
#define SCM_SETJBDFRAME(O,X) SCM_CAR(SCM_CDR (O)) = (SCM)(X)
#define SETJBJMPBUF(O,X) SCM_SETCDR(SCM_CDR (O), X)
#ifdef __STDC__
@ -174,7 +174,7 @@ scm_catch (tag, thunk, handler)
scm_dynwinds = scm_acons (tag, jmpbuf, scm_dynwinds);
SETJBJMPBUF(jmpbuf, &jbr.buf);
#ifdef DEBUG_EXTENSIONS
SETJBSCM_DFRAME(jmpbuf, last_debug_info_frame);
SCM_SETJBDFRAME(jmpbuf, last_debug_info_frame);
#endif
if (setjmp (jbr.buf))
{
@ -287,7 +287,7 @@ scm_ithrow (key, args, noreturn)
}
scm_dowinds (wind_goal, scm_ilength (scm_dynwinds) - scm_ilength (wind_goal));
#ifdef DEBUG_EXTENSIONS
last_debug_info_frame = JBSCM_DFRAME (jmpbuf);
last_debug_info_frame = SCM_JBDFRAME (jmpbuf);
#endif
longjmp (*JBJMPBUF (jmpbuf), 1);
}