(declare (standard-bindings) (extended-bindings) (block) (not safe))

(define-meroon-macro (FLOAT . rest)
  `(let ()
     (declare (flonum))
     ,@rest))

(define-meroon-macro (FIX . rest)
  `(let ()
     (declare (fixnum))
     ,@rest))

(include "utilities.scm")
(include "random.scm")
(include "sort.scm")
(include "linear-algebra.scm")
(include "sparse-linear-algebra.scm")
(include "points.scm")
(include "geometry.scm")
(include "geometry-code.scm")
(include "linear-elements.scm")
(include "linear-elements-code.scm")
(include "problem-descriptions.scm")
(include "conjugate-gradient.scm")
(include "intergrid.scm")
(include "multigrid.scm")
(include "obstacle.scm")
(include "parabolic.scm")
(include "mmoc.scm")
(include "polygon.scm")