From f8a454f3efa10d59b8228b5c1373bfc9fb8ed718 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sat, 5 Oct 2019 15:05:07 +0200 Subject: [PATCH] clean-up commented code --- lisp/emacs-lisp/comp.el | 7 ------- 1 file changed, 7 deletions(-) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 25e5be28519..2822760c895 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -494,13 +494,6 @@ Restore the original value afterwards." (setf (comp-block-sp bb) sp)) (puthash name (apply #'make--comp-block args) blocks)))) -;; (defun comp-opt-call (inst) -;; "Optimize if possible a side-effect-free call in INST." -;; (cl-destructuring-bind (_ f &rest args) inst -;; (when (and (member f comp-mostly-pure-funcs) -;; (cl-every #'identity (mapcar #'comp-mvar-const-vld args))) -;; (apply f (mapcar #'comp-mvar-constant args))))) - (defun comp-call (func &rest args) "Emit a call for function FUNC with ARGS." (comp-add-subr-to-relocs func) -- 2.39.5