diff options
| -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 |