From 8cb76f1c5887d51fb96750f6dd97b8381f783fe6 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Mon, 2 Mar 2009 03:13:59 +0100 Subject: Breakdown of schemeland into neat submodules. --- geiser/xref.scm | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 geiser/xref.scm (limited to 'geiser/xref.scm') diff --git a/geiser/xref.scm b/geiser/xref.scm new file mode 100644 index 0000000..2cd4d80 --- /dev/null +++ b/geiser/xref.scm @@ -0,0 +1,37 @@ +;; xref.scm -- cross-referencing utilities + +;; Copyright (C) 2009 Jose Antonio Ortega Ruiz + +;; Author: Jose Antonio Ortega Ruiz +;; Start date: Mon Mar 02, 2009 02:37 + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 3 of the License, or +;; (at your option) any later version. + +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +;;; Comentary: + +;; Procedures to locate symbols and their xrefs. + +;;; Code: + +(define-module (geiser xref) + #:export (symbol-location + generic-methods) + #:use-module (geiser utils) + #:use-module (geiser modules)) + +(define (symbol-location sym) + (cond ((symbol-module sym) => module-location) + (else '()))) + +;;; xref.scm ends here -- cgit v1.2.3