terminfo: separate string-offset word.

slavapestov · Apr 26, 2013 · e69f007 · e69f007
1 parent a6ab66d
commit e69f007
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/extra/terminfo/terminfo.factor b/extra/terminfo/terminfo.factor
@@ -45,10 +45,12 @@ C: <terminfo-header> terminfo-header
 : read-numbers ( header -- numbers )
     [ align-even-bytes ] [ #numbers>> read-shorts ] bi ;
 
+: string-offset ( from seq -- str )
+    0 2over index-from swap subseq >string ;
+
 : read-strings ( header -- strings )
-    [ #strings>> read-shorts ] [ string-bytes>> read ] bi '[
-        [ _ 0 2over index-from swap subseq >string ] [ f ] if*
-    ] map ;
+    [ #strings>> read-shorts ] [ string-bytes>> read ] bi
+    '[ [ _ string-offset ] [ f ] if* ] map ;
 
 TUPLE: terminfo names booleans numbers strings ;