From a1d4a163464157ad5bb0b82f92a2ebfcc81aacf4 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Tue, 2 Feb 2010 15:59:25 +0100 Subject: PLT: Fix for bug retrieving module exports. --- scheme/plt/geiser/modules.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'scheme/plt') 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) -- cgit v1.2.3