[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser-chez e0e651c29d: little simplifications
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/geiser-chez e0e651c29d: little simplifications |
Date: |
Fri, 14 Oct 2022 22:58:55 -0400 (EDT) |
branch: elpa/geiser-chez
commit e0e651c29daa86fefe5125c6d5256cc0bdbcc03d
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>
little simplifications
---
geiser-chez.el | 7 +------
src/geiser/geiser.ss | 5 ++---
2 files changed, 3 insertions(+), 9 deletions(-)
diff --git a/geiser-chez.el b/geiser-chez.el
index d9ad5eb217..7443461b1c 100644
--- a/geiser-chez.el
+++ b/geiser-chez.el
@@ -136,12 +136,7 @@ Return its local name."
(defun geiser-chez--geiser-procedure (proc &rest args)
"Transform PROC in string for a scheme procedure using ARGS."
(cl-case proc
- ((eval compile)
- (let ((form (mapconcat 'identity (cdr args) " "))
- (module (cond ((string-equal "'()" (car args)) "'()")
- ((car args) (concat "'" (car args)))
- (t "#f"))))
- (format "(geiser:eval %s '%s)" module form)))
+ ((eval compile) (format "(geiser:eval '%s '%s)" (car args) (cadr args)))
((load-file compile-file) (format "(geiser:load-file %s)" (car args)))
((no-values) "(geiser:no-values)")
(t (let ((form (mapconcat 'identity args " ")))
diff --git a/src/geiser/geiser.ss b/src/geiser/geiser.ss
index ba5d616be1..e508ce26db 100644
--- a/src/geiser/geiser.ss
+++ b/src/geiser/geiser.ss
@@ -239,9 +239,8 @@
`(("file" . ,(with-extension obj (car exts)))))
(else (loop (cdr exts)))))))
- (define (geiser:no-values) #f)
-
- (define (geiser:newline) #f)
+ (define geiser:no-values void)
+ (define geiser:newline newline)
(define (geiser:macroexpand form . rest)
(with-output-to-string
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/geiser-chez e0e651c29d: little simplifications,
ELPA Syncer <=