diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-02-02 15:59:25 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-02-02 15:59:25 +0100 |
| commit | a1d4a163464157ad5bb0b82f92a2ebfcc81aacf4 (patch) | |
| tree | a3099885dcedeade6bbb0ac2129fe1290a1f90af | |
| parent | f6c09395b569f273ca27bc951ec5b882f2c3da86 (diff) | |
| download | geiser-chez-a1d4a163464157ad5bb0b82f92a2ebfcc81aacf4.tar.gz geiser-chez-a1d4a163464157ad5bb0b82f92a2ebfcc81aacf4.tar.bz2 | |
PLT: Fix for bug retrieving module exports.
| -rw-r--r-- | scheme/plt/geiser/modules.ss | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scheme/plt/geiser/modules.ss b/scheme/plt/geiser/modules.ss index 3d6314d..eb5357f 100644 --- a/scheme/plt/geiser/modules.ss +++ b/scheme/plt/geiser/modules.ss @@ -1,6 +1,6 @@ ;;; modules.ss -- module metadata -;; Copyright (C) 2009 Jose Antonio Ortega Ruiz +;; Copyright (C) 2009, 2010 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 @@ -26,7 +26,7 @@ ((not (string? spec)) #f) (else `(file ,spec)))) -(define (module-spec->namespace spec lang) +(define (module-spec->namespace spec (lang #f)) (let* ((spec (ensure-module-spec spec)) (try-lang (lambda (e) (if (symbol? lang) |