HomeAboutCodePastes

Paste on 2021-01-29T01:10:47

#!/usr/bin/chicken-scheme
;; AUTOCOMPILE: -O3

;; (import termbox
;;         (only chicken.condition handle-exceptions))

(module main ()
  (import scheme
          termbox
          (only chicken.base
                void
                alist-ref)
          (only chicken.condition
                handle-exceptions
                current-exception-handler))
  ;; (let ((handler (current-exception-handler)))
  ;;   (current-exception-handler (lambda (c)
  ;;                                (termbox-shutdown)
  ;;                                (handler))))
  (termbox-init)
  )

plain