From cdd90c3af5a1a0fcd206293e8c8cb584b575e4f0 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Mon, 4 May 2009 01:05:33 +0200
Subject: PLT: autodoc (without argument positions).

---
 scheme/plt/geiser/eval.ss | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'scheme/plt/geiser/eval.ss')

diff --git a/scheme/plt/geiser/eval.ss b/scheme/plt/geiser/eval.ss
index 9c6534e..694802a 100644
--- a/scheme/plt/geiser/eval.ss
+++ b/scheme/plt/geiser/eval.ss
@@ -33,7 +33,7 @@
          macroexpand
          make-repl-reader)
 
-(require scheme/enter geiser/utils)
+(require scheme/enter geiser/utils geiser/autodoc)
 
 (define last-result (void))
 (define nowhere (open-output-nowhere))
@@ -85,6 +85,7 @@
 (define (eval-in form spec)
   (set-last-result (void))
   (with-handlers ((exn? set-last-error))
+    (update-module-cache spec form)
     (call-with-values
         (lambda () (eval form (ensure-namespace spec)))
       set-last-result))
@@ -95,6 +96,7 @@
 (define (load-file file)
   (with-handlers ((exn? set-last-error))
     (let ((current-path (namespace->module-path-name (last-namespace))))
+      (update-module-cache file)
       (set-last-result
        (string-append (with-output-to-string
                         (lambda ()
-- 
cgit v1.2.3