Commit 7eb6dc86 authored by pazsan's avatar pazsan

Added environment query for encoding

parent cb80e85b
......@@ -318,6 +318,11 @@ here wc-table - Constant #wc-table
s" UTF-8" search nip nip
IF set-encoding-utf-8 ELSE set-encoding-fixed-width THEN ;
environment-wordlist set-current
: xchar-encoding
max-single-byte $80 = IF s" UTF-8" ELSE s" ISO-LATIN-1" THEN ;
forth definitions
:noname ( -- )
defers 'cold
utf-8-cold
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment