]> gitweb.factorcode.org Git - factor.git/commitdiff
terminfo: hex only on macosx.
authorJohn Benediktsson <mrjbq7@gmail.com>
Fri, 26 Apr 2013 14:09:15 +0000 (07:09 -0700)
committerJohn Benediktsson <mrjbq7@gmail.com>
Fri, 26 Apr 2013 14:09:15 +0000 (07:09 -0700)
extra/terminfo/terminfo.factor

index 6ce57f324c2e1738ef981ba500e698b3f2fe1dd4..b5be4a796943ca845d59353eb1f5a260ff0fb3ea 100644 (file)
@@ -4,7 +4,7 @@
 USING: accessors assocs combinators formatting fry grouping
 hashtables io io.binary io.directories io.encodings.binary
 io.files kernel math math.parser memoize pack sequences
-sequences.generalizations splitting strings ;
+sequences.generalizations splitting strings system ;
 
 IN: terminfo
 
@@ -66,7 +66,8 @@ PRIVATE>
     binary [ read-terminfo ] with-file-reader ;
 
 : terminfo-path ( name -- path )
-    [ first >hex ] keep "/usr/share/terminfo/%s/%s" sprintf ;
+    [ first os macosx? [ >hex ] when ] keep
+    "/usr/share/terminfo/%s/%s" sprintf ;
 
 MEMO: terminfo-names ( -- names )
     "/usr/share/terminfo" [