diff options
Diffstat (limited to 'src/interp/c-util.boot.pamphlet')
| -rw-r--r-- | src/interp/c-util.boot.pamphlet | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/c-util.boot.pamphlet b/src/interp/c-util.boot.pamphlet index 3803a39a..550d5e7a 100644 --- a/src/interp/c-util.boot.pamphlet +++ b/src/interp/c-util.boot.pamphlet @@ -248,11 +248,11 @@ addContour(c,E is [cur,:tail]) == fn1(x,p,ee) == for pv in p repeat fn3(x,pv,ee) where fn3(x,pv,e) == - [p,:v]:=pv; + [p,:v]:=pv if member(x,$getPutTrace) then - pp([x,"has",pv]); + pp([x,"has",pv]) if p="conditionalmode" then - RPLACA(pv,"mode"); + RPLACA(pv,"mode") --check for conflicts with earlier mode if vv:=LASSOC("mode",e) then if v ^=vv then |