~ chicken-core (chicken-5) /tests/module-static-eval-compiled.scm

 1;;;; test eval in statically compiled code
 2
 3(declare (uses lolevel))
 4
 5(eval '(import (chicken memory representation)))
 6(assert (eval '(= 1 (block-ref #(1) 0))))
 7(module static (foo)
 8  (import scheme (chicken memory representation))
 9  (define (foo x) (block-ref x 0)))
10(eval '(import static))
11(assert (eval '(= 99 (foo #(99)))))