Added GsContext>>tempNamed: (for compatibility with the test in Pharo…

… 10)
SeasideSt · Mar 20, 2022 · 1604506 · 1604506
1 parent 9167782
commit 1604506
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/instance/tempNamed..st b/repository/Grease-GemStone-Core.package/GsContext.class/instance/tempNamed..st
@@ -0,0 +1,7 @@
+accessing
+tempNamed: aString
+  | index |
+  index := self tempNames indexOf: aString asSymbol.
+  index = 0
+    ifTrue: [ Error raiseSignal: 'No such temp: ' , aString ].
+  ^ self tempAt: index