From a6c8f543276feb112a408d9347b56addd558bd6e Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 9 May 2010 20:40:25 +0000
Subject: More STRCONC cleanups

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

(limited to 'src/interp/htsetvar.boot')

diff --git a/src/interp/htsetvar.boot b/src/interp/htsetvar.boot
index 29fe5431..75f01be6 100644
--- a/src/interp/htsetvar.boot
+++ b/src/interp/htsetvar.boot
@@ -290,7 +290,7 @@ htCheckList(checker,value) ==
       n
   value in checker => value
   first checker
---  emlist := "STRCONC"/[strconc('" {\em ",PNAME x,'"} ") for x in checker]
+--  emlist := strconc/[strconc('" {\em ",PNAME x,'"} ") for x in checker]
 --  strconc('"Please enter one of: ",emlist)
 
 translateYesNoToTrueFalse x ==
-- 
cgit v1.2.3