In entry-point: process inline and monomorphize in the same loop

coalton-lang · Jan 21, 2025 · 2727de0 · 2727de0
1 parent 0e27470
commit 2727de0
Showing 1 changed file with 5 additions and 9 deletions.
diff --git a/src/entry.lisp b/src/entry.lisp
@@ -78,21 +78,17 @@
                         :when (parser:toplevel-define-monomorphize define)
                           :do (setf (gethash (parser:node-variable-name (parser:toplevel-define-name define))
                                              monomorphize-table)
-                                    t))
-
-                  (loop :for declare :in (parser:program-declares program)
-                        :when (parser:toplevel-declare-monomorphize declare)
-                          :do (setf (gethash (parser:identifier-src-name (parser:toplevel-declare-name declare))
-                                             monomorphize-table)
-                                    t))
-
-                  (loop :for define :in (parser:program-defines program)
+                                    t)
                         :when (parser:toplevel-define-inline define)
                           :do (setf (gethash (parser:node-variable-name (parser:toplevel-define-name define))
                                              inline-p-table)
                                     t))
 
                   (loop :for declare :in (parser:program-declares program)
+                        :when (parser:toplevel-declare-monomorphize declare)
+                          :do (setf (gethash (parser:identifier-src-name (parser:toplevel-declare-name declare))
+                                             monomorphize-table)
+                                    t)
                         :when (parser:toplevel-declare-inline declare)
                           :do (setf (gethash (parser:identifier-src-name (parser:toplevel-declare-name declare))
                                              inline-p-table)