From c74cd6cc12b495a8f4142bffbfe5634090f050f4 Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Thu, 23 Jul 2015 10:10:47 +0300 Subject: emacs: Move guile related code to "guix-guile.el". * emacs/guix-backend.el (guix-make-guile-expression): Move to... * emacs/guix-guile.el: ... here. New file. * emacs/guix-base.el: Use it. * emacs/guix-command.el: Use it. * emacs.am (ELFILES): Add it. --- emacs/guix-backend.el | 18 ------------------ 1 file changed, 18 deletions(-) (limited to 'emacs/guix-backend.el') diff --git a/emacs/guix-backend.el b/emacs/guix-backend.el index 7db1daacf0..26e33b3d15 100644 --- a/emacs/guix-backend.el +++ b/emacs/guix-backend.el @@ -305,24 +305,6 @@ additional internal REPL if it exists." (defvar guix-operation-buffer nil "Buffer from which the latest Guix operation was performed.") -(defun guix-make-guile-expression (fun &rest args) - "Return string containing a guile expression for calling FUN with ARGS." - (format "(%S %s)" fun - (mapconcat - (lambda (arg) - (cond - ((null arg) "'()") - ((or (eq arg t) - ;; An ugly hack to separate 'false' from nil - (equal arg 'f) - (keywordp arg)) - (concat "#" (prin1-to-string arg t))) - ((or (symbolp arg) (listp arg)) - (concat "'" (prin1-to-string arg))) - (t (prin1-to-string arg)))) - args - " "))) - (defun guix-eval (str &optional wrap) "Evaluate guile expression STR. If WRAP is non-nil, wrap STR into (begin ...) form. -- cgit v1.2.3