From 9cccb4de9531715d813805112f942f29cf9c2466 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 26 Feb 2018 11:45:11 -0800
Subject: [PATCH] io.encodings.8-bit: adding CP874.

---
 basis/io/encodings/8-bit/8-bit.factor | 1 +
 extra/dbf/dbf.factor                  | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/basis/io/encodings/8-bit/8-bit.factor b/basis/io/encodings/8-bit/8-bit.factor
index 6df0f4f666..3f5d042afb 100644
--- a/basis/io/encodings/8-bit/8-bit.factor
+++ b/basis/io/encodings/8-bit/8-bit.factor
@@ -95,6 +95,7 @@ SYNTAX: 8-BIT: scan-token scan-token scan-token load-encoding ;
 ! 8-BIT: mac-icelandic mac-icelandic ICELAND
 ! 8-BIT: mac-latin2 mac-latin2 LATIN2
 ! 8-BIT: mac-turkish mac-turkish TURKISH
+8-BIT: windows-874 windows-874 CP874
 8-BIT: windows-1250 windows-1250 CP1250
 8-BIT: windows-1251 windows-1251 CP1251
 8-BIT: windows-1252 windows-1252 CP1252
diff --git a/extra/dbf/dbf.factor b/extra/dbf/dbf.factor
index 240267bbac..07fe06e832 100644
--- a/extra/dbf/dbf.factor
+++ b/extra/dbf/dbf.factor
@@ -50,7 +50,7 @@ CONSTANT: dbf-encodings H{
     { 0x4D "cp936" }
     { 0x4E "cp949" }
     { 0x4F "cp950" }
-    { 0x50 "cp874" }
+    { 0x50 windows-874 }
     { 0x57 windows-1252 }
     { 0x58 windows-1252 }
     { 0x59 windows-1252 }
@@ -67,7 +67,7 @@ CONSTANT: dbf-encodings H{
     { 0x79 "cp949" }
     { 0x7a "cp936" }
     { 0x7b "cp932" }
-    { 0x7c "cp874" }
+    { 0x7c windows-874 }
     { 0x7d windows-1255 }
     { 0x7e windows-1256 }
     { 0x86 "cp737" }