with-snippet-dirs: correct use of `unwind-protect`

diff --git a/yasnippet-tests.el b/yasnippet-tests.el
index 64742945bd96d48f9b5e05458485ba6f076be892..969eb066c94ce9bab145c5ffb39e2a2518bd3fa7 100755 (executable)
--- a/yasnippet-tests.el
+++ b/yasnippet-tests.el
@@ -204,13 +204,14 @@ TODO: correct this bug!"
      ,@body))\r
 \r
 (defmacro with-snippet-dirs (dirs &rest 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
+  `(let ((default-directory (make-temp-file "yasnippet-fixture" t)))\r
+     (unwind-protect\r
+         (progn       \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
 \r
 ;;; Older emacsen\r
 ;;;\r