Racket: not loading errortrace by default

The new submodules and errortrace interact badly, for what i've seen.
In particular, even with the submodule[+*] loading correctly, its
namespace doesn't have all identifiers bound, and new ones seem to
appear in the bindings lists (things like a.1 or b.2, when a and b are
the actual identifiers defined inside the module).

Since moreover someone mentioned in the devel ML that errortrace is in
general terms buggy, i guess we can leave without it for the time
being.

1 files changed, 1 insertions, 4 deletions

diff --git a/scheme/racket/geiser/enter.rkt b/scheme/racket/geiser/enter.rkt
index 0ef9ac5..7416c46 100644
--- a/scheme/racket/geiser/enter.rkt
+++ b/scheme/racket/geiser/enter.rkt
@@ -67,9 +67,7 @@
     (list 'file (or (and m (mod-load-path m)) path-str))))
 
 (define (add-paths! m ps)
-  (let* ([name (mod-name m)]
-         [pm (if (pair? name) (lambda (p) (cons p (cdr name))) (lambda (p) p))])
-    (for-each (lambda (p) (hash-set! loaded (pm p) m)) ps)))
+  (for-each (lambda (p) (hash-set! loaded p m)) ps))
 
 (define (resolve-paths path)
   (define (find root rest)
@@ -99,7 +97,6 @@
                      (parameterize ([compile-enforce-module-constants #f])
                        (compile e)))
                    (lambda (ext loader?) (load-extension ext) #f)
-                   #:submodule-path (if (pair? name) (cdr name) '())
                    #:notify (lambda (chosen) (notify re? chosen))))
 
 (define ((make-loader orig re?) path name)