diff options
Diffstat (limited to 'cider-compat.el')
-rw-r--r-- | cider-compat.el | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/cider-compat.el b/cider-compat.el index 4c0f2939..c506cf38 100644 --- a/cider-compat.el +++ b/cider-compat.el @@ -151,14 +151,7 @@ bound and (optionally) used in BODY, and its cadr is a sexp to be evalled to set symbol's value. In the special case you only want to bind a single value, BINDINGS can just be a plain tuple." (declare (indent 1) (debug if-let)) - (list 'if-let bindings (macroexp-progn body)))) - - (unless (fboundp 'string-remove-suffix) - (defsubst string-remove-suffix (suffix string) - "Remove SUFFIX from STRING if present." - (if (string-suffix-p suffix string) - (substring string 0 (- (length string) (length suffix))) - string)))) + (list 'if-let bindings (macroexp-progn body))))) (provide 'cider-compat) ;;; cider-compat.el ends here |