summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1996-10-14 20:29:16 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1996-10-14 20:29:16 +0000
commit2dfc85c018817322c19faa36457ad23fa98fcc89 (patch)
tree6423aba5d7f19462ad5491495dd65799ddb0be68
parent4cdee789b7bd4777243d7e7fb1a32c5e00e1e377 (diff)
downloadguile-2dfc85c018817322c19faa36457ad23fa98fcc89.tar.gz
*** empty log message ***
-rw-r--r--ice-9/ChangeLog7
-rw-r--r--libguile/ChangeLog29
-rw-r--r--libguile/eval.h1
-rw-r--r--libguile/print.c2
-rw-r--r--libguile/print.h2
5 files changed, 38 insertions, 3 deletions
diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 4b7e0b91f..c6057934d 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -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.
diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index f0a19462e..032aaee17 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -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.
diff --git a/libguile/eval.h b/libguile/eval.h
index 8ea32b430..1a4864191 100644
--- a/libguile/eval.h
+++ b/libguile/eval.h
@@ -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
diff --git a/libguile/print.c b/libguile/print.c
index 73b2b9ee2..fc7e6aa14 100644
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -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)),
diff --git a/libguile/print.h b/libguile/print.h
index 495e37d50..483d31386 100644
--- a/libguile/print.h
+++ b/libguile/print.h
@@ -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? */