From 75a9a156a0fab425ccc6821d38d7d20d0c2aba31 Mon Sep 17 00:00:00 2001 From: William Carroll Date: Tue, 1 Sep 2020 16:26:39 +0100 Subject: Redefine >> macro as >-> in >.el I created a strangely named Elisp module, >.el, just to appease the CI gods. My gut tells me that this is a desperate idea and fails the smell test. I'm pretty eager to pass the linting phase of my Elisp CI, however, and I can always revert this. --- emacs/.emacs.d/wpc/scope.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'emacs/.emacs.d/wpc/scope.el') diff --git a/emacs/.emacs.d/wpc/scope.el b/emacs/.emacs.d/wpc/scope.el index c97a59b88bd6..e8a2ad2ecc8d 100644 --- a/emacs/.emacs.d/wpc/scope.el +++ b/emacs/.emacs.d/wpc/scope.el @@ -20,7 +20,7 @@ (require 'alist) (require 'stack) (require 'struct) -(require 'macros) +(require '>) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Create @@ -47,7 +47,7 @@ The newest bindings eclipse the oldest." "Push a new, empty scope onto XS." (struct-update scope scopes - (>> (stack-push (alist-new))) + (>-> (stack-push (alist-new))) xs)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -75,7 +75,7 @@ The newest bindings eclipse the oldest." "Set value, V, at key, K, in XS for the current scope." (struct-update scope scopes - (>> (stack-map-top (>> (alist-set k v)))) + (>-> (stack-map-top (>-> (alist-set k v)))) xs)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -- cgit 1.4.1