From b0cf190c03229e5f09284c80b26c0b8a1feafba6 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 18 Jun 2013 07:15:39 +0000
Subject: Misc cleanup.

---
 src/interp/g-util.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot
index 2fe0791b..271279ec 100644
--- a/src/interp/g-util.boot
+++ b/src/interp/g-util.boot
@@ -1104,7 +1104,7 @@ queryVar? var ==
 ++ Returns a newly allocated domain shell (a simple vector) of length `n'.
 newShell: %Short -> SIMPLE_-ARRAY
 newShell n ==
-  MAKE_-ARRAY(n,KEYWORD::INITIAL_-ELEMENT,nil)
+  MAKE_-ARRAY(n,initial_-element <- nil)
 
 -- Push into the BOOT package when invoked in batch mode.
 AxiomCore::$sysScope := '"BOOT"
-- 
cgit v1.2.3