From e0e651c29daa86fefe5125c6d5256cc0bdbcc03d Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 15 Oct 2022 03:33:46 +0100
Subject: 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 d9ad5eb..7443461 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 ba5d616..e508ce2 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
-- 
cgit v1.2.3