Added GRDynamicVariable implementation on GemStone

Author: Johan Brichau

repository/Grease-GemStone-Core.package/GRDynamicVariable.class/README.md

@@ -0,0 +1,14 @@
+accessing
+use: anObject during: aBlock
+
+	| p oldValue result |
+	"Proper implementation instead of use 'super value:during:' because that one does not return value, perhaps this should be fixed in DynamicVariable?"
+	p := Processor activeProcess.
+	oldValue := p environmentAt: self ifAbsent: [self default].
+	[
+		p environmentAt: self put: anObject.
+		result := aBlock value.
+	] ensure: [ 
+		p environmentAt: self put: oldValue 
+	].
+	^ result

repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/use.during..st

@@ -0,0 +1,5 @@
+{
+	"class" : {
+		"use:during:" : "JohanBrichau 05/25/2017 08:13" },
+	"instance" : {
+		 } }

repository/Grease-GemStone-Core.package/GRDynamicVariable.class/methodProperties.json

@@ -0,0 +1,14 @@
+{
+	"category" : "Grease-GemStone-Core",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		 ],
+	"name" : "GRDynamicVariable",
+	"pools" : [
+		 ],
+	"super" : "DynamicVariable",
+	"type" : "normal" }