scheme/mit/geiser/compile.scm


1
2
3
4
5
6
7
8
9

(declare (usual-integrations))

(load-option 'CREF)

(with-working-directory-pathname
    (directory-pathname (current-load-pathname))
  (lambda ()
    (cf "emacs")
    (cref/generate-constructors "geiser" 'ALL)))