From d4221b8a648adc6bf3b44410dedd8b5e8abbeb18 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 12 May 2008 15:46:25 +0000 Subject: * algebra/asp.spad.pamphlet (Asp30): Don't name local variable as record field. (Asp31): Likewise. (asp34): Likewise. (Asp77): Likewise. (Asp8): Likewise. (Asp9): Likewise. * algebra/fortran.spad.pamphlet (FortranCode): Likewise. * algebra/moebius.spad.pamphlet (MoebiusTransform): Likewise. --- src/algebra/moebius.spad.pamphlet | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/algebra/moebius.spad.pamphlet') diff --git a/src/algebra/moebius.spad.pamphlet b/src/algebra/moebius.spad.pamphlet index 2185b426..a6b10b66 100644 --- a/src/algebra/moebius.spad.pamphlet +++ b/src/algebra/moebius.spad.pamphlet @@ -58,14 +58,14 @@ MoebiusTransform(F): Exports == Implementation where Implementation ==> add - Rep := Record(a: F,b: F,c: F,d: F) + Rep := Record(a': F,b': F,c': F,d': F) moebius(aa,bb,cc,dd) == [aa,bb,cc,dd] - a(t:%):F == t.a - b(t:%):F == t.b - c(t:%):F == t.c - d(t:%):F == t.d + a(t:%):F == t.a' + b(t:%):F == t.b' + c(t:%):F == t.c' + d(t:%):F == t.d' 1 == moebius(1,0,0,1) t * s == -- cgit v1.2.3