(define-hostmode poly-chicken-hostmode
  :mode 'scheme-mode)

(define-innermode poly-chicken-c-innermode
  :mode 'c-mode
  :head-matcher "#>"
  :tail-matcher "<#"
  :head-mode 'host
  :tail-mode 'host)

(define-polymode poly-chicken-mode
  :hostmode 'poly-chicken-hostmode
  :innermodes '(poly-chicken-c-innermode))

;; M-x poly-chicken-mode