From d402ed3f41790abb9861af9dbe47166295cd66b1 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Tue, 8 Jun 2010 01:42:04 +0200
Subject: Racket: autodoc for struct constructors

---
 scheme/racket/geiser/enter.rkt | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'scheme/racket/geiser/enter.rkt')

diff --git a/scheme/racket/geiser/enter.rkt b/scheme/racket/geiser/enter.rkt
index 58be936..181c06a 100644
--- a/scheme/racket/geiser/enter.rkt
+++ b/scheme/racket/geiser/enter.rkt
@@ -16,7 +16,7 @@
 
 (provide get-namespace enter-module module-loader module-loaded?)
 
-(define-struct mod (name timestamp depends))
+(struct mod (name timestamp depends))
 
 (define loaded (make-hash))
 
@@ -60,14 +60,14 @@
                                          (or (current-load-relative-directory)
                                              (current-directory)))))])
         ;; Record module timestamp and dependencies:
-        (let ([mod (make-mod name
-                             (get-timestamp path)
-                             (if code
-                                 (apply append
-                                        (map cdr
-                                             (module-compiled-imports code)))
-                                 null))])
-          (hash-set! loaded path mod))
+        (let ([m (mod name
+                      (get-timestamp path)
+                      (if code
+                          (apply append
+                                 (map cdr
+                                      (module-compiled-imports code)))
+                          null))])
+          (hash-set! loaded path m))
         ;; Evaluate the module:
         (eval code))
       ;; Not a module:
-- 
cgit v1.2.3