                   (geiser-impl--read-impl nil nil t))))
     (require (geiser-impl--impl-feature impl))
     (setq geiser-impl--implementation impl)
-    (geiser-impl--install-eval impl)
+    (geiser-impl--install-vars impl)
     (geiser-impl--register impl)))
 
 (defsubst geiser-impl--sym (imp name)

(defsubst geiser-impl--symbol-begin (impl)
  (geiser-impl--sym impl "symbol-begin"))

(defun geiser-impl--install-eval (impl)
  (setq geiser-eval--get-module-function
        (geiser-impl--module-function impl))
  (setq geiser-eval--geiser-procedure-function


;;; Initialization:

(mapc (lambda (impl)
        (require (geiser-impl--impl-feature impl) nil t))
      geiser-impl-installed-implementations)


