--- a/Stack.st Sat Jan 31 16:03:29 2015 +0100
+++ b/Stack.st Tue Feb 03 15:17:38 2015 +0100
@@ -11,6 +11,8 @@
"
"{ Package: 'stx:libbasic2' }"
+"{ NameSpace: Smalltalk }"
+
OrderedCollection subclass:#Stack
instanceVariableNames:''
classVariableNames:''
@@ -123,7 +125,7 @@
do: aBlock
"Evaluate aBlock for each object on the stack, from top to bottom."
- ^ super reverseDo:aBlock
+ super reverseDo:aBlock
!
reverseDo: aBlock
@@ -135,6 +137,6 @@
!Stack class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/Stack.st,v 1.8 2014-11-26 08:50:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/Stack.st,v 1.9 2015-02-03 14:17:38 cg Exp $'
! !