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/contfrac.spad.pamphlet | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/src/algebra/contfrac.spad.pamphlet b/src/algebra/contfrac.spad.pamphlet
index 615d435a..89237728 100644
--- a/src/algebra/contfrac.spad.pamphlet
+++ b/src/algebra/contfrac.spad.pamphlet
@@ -218,7 +218,7 @@ ContinuedFraction(R): Exports == Implementation where
         l  := concat([1,qr.quotient],l)
         n  := d
         d  := qr.remainder
-      [[wh, construct rest reverse_! l], true]
+      [[wh, construct rest reverse! l], true]
 
     characteristic == characteristic$Q
 
@@ -331,7 +331,7 @@ ContinuedFraction(R): Exports == Implementation where
           l  := concat(zagRec frst fr,l)
           fr := rst fr
       if not explicitlyEmpty? fr then l := concat("..." :: OUT,l)
-      l := reverse_! l
+      l := reverse! l
       e := reduce("+",l)
       zero? wh => e
       (wh :: OUT) + e
-- 
cgit v1.2.3