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:
Andy Wingo 2010-06-19 13:35:36 +02:00
commit 27ae3651bd

View file

@ -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))