summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2015-02-09 04:14:49 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2015-02-09 06:03:12 +0100
commit3dd68414304fede65cb3f0c7951d813bb7b0f792 (patch)
tree8943b3bccd79b30615d85c2ad9a53ccf3cbc144a /elisp
parent383585e44e56be0e690ad96895f73abf8454d3be (diff)
downloadgeiser-guile-3dd68414304fede65cb3f0c7951d813bb7b0f792.tar.gz
geiser-guile-3dd68414304fede65cb3f0c7951d813bb7b0f792.tar.bz2
Documentation updates and nits for Freija
Preparing the release of 0.7, which will feature support for Chicken thanks to Dan and Freija!
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-base.el4
-rw-r--r--elisp/geiser-chicken.el18
-rw-r--r--elisp/geiser-impl.el2
-rw-r--r--elisp/geiser.el2
4 files changed, 14 insertions, 12 deletions
diff --git a/elisp/geiser-base.el b/elisp/geiser-base.el
index e564b0f..034e595 100644
--- a/elisp/geiser-base.el
+++ b/elisp/geiser-base.el
@@ -1,6 +1,6 @@
;;; geiser-base.el --- shared bits
-;; Copyright (C) 2009, 2010, 2012, 2013 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010, 2012, 2013, 2015 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
@@ -14,6 +14,8 @@
;;; Emacs compatibility:
+(require 'ring)
+
(eval-after-load "ring"
'(when (not (fboundp 'ring-member))
(defun ring-member (ring item)
diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el
index 8abdec3..a797e07 100644
--- a/elisp/geiser-chicken.el
+++ b/elisp/geiser-chicken.el
@@ -1,6 +1,6 @@
;; geiser-chicken.el -- chicken's implementation of the geiser protocols
-;; Copyright (C) 2014 Daniel Leslie
+;; Copyright (C) 2014, 2015 Daniel Leslie
;; Based on geiser-guile.el by Jose Antonio Ortego Ruize
@@ -31,11 +31,11 @@
'("and-let*" "assume" "compiler-typecase" "cond-expand" "condition-case"
"cut" "cute" "declare" "define-constant" "define-inline" "define-interface"
"define-record" "define-record-type" "define-specialization"
- "define-syntax-rule" "define-type" "define-values" "dotimes" "ecase"
- "fluid-let" "foreign-lambda" "foreign-lambda*" "foreign-primitive"
+ "define-syntax-rule" "define-type" "define-values" "dotimes" "ecase"
+ "fluid-let" "foreign-lambda" "foreign-lambda*" "foreign-primitive"
"foreign-safe-lambda" "foreign-safe-lambda*" "functor" "handle-exceptions"
- "import" "let*-values" "let-location" "let-optionals" "let-optionals*"
- "let-values" "letrec*" "letrec-values" "match-letrec" "module"
+ "import" "let*-values" "let-location" "let-optionals" "let-optionals*"
+ "let-values" "letrec*" "letrec-values" "match-letrec" "module"
"parameterize" "regex-case" "require-extension" "select" "set!"
"unless" "use" "when" "with-input-from-pipe" "match" "match-lambda"
"match-lambda*" "match-let" "match-let*" "receive"))
@@ -117,9 +117,9 @@ This function uses `geiser-chicken-init-file' if it exists."
(format ",geiser-eval %s %s" (or (car args) "#f") form)))
((load-file compile-file)
(format ",geiser-load-file %s" (car args)))
- ((no-values)
+ ((no-values)
",geiser-no-values")
- (t
+ (t
(let ((form (mapconcat 'identity args " ")))
(format "(geiser-%s %s)" proc form))))))
;;(message fmt)
@@ -249,7 +249,7 @@ This function uses `geiser-chicken-init-file' if it exists."
(defconst geiser-chicken-minimum-version "4.8.0.0")
(defun geiser-chicken--version (binary)
- (shell-command-to-string (format "%s -e \"(display (chicken-version))\""
+ (shell-command-to-string (format "%s -e \"(display (chicken-version))\""
binary)))
(defun connect-to-chicken ()
@@ -260,7 +260,7 @@ This function uses `geiser-chicken-init-file' if it exists."
(defun geiser-chicken--startup (remote)
(compilation-setup t)
(let ((geiser-log-verbose-p t))
- (geiser-eval--send/wait (format "(load \"%s\")\n"
+ (geiser-eval--send/wait (format "(load \"%s\")\n"
(expand-file-name "chicken/geiser/emacs.scm" geiser-scheme-dir)))))
;;; Implementation definition:
diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el
index d2b440a..3679483 100644
--- a/elisp/geiser-impl.el
+++ b/elisp/geiser-impl.el
@@ -1,6 +1,6 @@
;; geiser-impl.el -- generic support for scheme implementations
-;; Copyright (C) 2009, 2010, 2012, 2013 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010, 2012, 2013, 2015 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
diff --git a/elisp/geiser.el b/elisp/geiser.el
index fb5b46a..530358c 100644
--- a/elisp/geiser.el
+++ b/elisp/geiser.el
@@ -1,6 +1,6 @@
;;; geiser.el --- GNU Emacs and Scheme talk to each other
-;; Copyright (C) 2009, 2010, 2011, 2012, 2013 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010, 2011, 2012, 2013, 2015 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