diff options
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/algebra/any.spad.pamphlet | 4 |
2 files changed, 7 insertions, 2 deletions
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) |