From 81d7e8649471cd2f59993f3fe60f88646348c2ba Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 30 Dec 2018 16:29:46 -0600
Subject: [PATCH] modern: update CHAR:

---
 basis/ui/tools/inspector/inspector.factor | 18 +++++++++---------
 extra/totp/totp.factor                    |  2 +-
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/basis/ui/tools/inspector/inspector.factor b/basis/ui/tools/inspector/inspector.factor
index 257e2fc854..6202d1b4be 100644
--- a/basis/ui/tools/inspector/inspector.factor
+++ b/basis/ui/tools/inspector/inspector.factor
@@ -75,15 +75,15 @@ M: string make-slot-descriptions
         dup printable? [ 1string ] [
             dup 0xff <= [
                 H{
-                    { CHAR: \a "\\a" }
-                    { CHAR: \b "\\b" }
-                    { CHAR: \e "\\e" }
-                    { CHAR: \f "\\f" }
-                    { CHAR: \n "\\n" }
-                    { CHAR: \r "\\r" }
-                    { CHAR: \t "\\t" }
-                    { CHAR: \v "\\v" }
-                    { CHAR: \0 "\\0" }
+                    { char: \a "\\a" }
+                    { char: \b "\\b" }
+                    { char: \e "\\e" }
+                    { char: \f "\\f" }
+                    { char: \n "\\n" }
+                    { char: \r "\\r" }
+                    { char: \t "\\t" }
+                    { char: \v "\\v" }
+                    { char: \0 "\\0" }
                 } ?at [ "\\x%02x" sprintf ] unless
             ] [
                 "\\u{%x}" sprintf
diff --git a/extra/totp/totp.factor b/extra/totp/totp.factor
index 6e00a2dadc..b439843c06 100644
--- a/extra/totp/totp.factor
+++ b/extra/totp/totp.factor
@@ -25,7 +25,7 @@ PRIVATE>
     hmac-bytes totp-value ;
 
 : digits ( n digits -- string )
-    [ number>string ] dip [ CHAR: 0 pad-head ] keep tail* ;
+    [ number>string ] dip [ char: 0 pad-head ] keep tail* ;
 
 : totp ( key -- string )
     now timestamp>count swap totp-hash get totp* totp-digits get digits ;