compiler/PPCContext.st
changeset 419 5c502ab8e87d
parent 414 0eaf09920532
child 421 7e08b31e0dae
--- a/compiler/PPCContext.st	Sat Nov 08 01:03:21 2014 +0000
+++ b/compiler/PPCContext.st	Sat Nov 08 02:08:45 2014 +0000
@@ -7,6 +7,7 @@
 	category:'PetitCompiler-Context'
 !
 
+
 !PPCContext class methodsFor:'as yet unclassified'!
 
 new
@@ -234,19 +235,23 @@
 !
 
 remember
-	| memento |
+        | memento |
 "
-	^ position
+        ^ position
 "
-	memento := PPCContextMemento new
-		position: position;
-		yourself.
-		
-	self rememberProperties: memento.
-	"JK: Just while developing"
-	rc := rc + 1.
-	(rc > ((self size + 1)* 1000*1000)) ifTrue: [ self error: 'Hey, this is not normal, is it?' ].
-	^ memento
+        memento := PPCContextMemento new
+                position: position;
+                yourself.
+                
+        self rememberProperties: memento.
+        "JK: Just while developing"
+        "
+        rc := rc + 1.
+        (rc > ((self size + 1)* 1000*1000)) ifTrue: [ self error: 'Hey, this is not normal, is it?' ].
+        "
+        ^ memento
+
+    "Modified (comment): / 08-11-2014 / 02:08:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 rememberProperties: aPPContextMemento
@@ -281,3 +286,10 @@
 	]
 ! !
 
+!PPCContext class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+