From 9e07dcd91c45bf8b22d932321f5c97e931ffe8ac Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 11 Jun 2009 23:00:40 +0000
Subject: 	* algebra/: Don't quote '!' at end of names.

---
 src/algebra/string.spad.pamphlet | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

(limited to 'src/algebra/string.spad.pamphlet')

diff --git a/src/algebra/string.spad.pamphlet b/src/algebra/string.spad.pamphlet
index 1e08bf30..058da44a 100644
--- a/src/algebra/string.spad.pamphlet
+++ b/src/algebra/string.spad.pamphlet
@@ -208,14 +208,14 @@ CharacterClass: Join(SetCategory, ConvertibleTo String,
 	empty():%	== charClass []
 	brace():%	== charClass []
 
-	insert_!(c, a)	== (a(ord c) := true; a)
-	remove_!(c: Character, a:%) == (a(ord c) := false; a)
+	insert!(c, a)	== (a(ord c) := true; a)
+	remove!(c: Character, a:%) == (a(ord c) := false; a)
 
 	inspect(a) ==
 	    for i in 0..N-1 | a.i repeat
 		 return char i
 	    error "Cannot take a character from an empty class."
-	extract_!(a) ==
+	extract!(a) ==
 	    for i in 0..N-1 | a.i repeat
 		 a.i := false
 		 return char i
@@ -227,10 +227,10 @@ CharacterClass: Join(SetCategory, ConvertibleTo String,
 	    b
 
 	temp: % := new(N, false)$Rep
-	map_!(f, a) ==
-	    fill_!(temp, false)
+	map!(f, a) ==
+	    fill!(temp, false)
 	    for i in 0..N-1 | a.i repeat temp(ord f char i) := true
-	    copyInto_!(a, temp, 0)
+	    copyInto!(a, temp, 0)
 
 	parts a ==
 	    [char i for i in 0..N-1 | a.i]
@@ -282,8 +282,8 @@ IndexedString(mn:Integer): Export == Implementation where
     insert(s:%, t:%, i:I)  == concat(concat(s(mn..i-1), t), s(i..))
     coerce(s:%):OutputForm == outputForm(s pretend String)
     minIndex s		   == mn
-    upperCase_! s	   == map_!(upperCase, s)
-    lowerCase_! s	   == map_!(lowerCase, s)
+    upperCase! s	   == map!(upperCase, s)
+    lowerCase! s	   == map!(lowerCase, s)
 
     latex s		   == concat("\mbox{``", concat(s pretend String, "''}"))
 
@@ -347,7 +347,7 @@ IndexedString(mn:Integer): Export == Implementation where
 	    l := concat(s(i..j-1), l)
 	    for i in j..n while s.i = c repeat 0
 	if i <= n then l := concat(s(i..n), l)
-	reverse_! l
+	reverse! l
 
     split(s, cc) ==
 	n := maxIndex s
@@ -359,7 +359,7 @@ IndexedString(mn:Integer): Export == Implementation where
 	    l := concat(s(i..j-1), l)
 	    for i in j..n while member?(s.i,cc) repeat 0
 	if i <= n then l := concat(s(i..n), l)
-	reverse_! l
+	reverse! l
 
     leftTrim(s, c) ==
 	n := maxIndex s
@@ -387,11 +387,11 @@ IndexedString(mn:Integer): Export == Implementation where
 	t := new(+/[#s for s in l], space$C)
 	i := mn
 	for s in l repeat
-	    copyInto_!(t, s, i)
+	    copyInto!(t, s, i)
 	    i := i + #s
 	t
 
-    copyInto_!(y, x, s) ==
+    copyInto!(y, x, s) ==
 	m := #x
 	n := #y
 	s := s - mn
-- 
cgit v1.2.3