From 36572573300eaba9d0adbb63fc55067aa0fe5e0c Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Mon, 9 Sep 2024 17:04:46 -0400
Subject: Improve tool

---
 environment.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'environment.c')

diff --git a/environment.c b/environment.c
index d6c6673c..45207da1 100644
--- a/environment.c
+++ b/environment.c
@@ -287,6 +287,7 @@ env_t *new_compilation_unit(CORD *libname)
             {"from_c_string", "Text$from_str", "func(str:CString)->Text"},
             {"from_codepoint_names", "Text$from_codepoint_names", "func(codepoint_names:[Text])->Text"},
             {"from_codepoints", "Text$from_codepoints", "func(codepoints:[Int32])->Text"},
+            {"from_unsafe_text", "Path$cleanup", "func(text:Text)->Path"},
             {"has", "Text$has", "func(text:Text, pattern:Pattern)->Bool"},
             {"join", "Text$join", "func(glue:Text, pieces:[Text])->Text"},
             {"lines", "Text$lines", "func(text:Text)->[Text]"},
@@ -357,7 +358,8 @@ env_t *new_compilation_unit(CORD *libname)
     set_binding(namespace_env(env, "Path"), "from_unsafe_text",
                 new(binding_t, .type=Type(FunctionType, .args=new(arg_t, .name="text", .type=TEXT_TYPE),
                                           .ret=Type(TextType, .lang="Path", .env=namespace_env(env, "Path"))),
-                    .code="(Path_t)"));
+                    .code="Path$cleanup"));
+
 
     set_binding(namespace_env(env, "Pattern"), "from_unsafe_text",
                 new(binding_t, .type=Type(FunctionType, .args=new(arg_t, .name="text", .type=TEXT_TYPE),
-- 
cgit v1.2.3