From 7d3b7d55f97f1d8119160e409b0922e3e6ec6ac7 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 22 Feb 2009 06:20:48 +0000
Subject: 	* interp/msgdb.boot: Avoid SETANDFILEQ.

---
 src/interp/msgdb.boot | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/msgdb.boot b/src/interp/msgdb.boot
index 9e6556f8..e49c9e21 100644
--- a/src/interp/msgdb.boot
+++ b/src/interp/msgdb.boot
@@ -1,6 +1,6 @@
 -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
 -- All rights reserved.
--- Copyright (C) 2007-2008, Gabriel Dos Reis.
+-- Copyright (C) 2007-2009, Gabriel Dos Reis.
 -- All rights reserved.
 --
 -- Redistribution and use in source and binary forms, with or without
@@ -245,11 +245,11 @@ addBlanks msg ==
   NREVERSE msg1
 
 
-SETANDFILEQ($msgdbPrims,'( %b %d %l %i %u %U %n %x %ce %rj "%U" "%b" "%d" "%l" "%i" "%u" "%U" "%n" "%x" "%ce" "%rj"))
-SETANDFILEQ($msgdbPunct,'(_. _, _! _: _; _? _] _)  "." "," "!" ":" ";" "?" "]" ")"  ))
-SETANDFILEQ($msgdbNoBlanksBeforeGroup,['" ", " ", '"%", "%",_
-                            :$msgdbPrims, :$msgdbPunct])
-SETANDFILEQ($msgdbListPrims,'(%m %s %ce %rj "%m" "%s" "%ce" "%rj"))
+$msgdbPrims =='( %b %d %l %i %u %U %n %x %ce %rj "%U" "%b" "%d" "%l" "%i" "%u" "%U" "%n" "%x" "%ce" "%rj")
+$msgdbPunct := '(_. _, _! _: _; _? _] _)  "." "," "!" ":" ";" "?" "]" ")"  )
+$msgdbNoBlanksBeforeGroup := ['" ", " ", '"%", "%",_
+                                :$msgdbPrims, :$msgdbPunct]
+$msgdbListPrims == '(%m %s %ce %rj "%m" "%s" "%ce" "%rj")
 
 noBlankBeforeP word==
     INTP word => false
@@ -260,9 +260,8 @@ noBlankBeforeP word==
     (PAIRP word) and member(CAR word,$msgdbListPrims) => true
     false
 
-$msgdbPunct := '(_[ _(  "[" "(" )
-SETANDFILEQ($msgdbNoBlanksAfterGroup,['" ", " ",'"%" ,"%",_
-                          :$msgdbPrims,:$msgdbPunct])
+$msgdbNoBlanksAfterGroup == ['" ", " ",'"%" ,"%", :$msgdbPrims,
+                              "[", "(", '"[", '"(" ]
 
 noBlankAfterP word==
     INTP word => false
-- 
cgit v1.2.3