From f80a7a6c58539bfdc73a45677fb414e0cae0faef Mon Sep 17 00:00:00 2001
From: Alex Kost <alezost@gmail.com>
Date: Fri, 24 Jul 2015 18:00:54 +0300
Subject: emacs: Add code to call guile procedures.

* emacs/guix-guile.el (guix-guile-make-call-expression): New function.
* emacs/guix-geiser.el: Require 'guix-guile'.
  (guix-geiser-call, guix-geiser-call-in-repl): New functions.
---
 emacs/guix-guile.el | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'emacs/guix-guile.el')

diff --git a/emacs/guix-guile.el b/emacs/guix-guile.el
index af8c7d255a..cff9bd4e9b 100644
--- a/emacs/guix-guile.el
+++ b/emacs/guix-guile.el
@@ -24,6 +24,13 @@
 
 ;;; Code:
 
+(defun guix-guile-make-call-expression (proc &rest args)
+  "Return \"(PROC ARGS ...)\" string.
+PROC and ARGS should be strings."
+  (format "(%s %s)"
+          proc
+          (mapconcat #'identity args " ")))
+
 (defun guix-make-guile-expression (fun &rest args)
   "Return string containing a guile expression for calling FUN with ARGS."
   (format "(%S %s)" fun
-- 
cgit 1.4.1