[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/ice-9 ChangeLog boot-9.scm
From: |
Mikael Djurfeldt |
Subject: |
guile/guile-core/ice-9 ChangeLog boot-9.scm |
Date: |
Mon, 26 Feb 2001 19:19:36 -0800 |
CVSROOT: /cvs
Module name: guile
Changes by: Mikael Djurfeldt <address@hidden> 01/02/26 19:19:36
Modified files:
guile-core/ice-9: ChangeLog boot-9.scm
Log message:
* boot-9.scm (save-stack): Use `primitive-eval' for stack
cutting. Makes backtraces work again! Also added a reference to
save-stack from the place in the repl where the primitive-eval
frame is invoked.
CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/ice-9/ChangeLog.diff?r1=1.374&r2=1.375
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/ice-9/boot-9.scm.diff?r1=1.226&r2=1.227
Patches:
Index: guile/guile-core/ice-9/ChangeLog
diff -u guile/guile-core/ice-9/ChangeLog:1.374
guile/guile-core/ice-9/ChangeLog:1.375
--- guile/guile-core/ice-9/ChangeLog:1.374 Sun Feb 25 10:31:57 2001
+++ guile/guile-core/ice-9/ChangeLog Mon Feb 26 19:19:36 2001
@@ -1,3 +1,10 @@
+2001-02-26 Mikael Djurfeldt <address@hidden>
+
+ * boot-9.scm (save-stack): Use `primitive-eval' for stack
+ cutting. Makes backtraces work again! Also added a reference to
+ save-stack from the place in the repl where the primitive-eval
+ frame is invoked.
+
2001-02-25 Keisuke Nishida <address@hidden>
* match.scm: New file, including Andrew K. Wright's pattern matcher.
Index: guile/guile-core/ice-9/boot-9.scm
diff -u guile/guile-core/ice-9/boot-9.scm:1.226
guile/guile-core/ice-9/boot-9.scm:1.227
--- guile/guile-core/ice-9/boot-9.scm:1.226 Wed Feb 21 12:11:44 2001
+++ guile/guile-core/ice-9/boot-9.scm Mon Feb 26 19:19:36 2001
@@ -1,6 +1,6 @@
;;; installed-scm-file
-;;;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000 Free Software
Foundation, Inc.
+;;;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001 Free Software
Foundation, Inc.
;;;;
;;;; This program is free software; you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by
@@ -2259,7 +2259,7 @@
the-last-stack
(case (stack-id #t)
((repl-stack)
- (apply make-stack #t save-stack eval #t 0 narrowing))
+ (apply make-stack #t save-stack primitive-eval #t 0 narrowing))
((load-stack)
(apply make-stack #t save-stack 0 #t 0 narrowing))
((tk-stack)
@@ -2403,6 +2403,11 @@
(-eval (lambda (sourc)
(repl-report-start-timing)
(start-stack 'repl-stack
+ ;; If you change this procedure
+ ;; (primitive-eval), please also
+ ;; modify the repl-stack case in
+ ;; save-stack so that stack cutting
+ ;; continues to work.
(primitive-eval sourc))))
(-print (let ((maybe-print (lambda (result)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/ice-9 ChangeLog boot-9.scm,
Mikael Djurfeldt <=