diff options
| author | Sean Allred <code@seanallred.com> | 2014-11-01 14:06:57 -0400 |
|---|---|---|
| committer | Sean Allred <code@seanallred.com> | 2014-11-01 14:06:57 -0400 |
| commit | 8831556b94b9d2f5f80b14103947add2b562f5f9 (patch) | |
| tree | 5eb001fcf4ade22f70e166ad967de55dcdeedc4f /stack-core.el | |
| parent | 4b91b49fc84bc1721bc1d97a8519d725e4e3a11e (diff) | |
Fix syntax issue
Diffstat (limited to 'stack-core.el')
| -rw-r--r-- | stack-core.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/stack-core.el b/stack-core.el index be385c3..ef0dc9f 100644 --- a/stack-core.el +++ b/stack-core.el @@ -220,8 +220,11 @@ entire response as a complex alist." nil (mapcar (lambda (cons-cell) (when (member (car cons-cell) desired-tree) - (if (sequencep (cdr cons-cell)) - (stack-core-filter-data )) + (if (and (sequencep (cdr cons-cell)) + (sequencep (elt (cdr cons-cell) 0))) + (stack-core-filter-data + (cdr cons-cell) + (cdr (assoc (car cons-cell) desired-tree)))) cons-cell)) data)))) |