Use existing atom escape code

compiler-core/src/codegen.rs

···
     Result,
 };
 use ecow::EcoString;
+use erlang::escape_atom_string;
 use itertools::Itertools;
 use std::fmt::Debug;
 
···
             .chain(native_modules)
             .unique()
             .sorted()
-            .map(|m| Self::format_atom(&m))
+            .map(|m| escape_atom_string((&m).clone().into()))
             .join(",\n               ");
 
         // TODO: When precompiling for production (i.e. as a precompiled hex
···
         );
 
         writer.write(&path, &text)
-    }
-
-    fn format_atom(s: &EcoString) -> EcoString {
-        let mut chars = s.chars();
-
-        let Some(first) = chars.next() else {
-            return "''".into();
-        };
-
-        let needs_escape = |c: char| !(c.is_alphanumeric() || c == '_' || c == '@');
-
-        if !first.is_ascii_lowercase() || chars.any(needs_escape) {
-            format!("'{}'", s).into()
-        } else {
-            s.clone()
-        }
     }
 }
 

compiler-core/src/erlang.rs

···
     }
 }
 
-fn escape_atom_string(value: String) -> EcoString {
+pub fn escape_atom_string(value: String) -> EcoString {
     if is_erlang_reserved_word(&value) {
         // Escape because of keyword collision
         eco_format!("'{value}'")

test/external_only_erlang/test.sh

···
   exit 1
 fi
 
-echo Running erlang shippment should succeed
+echo Running erlang shipment should succeed
 g export erlang-shipment
 grep "external_only_erlang_ffi" "build/erlang-shipment/external_only_erlang/ebin/external_only_erlang.app"