summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--geiser-chez.el42
1 files changed, 16 insertions, 26 deletions
diff --git a/geiser-chez.el b/geiser-chez.el
index ccaf356..e8f21d3 100644
--- a/geiser-chez.el
+++ b/geiser-chez.el
@@ -12,7 +12,6 @@
;; This package provides support for Chez scheme in geiser.
-
;;; Code:
(require 'geiser)
@@ -32,7 +31,6 @@
(eval-when-compile (require 'cl-lib))
-
;;; Customization:
(defgroup geiser-chez nil
@@ -72,7 +70,8 @@ host."
(define-obsolete-variable-alias 'geiser-chez-debug-on-exception-p
'geiser-chez-debug-on-exception "0.18")
-
+(defconst geiser-chez-minimum-version "9.4")
+
;;; REPL support:
(defun geiser-chez--binary ()
@@ -109,9 +108,7 @@ host."
(list local-file))))
(defun geiser-chez--parameters ()
- "Return a list with all parameters needed to start Chez Scheme.
-
-This function uses `geiser-chez-init-file' if it exists."
+ "Return a list with all parameters needed to start Chez Scheme."
(append (geiser-chez--init-file)
(geiser-chez--module-files)
geiser-chez-extra-command-line-parameters))
@@ -119,7 +116,17 @@ This function uses `geiser-chez-init-file' if it exists."
(defconst geiser-chez--prompt-regexp "> ")
(defconst geiser-chez--debugger-prompt-regexp "debug> $\\|break> $\\|.+: $")
-
+(defun geiser-chez--version (binary)
+ "Use BINARY to find Chez scheme version."
+ (car (process-lines binary "--version")))
+
+(defun geiser-chez--startup (_remote)
+ "Startup function."
+ (let ((geiser-log-verbose-p t))
+ (compilation-setup t)
+ (geiser-eval--send/wait
+ "(begin (import (geiser)) (write `((result ) (output . \"\"))) (newline))")))
+
;;; Evaluation support:
(defun geiser-chez--geiser-procedure (proc &rest args)
@@ -165,23 +172,7 @@ This function uses `geiser-chez-init-file' if it exists."
"Return string representing a REPL exit sexp."
"(exit 0)")
-;;
-;; ;;; REPL startup
-(defconst geiser-chez-minimum-version "9.4")
-
-(defun geiser-chez--version (binary)
- "Use BINARY to find Chez scheme version."
- (car (process-lines binary "--version")))
-
-(defun geiser-chez--startup (_remote)
- "Startup function."
- (let ((geiser-log-verbose-p t))
- (compilation-setup t)
- (geiser-eval--send/wait
- "(begin (import (geiser)) (write `((result ) (output . \"\"))) (newline))")))
-
-
;;; Error display:
(defun geiser-chez--enter-debugger ()
@@ -204,7 +195,6 @@ This function uses `geiser-chez-init-file' if it exists."
(geiser-edit--buttonize-files)
(not (zerop (length msg)))))
-
;;; Keywords and syntax:
(defconst geiser-chez--builtin-keywords
@@ -270,7 +260,6 @@ This function uses `geiser-chez-init-file' if it exists."
(with-output-to-file 1)
(with-output-to-string 0))
-
;;; Implementation definition:
(define-geiser-implementation chez
@@ -310,6 +299,7 @@ This function uses `geiser-chez-init-file' if it exists."
(autoload 'switch-to-chez "geiser-chez"
"Start a Geiser Chez REPL, or switch to a running one." t)
-
+;;; -
(provide 'geiser-chez)
+
;;; geiser-chez.el ends here