search

sasagawa888 / eisl

ISLisp interpreter/compiler
Other
267 stars 22 forks source link

Forms are evaluated after control has left error handler #278

Closed gtnoble closed 1 year ago

gtnoble commented 1 year ago

In this code, "second" should not be printed:

(defun test-error-handler (condition)
  (print "first")
  (continue-condition condition)
  (print "second"))

(with-handler #'test-error-handler
              (cerror "foo" "bar"))
sasagawa888 commented 1 year ago

Fixed.

gtnoble commented 1 year ago

Thank you, Mr Sasagawa!