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

has-shown-debugger-hint? to scm-style-repl

Browse source 
* module/ice-9/boot-9.scm:
* module/ice-9/scm-style-repl.scm (has-shown-debugger-hint?): Move to
  scm-style-repl.
This commit is contained in:
Andy Wingo 2010-06-18 12:54:22 +02:00
parent 8942e7a1d7
commit 352b99c43d
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/ice-9/boot-9.scm
View file

@ -2711,8 +2711,6 @@ module '(ice-9 q) '(make-q q-length))}."
narrowing))) narrowing)))
(set! stack-saved? #t)))) (set! stack-saved? #t))))
(define has-shown-debugger-hint? #f)
(define (handle-system-error key . args) (define (handle-system-error key . args)
(let ((cep (current-error-port))) (let ((cep (current-error-port)))
(cond ((not (stack? (fluid-ref the-last-stack)))) (cond ((not (stack? (fluid-ref the-last-stack))))

2
module/ice-9/scm-style-repl.scm
View file

@ -66,6 +66,8 @@
(define has-shown-debugger-hint? #f)
(define (error-catching-loop thunk) (define (error-catching-loop thunk)
(let ((status #f) (let ((status #f)
(interactive #t)) (interactive #t))