diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-01-13 18:02:58 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-01-13 18:02:58 +0000 |
| commit | 48dd06b3020b5ff471da669acb961bf6935bda42 (patch) | |
| tree | 1bfc0594f9af00078576c6687cd6b944045a582f /src/algebra | |
| parent | 67e3a751fa4a8f7f7a2ef7cf941b8e7f927ab169 (diff) | |
| download | open-axiom-48dd06b3020b5ff471da669acb961bf6935bda42.tar.gz | |
2008-01-13 Ralf Hemmecke <ralf@hemmecke.de>
Gabriel Dos Reis <gdr@cs.tamu.edu>
* algebra/bags.spad.pamphlet (Stack$map!): Cache the result in the
underlying reference.
Diffstat (limited to 'src/algebra')
| -rw-r--r-- | src/algebra/bags.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/bags.spad.pamphlet b/src/algebra/bags.spad.pamphlet index ed8b82a6..9474a267 100644 --- a/src/algebra/bags.spad.pamphlet +++ b/src/algebra/bags.spad.pamphlet @@ -49,7 +49,7 @@ Stack(S: Type): StackAggregate S with ref map(f, deref s)$List(S) map!(f: S -> S, s: %) == -- from HOAGG - map!(f, deref s)$List(S) + setref(s, map!(f, deref s)$List(S)) s copy s == ref copy deref s |