diff options
| author | Sean Allred <code@seanallred.com> | 2014-10-31 00:03:17 -0400 |
|---|---|---|
| committer | Sean Allred <code@seanallred.com> | 2014-10-31 00:03:17 -0400 |
| commit | 4954a18753bc7a9a30097bfc2cb36aca495935a1 (patch) | |
| tree | e37144a06a619b92e5978c92c7d015dc34b3b621 /stack-core.el | |
| parent | ced4479e718d89ea1b7c2b8817132692d55aceab (diff) | |
*Vastly* simplify default arguments function
Diffstat (limited to 'stack-core.el')
| -rw-r--r-- | stack-core.el | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/stack-core.el b/stack-core.el index 93eafda..3dd1fb5 100644 --- a/stack-core.el +++ b/stack-core.el @@ -96,16 +96,8 @@ a string, just return it." (defun stack-core-get-default-keyword-arguments (method) "Gets the correct keyword arguments for METHOD." - (let ((entry - (car - (delq - nil - (mapcar (lambda (pair) - (if (equal method (car pair)) - (cdr pair))) - stack-core-default-keyword-arguments-alist))))) - (if entry entry - (cdr (assoc t stack-core-default-keyword-arguments-alist))))) + (let ((entry (assoc method stack-core-default-keyword-arguments-alist))) + (cdr (or entry (assoc t stack-core-default-keyword-arguments-alist))))) ;;; @todo stack-core-change-default-keyword-arguments ;;; (method new-keyword-arguments) |