 	 (args (mymake-args-str prepend replace (mymake-assoc 'cmdline config))))
     (compile (concat
 	      mymake-command " "
-	      (if (endp force)
+	      (if (eq nil force)
 		  args
 		(concat "-f " args))) t)))
 

    (if (file-exists-p file)
	(file-name-as-directory dir)
      (let ((parent (parent-directory dir)))
	(if (endp parent)
	    'nil
	  (mymake-find-config parent))))))


;; Get parent directory or nil if none.
(defun parent-directory (dir)
  (let ((r (file-name-directory (directory-file-name dir))))
    (cond ((eq nil r) 'nil)
	  ((< (length r) (length dir)) r)
	  (t 'nil))))

