;; -*-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 and running OK

(define-proper-program (tests test727)

  (import (standard-library core)
	  (standard-library list-utilities)
	  (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)")))
     (raise (make-rte-exception 'my-exception
				(list (cons 'str-info "HEP")))))))
