From f4176da95ca2738d26bec76efddf812a33be5046 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 19 Aug 2007 15:59:42 +0000 Subject: * c-util.boot.pamphlet (addContour): Remove trailing semicolon. --- src/interp/ChangeLog | 4 ++++ 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 + + * c-util.boot.pamphlet (addContour): Remove trailing semicolon. + 2007-08-18 Gabriel Dos Reis * 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 -- cgit v1.2.3