diff options
Diffstat (limited to 'emacs/.emacs.d/wpc/scope.el')
| -rw-r--r-- | emacs/.emacs.d/wpc/scope.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/emacs/.emacs.d/wpc/scope.el b/emacs/.emacs.d/wpc/scope.el index 48aa85ad0e5d..14924e33ff55 100644 --- a/emacs/.emacs.d/wpc/scope.el +++ b/emacs/.emacs.d/wpc/scope.el @@ -37,7 +37,7 @@ The newest bindings eclipse the oldest." (defun scope/push-new (xs) "Push a new, empty scope onto XS." - (struct/update scope + (struct-update scope scopes (>> (stack/push (alist/new))) xs)) @@ -65,7 +65,7 @@ The newest bindings eclipse the oldest." (defun scope/set (k v xs) "Set value, V, at key, K, in XS for the current scope." - (struct/update scope + (struct-update scope scopes (>> (stack/map-top (>> (alist/set k v)))) xs)) |