瀏覽代碼

Use AIContext >> isTopContext

Nicolas Petton 10 年之前
父節點
當前提交
8eda247df2
共有 2 個文件被更改,包括 4 次插入4 次删除
  1. 3 3
      src/Compiler-Interpreter.js
  2. 1 1
      src/Compiler-Interpreter.st

+ 3 - 3
src/Compiler-Interpreter.js

@@ -1095,13 +1095,13 @@ $1;
 };
 $2=_st(_st(self._interpreter())._atEnd())._and_((function(){
 return smalltalk.withContext(function($ctx2) {
-return _st(_st(self._context())._outerContext())._isNil();
+return _st(self._context())._isTopContext();
 }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)})}));
 return $2;
 }, function($ctx1) {$ctx1.fill(self,"atEnd",{},globals.ASTDebugger)})},
 args: [],
-source: "atEnd\x09\x0a\x09self context ifNil: [ ^ true ].\x0a\x09\x0a\x09^ self interpreter atEnd and: [ \x0a\x09\x09self context outerContext isNil ]",
-messageSends: ["ifNil:", "context", "and:", "atEnd", "interpreter", "isNil", "outerContext"],
+source: "atEnd\x09\x0a\x09self context ifNil: [ ^ true ].\x0a\x09\x0a\x09^ self interpreter atEnd and: [ \x0a\x09\x09self context isTopContext ]",
+messageSends: ["ifNil:", "context", "and:", "atEnd", "interpreter", "isTopContext"],
 referencedClasses: []
 }),
 globals.ASTDebugger);

+ 1 - 1
src/Compiler-Interpreter.st

@@ -456,7 +456,7 @@ atEnd
 	self context ifNil: [ ^ true ].
 	
 	^ self interpreter atEnd and: [ 
-		self context outerContext isNil ]
+		self context isTopContext ]
 ! !
 
 !ASTDebugger class methodsFor: 'instance creation'!