compiler/TCompilerPass.st
changeset 12 d716a8181fc1
parent 11 6d39860d0fdb
child 15 10a95d798b36
--- a/compiler/TCompilerPass.st	Wed Sep 16 05:29:43 2015 +0100
+++ b/compiler/TCompilerPass.st	Fri Sep 18 06:20:53 2015 +0100
@@ -171,6 +171,16 @@
     "Created: / 02-09-2015 / 07:16:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+acceptSequenceNode: aSequenceNode 
+    | last |
+    self passByNode:aSequenceNode.
+    self visitArguments: aSequenceNode temporaries.
+    aSequenceNode statements do: [:each | last := self visitNode: each].
+    ^ last
+
+    "Created: / 18-09-2015 / 06:10:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 acceptSpecialFormNode:aTSpecialFormNode 
     aTSpecialFormNode selector = #ifTrue: ifTrue:[
         ^ self acceptIfTrueNode:aTSpecialFormNode.