mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-31 09:20:23 +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) (let ((source (frame-source (stack-ref (state-stack state)
(state-index state))))) (state-index state)))))
(if (not source) (if (not source)
(display "No environment for this frame.") (display "No environment for this frame.\n")
(catch 'continue (catch 'continue
(lambda () (lambda ()
(lazy-catch #t (lazy-catch #t
@ -571,17 +571,16 @@ If the number of frames aren't explicitly given, the debug option
;;(write-state-short* stack index)) ;;(write-state-short* stack index))
;; ;;
;; Use builtin backtrace instead: ;; Use builtin backtrace instead:
(let ((start (if (memq 'backwards (debug-options)) (display-backtrace stack
start (current-output-port)
(- end 1))) (if (memq 'backwards (debug-options))
(port (current-output-port))) start
(if n-frames (- end 1))
(display-backtrace stack port start (abs n-frames)) (- end start))
(display-backtrace stack port start)))
))) )))
(let ((end (stack-length stack))) (let ((end (stack-length stack)))
(cond ((or (not n-frames) (>= (abs n-frames) end)) (cond ((not n-frames) ;(>= (abs n-frames) end))
(values 0 end)) (values 0 (min end (cadr (memq 'depth (debug-options))))))
((>= n-frames 0) ((>= n-frames 0)
(values 0 n-frames)) (values 0 n-frames))
(else (else