;; -*-theme-d-*-

;; Copyright (C) 2018  Tommi Höynälänmaa
;; Distributed under GNU General Public License version 3,
;; see file doc/GPL-3.

;; Expected results: translation error

(define-proper-program (tests test731)

  (import (standard-library core)
	  (standard-library console-io))

  (define-simple-proc main (() <none> nonpure)
    (guard-general-without-result exc
      (match-type exc
	((exc1 <condition>)
	 (if (rte-exception? exc1)
	     (begin
	       (console-display "info: ")
	       (console-display-line
		(cast <string>
		      (gen-cdr (assoc 'str-info
				      (cast <rte-exception-info>
					    (get-rte-exception-info exc1))
				      null)))))
	     (console-display-line "Unknown exception (1)")))
	(else
	 (console-display-line "Unknown exception (2)")))
      null
      (raise (make-rte-exception 'my-exception
				 (list (cons 'str-info "HEP")))))))
