summaryrefslogtreecommitdiff
path: root/scheme
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-02-02 15:59:25 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-02-02 15:59:25 +0100
commita1d4a163464157ad5bb0b82f92a2ebfcc81aacf4 (patch)
treea3099885dcedeade6bbb0ac2129fe1290a1f90af /scheme
parentf6c09395b569f273ca27bc951ec5b882f2c3da86 (diff)
downloadgeiser-guile-a1d4a163464157ad5bb0b82f92a2ebfcc81aacf4.tar.gz
geiser-guile-a1d4a163464157ad5bb0b82f92a2ebfcc81aacf4.tar.bz2
PLT: Fix for bug retrieving module exports.
Diffstat (limited to 'scheme')
-rw-r--r--scheme/plt/geiser/modules.ss4
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)