summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2014-01-18 05:10:08 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2014-01-18 05:10:08 +0100
commit1839c4042013ae2a4002e228ca2ee8bf295190d3 (patch)
tree034571f890163591618dcbe2cf64569b57c29465
parentf9b2ed86077a79718b083e49f752cf01457e1459 (diff)
downloadgeiser-chez-1839c4042013ae2a4002e228ca2ee8bf295190d3.tar.gz
geiser-chez-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.rkt8
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))))