remove the-last-stack from boot-9
* module/ice-9/boot-9.scm (false-if-exception): Use syntax-rules. Don't muck with the-last-stack, it is going away. Remove a later comment about the-last-stack.
This commit is contained in:
parent
d8158b837e
commit
27ae3651bd
1 changed files with 6 additions and 9 deletions
|
|
@ -532,13 +532,12 @@ If there is no handler at all, Guile prints an error and then exits."
|
|||
(define (and=> value procedure) (and value (procedure value)))
|
||||
(define call/cc call-with-current-continuation)
|
||||
|
||||
(defmacro false-if-exception (expr)
|
||||
`(catch #t
|
||||
(lambda ()
|
||||
;; avoid saving backtraces inside false-if-exception
|
||||
(with-fluids ((the-last-stack (fluid-ref the-last-stack)))
|
||||
,expr))
|
||||
(lambda args #f)))
|
||||
(define-syntax false-if-exception
|
||||
(syntax-rules ()
|
||||
((_ expr)
|
||||
(catch #t
|
||||
(lambda () expr)
|
||||
(lambda (k . args) #f)))))
|
||||
|
||||
|
||||
|
||||
|
|
@ -2687,8 +2686,6 @@ module '(ice-9 q) '(make-q q-length))}."
|
|||
(fluid-set! *repl-level* #f)
|
||||
(restore-signals))
|
||||
|
||||
;;(define the-last-stack (make-fluid)) Defined by scm_init_backtrace ()
|
||||
|
||||
(define (quit . args)
|
||||
(apply throw 'quit args))
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue