(require-extension simple-exceptions)
(import (chicken foreign))

(define-external (test)
  void
  24)

(print (location test))

;; Error: (location) assertion failed: (exception? exn)
;;
;; 	Call history:
;;
;; 	example.scm:1: chicken.load#load-extension	  
;; 	example.scm:8: simple-exceptions#location	  	<--