summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-14 00:32:08 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-14 00:32:08 +0200
commit85de1f30777b90e79639b170fbc069e79aa608c2 (patch)
tree153afba4b2e3e8c45b05cedf839030ee127a7195 /elisp
parent25ed49cddef2977a6620b3f7ec8a2a8a972ef3f2 (diff)
downloadgeiser-chez-85de1f30777b90e79639b170fbc069e79aa608c2.tar.gz
geiser-chez-85de1f30777b90e79639b170fbc069e79aa608c2.tar.bz2
Dead code elimination.
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-r6rs.el50
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
-