From b6117df5d3122e429196be3996def8f51c08583e Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Thu, 15 Oct 2009 22:03:52 +0200
Subject: PLT: autodoc: support for languages specified as libs and/or module
 forms.

---
 elisp/geiser-plt.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'elisp')

diff --git a/elisp/geiser-plt.el b/elisp/geiser-plt.el
index 01e10a2..9fcd3f5 100644
--- a/elisp/geiser-plt.el
+++ b/elisp/geiser-plt.el
@@ -70,8 +70,9 @@ This function uses `geiser-plt-init-file' if it exists."
 (defun geiser-plt--language ()
   (save-excursion
     (goto-char (point-min))
-    (if (re-search-forward "^#lang +\\([^ ]+?\\) *$" nil t)
-        (intern (match-string-no-properties 1))
+    (if (re-search-forward
+         "^\\(?:#lang\\|(module +[^ ]+?\\) +\\([^ ]+?\\|([^)]+)\\) *$" nil t)
+        (car (read-from-string (match-string-no-properties 1)))
       :f)))
 
 (defun geiser-plt--geiser-procedure (proc)
-- 
cgit v1.2.3