eval-scheme command

* src/fns.c (Feval_scheme): New function.

diff --git a/src/fns.c b/src/fns.c
index 015fc8c..01c1f43 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -4489,6 +4489,19 @@ If BINARY is non-nil, returns a string in binary form.  */)
   return secure_hash (algorithm, object, start, end, Qnil, Qnil, binary);
 }
 \f
+DEFUN ("eval-scheme", Feval_scheme, Seval_scheme, 1, 1,
+       "sEval Scheme: ",
+       doc: /* Evaluate a string containing a Scheme expression.  */)
+  (Lisp_Object string)
+{
+  Lisp_Object tem;
+
+  CHECK_STRING (string);
+
+  tem = scm_c_eval_string (SSDATA (string));
+  return (INTERACTIVE ? Fprin1 (tem, Qt) : tem);
+}
+\f
 void
 init_fns_once (void)
 {