convert `utop-perform' to more idiomatic quotation based macro

Ignore-this: 2729a0e0375729f93301f73701b272

darcs-hash:20120303144223-33bd9-95a371ecc3b7b953e0f0e4bb7317e7d79fa30791
This commit is contained in:
wojciech.meyer 2012-03-03 15:42:23 +01:00
parent f91647a254
commit 01263d3532
1 changed files with 3 additions and 1 deletions
src/top

View File

@ -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."