[nongnu] elpa/geiser-racket 279714a 157/191: Racket: fix for recompilation of typed/racket modules

[Philip Kaludercic]

branch: elpa/geiser-racket
commit 279714a5fd766e12ba2750e12790ebe9812abcc6
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Racket: fix for recompilation of typed/racket modules
    
    When using our current-load/used-compiled function, we were compiling
    the syntax of a module using compile, which seems to not honour
    
    With luck, this should address bug #14 for real.
---
 geiser/enter.rkt | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/geiser/enter.rkt b/geiser/enter.rkt
index 3f70f2e..1d24a2b 100644
--- a/geiser/enter.rkt
+++ b/geiser/enter.rkt
@@ -1,6 +1,6 @@
 ;;; enter.rkt -- custom module loaders
 
-;; Copyright (C) 2010, 2012, 2013 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2010, 2012, 2013, 2014 Jose Antonio Ortega Ruiz
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the Modified BSD License. You should
@@ -33,9 +33,7 @@
       (resolved-module-path-name rp))))
 
 (define (visit-module mod)
-  (parameterize ([current-load/use-compiled
-                  (make-loader (current-load/use-compiled) #f)])
-    (dynamic-require mod #f))
+  (dynamic-require mod #f)
   (check-latest mod))
 
 (define (module-loader orig)
@@ -94,7 +92,7 @@
                    "compiled"
                    (lambda (e)
                      (parameterize ([compile-enforce-module-constants #f])
-                       (compile e)))
+                       (compile-syntax e)))
                    (lambda (ext loader?) (load-extension ext) #f)
                    #:notify (lambda (chosen) (notify re? chosen))))