diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-06-10 00:04:30 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-06-10 00:04:30 +0200 |
| commit | bba166c3ccb136fa8321ad9acc9cfd48a5fed357 (patch) | |
| tree | 1036aba006c90f0552fbd248fe183c3dd711f5ad /scheme | |
| parent | e742a202a8cdc1cb4712425e69d9335098fb1693 (diff) | |
| download | geiser-guile-bba166c3ccb136fa8321ad9acc9cfd48a5fed357.tar.gz geiser-guile-bba166c3ccb136fa8321ad9acc9cfd48a5fed357.tar.bz2 | |
Nits
Diffstat (limited to 'scheme')
| -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 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)] |