From ca4b1b74d8e743f50f0db37f1b33265f46547f01 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 28 Dec 2010 23:39:44 +0000
Subject: Character constants clean up

---
 src/interp/g-util.boot | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/interp/g-util.boot')

diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot
index 13b381b7..93aac9dc 100644
--- a/src/interp/g-util.boot
+++ b/src/interp/g-util.boot
@@ -1326,11 +1326,11 @@ $charRbrace == char '_}
 $charBack == char '_\
 $charDash == char '_-
 
-$charTab            == CODE_-CHAR(9)
-$charNewline        == CODE_-CHAR(10)
-$charFauxNewline    == CODE_-CHAR(25)
-$stringNewline      == PNAME CODE_-CHAR(10)
-$stringFauxNewline  == PNAME CODE_-CHAR(25)
+$charTab            == abstractChar 9
+$charNewline        == abstractChar 10
+$charFauxNewline    == abstractChar 25
+$stringNewline      == charString abstractChar 10
+$stringFauxNewline  == charString abstractChar 25
 
 $charExclusions == [char 'a, char 'A]
 $charQuote == char '_'
-- 
cgit v1.2.3