diff options
Diffstat (limited to 'src/algebra/suls.spad.pamphlet')
| -rw-r--r-- | src/algebra/suls.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/suls.spad.pamphlet b/src/algebra/suls.spad.pamphlet index efd567aa..112f103b 100644 --- a/src/algebra/suls.spad.pamphlet +++ b/src/algebra/suls.spad.pamphlet @@ -196,7 +196,7 @@ SparseUnivariateLaurentSeries(Coef,var,cen): Exports == Implementation where coerce(uls:%): OUT == st := getStream uls if not(explicitlyEmpty? st or explicitEntries? st) _ - and (nx := retractIfCan(elt getRef uls))@Union(I,"failed") case I then + and (nx := retractIfCan(deref getRef uls))@Union(I,"failed") case I then count : NNI := _$streamCount$Lisp degr := min(count,(nx :: I) + count + 1) extend(uls,degr) |