with-snippet-dirs: use UNWIND-PROTECT

diff --git a/yasnippet-tests.el b/yasnippet-tests.el
index a537b7feb1007213b964cff7e7825d853b626a6c..64742945bd96d48f9b5e05458485ba6f076be892 100755 (executable)
--- a/yasnippet-tests.el
+++ b/yasnippet-tests.el
@@ -204,12 +204,13 @@ TODO: correct this bug!"
      ,@body))\r
 \r
 (defmacro with-snippet-dirs (dirs &rest body)\r
-  `(let ((default-directory (make-temp-file "yasnippet-fixture" t)))\r
-     (setq yas/snippet-dirs ',(mapcar #'car (cadr dirs)))\r
-     (mapc #'yas/make-file-or-dirs ,dirs)\r
-     ,@body\r
+  `(unwind-protect\r
+       (let ((default-directory (make-temp-file "yasnippet-fixture" t)))\r
+         (setq yas/snippet-dirs ',(mapcar #'car (cadr dirs)))\r
+         (mapc #'yas/make-file-or-dirs ,dirs)\r
+         ,@body)\r
      (when (>= emacs-major-version 23)\r
-         (delete-directory default-directory 'recursive))))\r
+       (delete-directory default-directory 'recursive))))\r
 \r
 ;;; Older emacsen\r
 ;;;\r