mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 08:20:20 +02:00
Code Activity

* debugger.scm ("evaluate"): Newline after no env announcement.

Browse source
This commit is contained in:
Mikael Djurfeldt 1999-09-12 14:55:44 +00:00
parent 30772a346b
commit c129a9b4cd
1 changed files with 9 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

19
ice-9/debugger.scm
View file

@ -543,7 +543,7 @@ however it may be continued over multiple lines."
(let ((source (frame-source (stack-ref (state-stack state)
(state-index state)))))
(if (not source)
(display "No environment for this frame.")
(display "No environment for this frame.\n")
(catch 'continue
(lambda ()
(lazy-catch #t
@ -571,17 +571,16 @@ If the number of frames aren't explicitly given, the debug option
;;(write-state-short* stack index))
;;
;; Use builtin backtrace instead:
(let ((start (if (memq 'backwards (debug-options))
start
(- end 1)))
(port (current-output-port)))
(if n-frames
(display-backtrace stack port start (abs n-frames))
(display-backtrace stack port start)))
(display-backtrace stack
(current-output-port)
(if (memq 'backwards (debug-options))
start
(- end 1))
(- end start))
)))
(let ((end (stack-length stack)))
(cond ((or (not n-frames) (>= (abs n-frames) end))
(values 0 end))
(cond ((not n-frames) ;(>= (abs n-frames) end))
(values 0 (min end (cadr (memq 'depth (debug-options))))))
((>= n-frames 0)
(values 0 n-frames))
(else