From 0a752b2b318ede2bc53c26610b7af7979f99954a Mon Sep 17 00:00:00 2001
From: BT Templeton <bt@hcoop.net>
Date: Sat, 20 Jul 2013 17:35:16 -0400
Subject: [PATCH] eval-scheme command

* src/fns.c (Feval_scheme): New function.
---
 src/fns.c | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/src/fns.c b/src/fns.c
index 015fc8cbf5..01c1f436ba 100644
--- 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);
 }
 
+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);
+}
+
 void
 init_fns_once (void)
 {
-- 
2.20.1