summaryrefslogtreecommitdiff
path: root/scheme/racket
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2013-06-10 00:04:30 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2013-06-10 00:04:30 +0200
commitbba166c3ccb136fa8321ad9acc9cfd48a5fed357 (patch)
tree1036aba006c90f0552fbd248fe183c3dd711f5ad /scheme/racket
parente742a202a8cdc1cb4712425e69d9335098fb1693 (diff)
downloadgeiser-chez-bba166c3ccb136fa8321ad9acc9cfd48a5fed357.tar.gz
geiser-chez-bba166c3ccb136fa8321ad9acc9cfd48a5fed357.tar.bz2
Nits
Diffstat (limited to 'scheme/racket')
-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 aadf5af..101b5f4 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 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2010, 2012, 2013 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
@@ -17,7 +17,7 @@
(provide get-namespace enter-module module-loader module-loaded?)
-(struct mod (name load-path timestamp depends))
+(struct mod (name load-path timestamp depends) #:transparent)
(define (make-mod name path ts code)
(let ([deps (if code
@@ -129,8 +129,6 @@
(values -inf.0 path)))
(values -inf.0 path)))))
-(define orig (current-load/use-compiled))
-
(define (check-latest mod)
(define mpi (module-path-index-join mod #f))
(define done (make-hash))
@@ -146,7 +144,7 @@
(when mod
(for-each loop (mod-depends mod))
(define-values (ts actual-path) (get-timestamp npath))
- (when (ts . > . (mod-timestamp mod))
+ (when (> ts (mod-timestamp mod))
(define orig (current-load/use-compiled))
(parameterize ([current-load/use-compiled
(enter-load/use-compiled orig #f)]