diff options
Diffstat (limited to 'src/interp/i-map.boot')
-rw-r--r-- | src/interp/i-map.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/i-map.boot b/src/interp/i-map.boot index bfc99b6d..10b64ceb 100644 --- a/src/interp/i-map.boot +++ b/src/interp/i-map.boot @@ -192,7 +192,7 @@ addMap(lhs,rhs,pred) == null newMap => sayRemoveFunctionOrValue op putHist(op,'alias,nil,$e) - "" -- clears value--- see return from addDefMap in tree2Atree1 + $ClearBodyToken --- see return from addDefMap in tree2Atree1 if get(op,'isInterpreterRule,$e) then type := ['RuleCalled,op] else type := ['FunctionCalled,op] recursive := @@ -204,10 +204,10 @@ addMap(lhs,rhs,pred) == augmentMap(op,args,pred,body,oldMap) == pattern:= makePattern(args,pred) newMap:=deleteMap(op,pattern,oldMap) - body="" => + body = $ClearBodyToken => if newMap=oldMap then sayMSG ['" Cannot find part of",:bright op,'"to delete."] - newMap --just delete rule if body is + newMap --just delete rule if body is $ClearBodyToken entry:= [pattern,:body] resultMap:= newMap is ["%Map",:tail] => ["%Map",:tail,entry] @@ -227,7 +227,7 @@ getUserIdentifiersIn body == null body => nil IDENTP body => isSharpVarWithNum body => nil - body="" => nil + body = $ClearBodyToken => nil [body] body is ["WRAPPED",:.] => nil body is [op,:itl,body1] and op in '(COLLECT REPEAT %collect) => |