aboutsummaryrefslogtreecommitdiff
path: root/src/algebra
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra')
-rw-r--r--src/algebra/op.spad.pamphlet4
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)