diff options
author | William Carroll <wpcarro@gmail.com> | 2020-08-31T22·28+0100 |
---|---|---|
committer | William Carroll <wpcarro@gmail.com> | 2020-08-31T22·33+0100 |
commit | a638e15c0dd14a25e6f032b08de5ee1575677497 (patch) | |
tree | 3c4bdda33fc80a52242c7016c11be4e981d7d2ac /emacs/.emacs.d/wpc/stack.el | |
parent | 158f810981fa0a77de76f0f7e07b60482a9ba10e (diff) |
Lint string, macros.el
More of the same type of linting... basically preferring `namespace-` instead of `namespace/`.
Diffstat (limited to 'emacs/.emacs.d/wpc/stack.el')
-rw-r--r-- | emacs/.emacs.d/wpc/stack.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/emacs/.emacs.d/wpc/stack.el b/emacs/.emacs.d/wpc/stack.el index 052ed881d20f..c7d9cbefe441 100644 --- a/emacs/.emacs.d/wpc/stack.el +++ b/emacs/.emacs.d/wpc/stack.el @@ -1,5 +1,9 @@ ;;; stack.el --- Working with stacks in Elisp -*- lexical-binding: t -*- + ;; Author: William Carroll <wpcarro@gmail.com> +;; Version: 0.0.1 +;; URL: https://git.wpcarro.dev/wpcarro/briefcase +;; Package-Requires: ((emacs "25.1")) ;;; Commentary: ;; A stack is a LIFO queue. @@ -46,7 +50,7 @@ (defun stack/push (x xs) "Push `X' on `XS'." - (struct/update stack + (struct-update stack xs (>> (list/cons x)) xs)) @@ -57,7 +61,7 @@ "Return the stack, `XS', without the top element. Since I cannot figure out a nice way of return tuples in Elisp, if you want to look at the first element, use `stack/peek' before running `stack/pop'." - (struct/update stack + (struct-update stack xs (>> list/tail) xs)) |