diff options
Diffstat (limited to 'emacs/guix-backend.el')
| -rw-r--r-- | emacs/guix-backend.el | 18 |
1 files changed, 0 insertions, 18 deletions
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. |