guile/guile-core/ice-9 ChangeLog boot-9.scm

[Mikael Djurfeldt]

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)