diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-08-19 15:59:42 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-08-19 15:59:42 +0000 |
| commit | f4176da95ca2738d26bec76efddf812a33be5046 (patch) | |
| tree | 2e0a2f1018be452a7cc6ad4065f899d117974fa5 /src | |
| parent | b8b2eb6ec38b088065ede6cab25726c1ec9e6b3e (diff) | |
| download | open-axiom-f4176da95ca2738d26bec76efddf812a33be5046.tar.gz | |
* c-util.boot.pamphlet (addContour): Remove trailing semicolon.
Diffstat (limited to 'src')
| -rw-r--r-- | src/interp/ChangeLog | 4 | ||||
| -rw-r--r-- | src/interp/c-util.boot.pamphlet | 6 |
2 files changed, 7 insertions, 3 deletions
diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog index 0a58efa3..21388c74 100644 --- a/src/interp/ChangeLog +++ b/src/interp/ChangeLog @@ -1,3 +1,7 @@ +2007-08-19 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * c-util.boot.pamphlet (addContour): Remove trailing semicolon. + 2007-08-18 Gabriel Dos Reis <gdr@cs.tamu.edu> * bootlex.lisp.pamphlet (|boot-LEXPR|): Remove 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 |