From b7d09aeebc74c5d806c1e1308ccdd84bca3c06cc Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Mon, 14 Jun 2010 00:32:08 +0200 Subject: Dead code elimination. --- elisp/geiser-r6rs.el | 50 -------------------------------------------------- 1 file changed, 50 deletions(-) delete mode 100644 elisp/geiser-r6rs.el 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 . - -;; 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 - -- cgit v1.2.3