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

*** empty log message ***

Browse source
This commit is contained in:
Mikael Djurfeldt 1996-10-14 20:29:16 +00:00
parent 4cdee789b7
commit 2dfc85c018
5 changed files with 38 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
ice-9/ChangeLog
View file

@ -1,3 +1,10 @@
Mon Oct 14 22:20:30 1996 Mikael Djurfeldt <mdj@woody.nada.kth.se>
* boot-9.scm (error-catching-loop, signal-handler,
handle-system-error): Backtracing now works for signals aswell;
Backtracing mechanism can now identify the stack root created by
start-stack so that the user isn't exposed to system stack frames.
Mon Oct 14 06:05:42 1996 Mikael Djurfeldt <mdj@woody.nada.kth.se>
* Makefile.in: Added threads.scm.

29
libguile/ChangeLog
View file

@ -1,3 +1,32 @@
Mon Oct 14 17:07:55 1996 Mikael Djurfeldt <mdj@woody.nada.kth.se>
* init.c (scm_boot_guile_1): Moved scm_init_struct in front of
scm_init_stacks.
* debug.h (SCM_VOIDFRAME, SCM_VOIDFRAMEP): New macros.
(scm_debug_info): New member: id.
* stacks.c: Stacks are now represented as structs; Stacks have an
id given to them by `start-stack'.
(scm_last_stack_frame): Added predicates `stack?' and `frame?'.
* stacks.h: Added declarations of scm_stack_p and scm_frame_p;
Changed stack representation.
* debug.c (scm_procedure_name): Try procedure property `name' for
compiled closures aswell.
* gc.c (scm_init_storage): Initialize scm_stand_in_procs to SCM_EOL.
* eval.c: scm_i_name moved to gsubr.c
(scm_m_define): Record names of all kinds of procedure
objects. (Earlier, only closures were recorded.)
* procprop.h: Added declaration of scm_i_name.
* gsubr.c: Added global scm_i_name. Added #include "procprop.h".
(scm_make_gsubr): Record names of compiled closures.
Mon Oct 14 04:21:51 1996 Mikael Djurfeldt <mdj@woody.nada.kth.se>
* debug.c, debug.h: Removed obsolete code.

1
libguile/eval.h
View file

@ -96,7 +96,6 @@ extern SCM scm_i_else;
extern SCM scm_i_unquote;
extern SCM scm_i_uq_splicing;
extern SCM scm_i_apply;
extern SCM scm_i_name;
/* A resolved global variable reference in the CAR position

2
libguile/print.c
View file

@ -860,7 +860,7 @@ scm_init_print ()
{
SCM vtable, type;
scm_init_opts (scm_print_options, scm_print_opts, SCM_N_PRINT_OPTIONS);
vtable = scm_make_vtable_vtable (scm_make_struct_layout (scm_makfrom0str ("")), SCM_INUM0, SCM_EOL);
vtable = scm_make_vtable_vtable (scm_make_struct_layout (scm_nullstr), SCM_INUM0, SCM_EOL);
type = scm_make_struct (vtable,
SCM_INUM0,
scm_cons (scm_make_struct_layout (scm_makfrom0str (SCM_PRINT_STATE_LAYOUT)),

2
libguile/print.h
View file

@ -67,7 +67,7 @@ extern scm_option scm_print_opts[];
#define SCM_WRITINGP(pstate) ((pstate)->writingp)
#define SCM_SET_WRITINGP(pstate, x) { (pstate)->writingp = (x); }
#define SCM_PRINT_STATE_LAYOUT "sruwuwuwuwpwuwuwuwpW"
#define SCM_PRINT_STATE_LAYOUT "sruwuwuwuwpwuwuwurpW"
typedef struct scm_print_state {
SCM handle; /* Struct handle */
unsigned long writingp; /* Writing? */