separate code

lisp/emacs-lisp/comp.el

@@ -121,6 +121,9 @@ LIMPLE basic block.")
   (type nil
         :documentation "When non nil is used for type propagation."))
 
+
+;;; Limplification pass specific code.
+
 (cl-defstruct (comp-limplify (:copier nil))
   "Support structure used during limplification."
   (sp 0 :type 'fixnum
@@ -659,6 +662,9 @@ the annotation emission."
       (cl-prettyprint (comp-func-ir func)))
     func))
 
+
+;;; Entry points.
+
 (defun native-compile (fun)
   "FUN is the function definition to be compiled into native code."
   (if-let ((f (symbol-function fun)))