diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-01-22 21:07:19 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-01-22 21:07:19 +0000 |
| commit | 1686050e8ed8598e7fa76535eb5e3bbb16ac8e97 (patch) | |
| tree | ea7c15e2ba817fa13f1d5e68296e1f111b4f75a7 /src/algebra | |
| parent | 1a48b5c234f2804e54638bd097c31a703d31138e (diff) | |
| download | open-axiom-1686050e8ed8598e7fa76535eb5e3bbb16ac8e97.tar.gz | |
* algebra/any.spad.pamphlet (empty$Scope): Use literal empty list.
(empty$Environment): Likewise.
Diffstat (limited to 'src/algebra')
| -rw-r--r-- | src/algebra/any.spad.pamphlet | 4 |
1 files changed, 2 insertions, 2 deletions
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) |