From c95606b43200927a9b54c5bba9670020aee6712d Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 11 Dec 2010 01:27:32 +0000 Subject: * boot/ast.boot (bfMmeber): Tidy. * interp/alql.boot: Clean up. * interp/br-con.boot: Likewise. * interp/br-op1.boot: Likewise. * interp/br-op2.boot: Likewise. * interp/br-saturn.boot: Likewise. * interp/br-search.boot: Likewise. * interp/br-util.boot: Likewise. * interp/c-doc.boot: Likewise. * interp/format.boot: Likewise. * interp/g-error.boot: Likewise. * interp/i-funsel.boot: Likewise. * interp/i-syscmd.boot: Likewise. * interp/mark.boot: Likewise. * interp/msgdb.boot: Likewise. * interp/newfort.boot: Likewise. * interp/pspad1.boot: Likewise. * interp/trace.boot: Likewise. --- src/interp/trace.boot | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/interp/trace.boot') diff --git a/src/interp/trace.boot b/src/interp/trace.boot index e970f0af..8335b4b9 100644 --- a/src/interp/trace.boot +++ b/src/interp/trace.boot @@ -633,7 +633,7 @@ letPrint3(x,xval,printfn,currentFunction) == if flag='letPrint2 then print xval if (y:= hasPair("BREAK",y)) and (y="all" or MEMQ(x,y) and - (not MEMQ(PNAME(x).0,'($ _#)) and not GENSYMP x)) then + (not (PNAME(x).0 in '($ _#)) and not GENSYMP x)) then break [:bright currentFunction,'"breaks after",:bright x,'":= ", xval] x -- cgit v1.2.3