diff options
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) |