From 01263d353247bce16c1c0d35db7dea4903b5ee10 Mon Sep 17 00:00:00 2001
From: "wojciech.meyer" <wojciech.meyer@gmail.com>
Date: Sat, 3 Mar 2012 15:42:23 +0100
Subject: [PATCH] convert `utop-perform' to more idiomatic quotation based
 macro

Ignore-this: 2729a0e0375729f93301f73701b272

darcs-hash:20120303144223-33bd9-95a371ecc3b7b953e0f0e4bb7317e7d79fa30791
---
 src/top/utop.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/top/utop.el b/src/top/utop.el
index 688fc34..0aa075f 100644
--- a/src/top/utop.el
+++ b/src/top/utop.el
@@ -183,7 +183,9 @@ to add the newline character if it is not accepted).")
 
 (defmacro utop-perform (&rest actions)
   "Execute the given actions while checks are inhibited."
-  (list 'let (list (list 'utop-inhibit-check t) (list 'inhibit-read-only t)) (cons 'progn actions)))
+  `(let ((utop-inhibit-check t)
+         (inhibit-read-only t))
+     (progn ,@actions)))
 
 (defun utop-insert (&rest args)
   "Insert text with checks inhibited."