terminfo: make macos the odd terminfo-relative-path

mrjbq7 · Nov 14, 2024 · 232698b · 232698b
1 parent c7a24e7
commit 232698b
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/extra/terminfo/terminfo.factor b/extra/terminfo/terminfo.factor
@@ -132,14 +132,12 @@ PRIVATE>
 
 HOOK: terminfo-relative-path os ( name -- path )
 
-M: windows terminfo-relative-path drop f ;
+M: object terminfo-relative-path
+    [ first ] keep "%c/%s" sprintf ;
 
 M: macos terminfo-relative-path
     [ first >hex ] keep "%s/%s" sprintf ;
 
-M: linux terminfo-relative-path
-    [ first ] keep "%c/%s" sprintf ;
-
 : terminfo-path ( name -- path )
     terminfo-relative-path terminfo-dirs [ swap append-path ] with map
     [ file-exists? ] find nip ;