From 1686050e8ed8598e7fa76535eb5e3bbb16ac8e97 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 22 Jan 2008 21:07:19 +0000
Subject: 	* algebra/any.spad.pamphlet (empty$Scope): Use literal empty
 list. 	(empty$Environment): Likewise.

---
 src/ChangeLog                 | 5 +++++
 src/algebra/any.spad.pamphlet | 4 ++--
 2 files changed, 7 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/ChangeLog b/src/ChangeLog
index 8a3433ae..bd8b57bf 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2008-01-22  Gabriel Dos Reis  <gdr@cs.tamu.edu>
+
+	* algebra/any.spad.pamphlet (empty$Scope): Use literal empty list.
+	(empty$Environment): Likewise.
+
 2008-01-21  Gabriel Dos Reis  <gdr@cs.tamu.edu>
             Waldek Hebisch <hebisch@math.uni.wroc.pl>
 
diff --git a/src/algebra/any.spad.pamphlet b/src/algebra/any.spad.pamphlet
index 56da387a..42a50805 100644
--- a/src/algebra/any.spad.pamphlet
+++ b/src/algebra/any.spad.pamphlet
@@ -338,7 +338,7 @@ Scope(): Public == Private where
   Private ==> add
     import Contour
     empty() ==
-      _$EmptyEnvironment$Lisp @ %
+      '(())
 
     contours s ==
       s pretend List(Contour)
@@ -395,7 +395,7 @@ Environment(): Public == Private where
 
   Private ==> add
     empty() ==
-     LIST(_$EmptyEnvironment$Lisp)$Lisp @ %
+      '((()))
 
     scopes e ==
       e pretend List(Scope)
-- 
cgit v1.2.3