     (if project
         (let ((settings (apm-project-settings project)))
           (while settings
-            (unwind-protect (eval (car settings)) (setq settings '()))
+            (eval (car settings))
             (setq settings (cdr settings)))))))
 
 (defun apm-compile (command &optional comint)

;; SOFTWARE.

;;; Change Log:
;; 1.0.3 - Fix compilation
;; 1.0.2 - Initializing `apm-projects' via defvar
;; 1.0.1 - Add example of settings

  :keymap apm-mode-map
  :group apm
  (if apm-minor-mode
      (apm-local-apply-settings)
    nil))


(define-key apm-mode-map (kbd "C-c c") 'apm-compile)
