diff options
author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2014-01-18 05:10:08 +0100 |
---|---|---|
committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2014-01-18 05:10:08 +0100 |
commit | 1839c4042013ae2a4002e228ca2ee8bf295190d3 (patch) | |
tree | 034571f890163591618dcbe2cf64569b57c29465 | |
parent | f9b2ed86077a79718b083e49f752cf01457e1459 (diff) | |
download | geiser-guile-1839c4042013ae2a4002e228ca2ee8bf295190d3.tar.gz geiser-guile-1839c4042013ae2a4002e228ca2ee8bf295190d3.tar.bz2 |
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.
-rw-r--r-- | scheme/racket/geiser/enter.rkt | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/scheme/racket/geiser/enter.rkt b/scheme/racket/geiser/enter.rkt index 3f70f2e..1d24a2b 100644 --- a/scheme/racket/geiser/enter.rkt +++ b/scheme/racket/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)))) |