diff options
| -rw-r--r-- | elisp/geiser-r6rs.el | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/elisp/geiser-r6rs.el b/elisp/geiser-r6rs.el deleted file mode 100644 index 48c33d9..0000000 --- a/elisp/geiser-r6rs.el +++ /dev/null @@ -1,50 +0,0 @@ -;;; geiser-r6rs.el -- Generic support for R6RS implementations - -;; Copyright (C) 2009 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 -;; have received a copy of the license along with this program. If -;; not, see <http://www.xfree86.org/3.3.6/COPYRIGHT2.html#5>. - -;; Start date: Thu Sep 24, 2009 15:06 - - -(require 'geiser-impl) -(require 'geiser-base) - - - -(defun geiser-r6rs--marshall-procedure (proc) - `(eval ,proc '(geiser))) - -(defun geiser-r6rs--find-library (&optional name) - (cond ((null name) - (save-excursion - (while (not (zerop (geiser-syntax--nesting-level))) - (backward-up-list)) - (when (re-search-forward "\\=(library +(" nil t) - (backward-char) - (geiser-syntax--read/list)))) - ((listp name) name) - ((stringp name) - (let ((name (car (geiser-syntax--read-from-string name)))) - (and (listp name) name))))) - -(defun geiser-r6rs--check () - (save-excursion - (goto-char (point-min)) - (re-search-forward "^(library[ \t]" nil t))) - - -;;; Base class for R6RS implementations: - -(geiser-impl--define load-file-name 'r6rs nil - '(marshall-procedure geiser-r6rs--marshall-procedure) - '(find-module geiser-r6rs--find-library) - '(check-buffer geiser-r6rs--check)) - - -(provide 'geiser-r6rs) -;;; geiser-r6rs.el ends here - |