Skip to content

Commit

Permalink
nit(core): rename a parameter
Browse files Browse the repository at this point in the history
  • Loading branch information
abougouffa committed Apr 17, 2023
1 parent ded8596 commit 4dd3285
Show file tree
Hide file tree
Showing 2 changed files with 8 additions and 8 deletions.
4 changes: 2 additions & 2 deletions core/me-loaddefs.el
Original file line number Diff line number Diff line change
Expand Up @@ -478,13 +478,13 @@ Reset VAR to its standard value.
(autoload '+unquote "../elisp/+primitives" "\
Return EXP unquoted.
(fn EXP)")
(fn EXPR)")
(function-put '+unquote 'pure 't)
(function-put '+unquote 'side-effect-free 't)
(autoload '+quoted "../elisp/+primitives" "\
Retrun t when EXP is quoted.
(fn EXP)")
(fn EXPR)")
(autoload '+apply-partially-right "../elisp/+primitives" "\
Like `apply-partially', but applies the ARGS to the right of FUN.
Expand Down
12 changes: 6 additions & 6 deletions elisp/+primitives.el
Original file line number Diff line number Diff line change
Expand Up @@ -154,17 +154,17 @@ Return the deserialized object, or nil if the SYM.el file dont exist."

;; Adapted from `evil-unquote', takes functions into account
;;;###autoload
(defun +unquote (exp)
(defun +unquote (expr)
"Return EXP unquoted."
(declare (pure t) (side-effect-free t))
(while (memq (car-safe exp) '(quote function))
(setq exp (cadr exp)))
exp)
(while (memq (car-safe expr) '(quote function))
(setq expr (cadr expr)))
expr)

;;;###autoload
(defun +quoted (exp)
(defun +quoted (expr)
"Retrun t when EXP is quoted."
(memq (car-safe exp) '(quote function)))
(memq (car-safe expr) '(quote function)))

;;;###autoload
(defun +apply-partially-right (fun &rest args)
Expand Down

0 comments on commit 4dd3285

Please sign in to comment.