[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Bug in system/repl/error-handling.scm ?

From: Matt Wette
Subject: Bug in system/repl/error-handling.scm ?
Date: Mon, 20 Feb 2017 06:40:29 -0800

This code looks wrong to me: 3rd arg to catch is not a procedure.  Am I missing something?  It starts at line 113 in system/repl/error-handling.scm, guile-2.0.13:

    (catch #t
      (lambda () 
        (with-default-trap-handler le-trap-handler
          (lambda () (%start-stack #t thunk))))

      (case post-error
         (lambda (key . args)
           (if (memq key pass-keys)
               (apply throw key args)
                   (lambda ()
                     (run-hook before-error-hook)
                     (print-exception err #f key args)
                     (run-hook after-error-hook)
                     (force-output err)))
                 (if #f #f)))))
       . . .

reply via email to

[Prev in Thread] Current Thread [Next in Thread]