aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/algext.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/algext.spad.pamphlet')
-rw-r--r--src/algebra/algext.spad.pamphlet12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/algebra/algext.spad.pamphlet b/src/algebra/algext.spad.pamphlet
index b5e2d470..ddd0a29b 100644
--- a/src/algebra/algext.spad.pamphlet
+++ b/src/algebra/algext.spad.pamphlet
@@ -118,19 +118,19 @@ SimpleAlgebraicExtension(R:CommutativeRing,
map(lift, v)$VectorFunctions2($, UP))
discriminant() ==
- if nodisc?() then mkDisc false
- disc()
+ if deref nodisc? then mkDisc false
+ deref disc
mkDisc b ==
- nodisc?() := b
- disc() := discriminant M
+ setref(nodisc?,b)
+ setref(disc,discriminant M)
traceMatrix() ==
- if nodiscmat?() then mkDiscMat false
+ if deref nodiscmat? then mkDiscMat false
discmat
mkDiscMat b ==
- nodiscmat?() := b
+ setref(nodiscmat?,b)
mr := minRowIndex discmat; mc := minColIndex discmat
for i in 0..d1 repeat
for j in 0..d1 repeat