diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-07-13 07:49:23 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-07-13 07:49:23 +0000 |
| commit | 667ec69af3090bccd576e23e56a229168f8733b7 (patch) | |
| tree | 29c79e3c4e3c651bd24ea8aa64188185f596931a /src/algebra | |
| parent | 82c5eafa04137f6c660d8b4d3f8512587d4fef9c (diff) | |
| download | open-axiom-667ec69af3090bccd576e23e56a229168f8733b7.tar.gz | |
small cleanup
Diffstat (limited to 'src/algebra')
| -rw-r--r-- | src/algebra/op.spad.pamphlet | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/op.spad.pamphlet b/src/algebra/op.spad.pamphlet index 50978c07..383747bd 100644 --- a/src/algebra/op.spad.pamphlet +++ b/src/algebra/op.spad.pamphlet @@ -144,13 +144,13 @@ BasicOperator(): Exports == Implementation where display(op:$, f:O -> O) == display(op, f first #1) deleteProperty!(op: %, name: String) == (remove!(name, properties op); op) deleteProperty!(op: %, p: Identifier) == - remove!(STRING(p)$Foreign(Builtin), properties op) + remove!(p::String, properties op) op setProperty(op: %, name: String, valu: None) == rep(op).props.name := valu op setProperty(op: %, p: Identifier, valu: None) == - rep(op).props.(STRING(p)$Foreign(Builtin)@String) := valu + rep(op).props.(p::String) := valu op coerce(op:$):OutputForm == name(op)::OutputForm input(op:$, f:List SEX -> SEX) == setProperty(op, SEXPR, f pretend None) |