From cc44b14797968a894e92bcff4a4afe30b26dd896 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Fri, 2 Dec 2011 17:36:48 +0000 Subject: * interp/buildom.boot (setelt): Change SEQ to %seq. * interp/clam.boot (compHash): Likewise. * interp/compiler.boot (freeVarUsage): Likewise. (canReturn): Likewise. * interp/i-special.boot (compileIs): Likewise. * interp/g-opt.boot (changeVariableDefinitionToStore): Likewise. (jumpToToplevel?): Likewise. (groupVariableDefinitions): Likewise. (changeLeaveToExit): Likewise. (optLabelled): Likewise. (optSeq): Rename from optSEQ. Adjust callers. * interp/lisp-backend.boot: Translate %seq to SEQ. --- src/interp/i-special.boot | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/interp/i-special.boot') diff --git a/src/interp/i-special.boot b/src/interp/i-special.boot index 210996ee..8cf776fc 100644 --- a/src/interp/i-special.boot +++ b/src/interp/i-special.boot @@ -1649,8 +1649,8 @@ compileIs(val,pattern) == for var in removeDuplicates vars repeat assignCode:=[["%LET",var,["CDR",["objectAssoc",MKQ var,g]]],:assignCode] null $opIsIs => - ['%when,[["EQ",predCode,MKQ "failed"],["SEQ",:assignCode,'%true]]] - ['%when,[['%not,["EQ",predCode,MKQ "failed"]],["SEQ",:assignCode,'%true]]] + ['%when,[["EQ",predCode,MKQ "failed"],['%seq,:assignCode,'%true]]] + ['%when,[['%not,["EQ",predCode,MKQ "failed"]],['%seq,:assignCode,'%true]]] evalIsPredicate(value,pattern,mode) == --This function pattern matches value to pattern, and returns -- cgit v1.2.3