# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1478344843 -3600
# Node ID 4482bd38c3aa3445cb0b6362e0db0232d85edb68
# Parent  7f1419b0b7b35a4e21ad6a62fceaea71551d478a
#DOCUMENTATION by cg
class: Smalltalk
changed: #start

diff -r 7f1419b0b7b3 -r 4482bd38c3aa Smalltalk.st
--- a/Smalltalk.st	Sat Nov 05 12:15:25 2016 +0100
+++ b/Smalltalk.st	Sat Nov 05 12:20:43 2016 +0100
@@ -4449,7 +4449,7 @@
                 process beGroupLeader.
                 process resume.
 
-Processor exitWhenNoMoreUserProcesses:true.
+                Processor exitWhenNoMoreUserProcesses:true.
                 Processor dispatchLoop.
                 self exit
             ].
@@ -4524,13 +4524,6 @@
                     ]
                 ].
 
-"/                isRepl ifTrue:[
-"/                    self providingDisplayDo:[
-"/                        self readEvalPrint.
-"/                    ].    
-"/                    self exit.
-"/                ].
-                
                 Processor exitWhenNoMoreUserProcesses:true.
                 isRepl ifFalse:[
                     Debugging == true ifFalse:[
@@ -4542,6 +4535,7 @@
                 process := [
                     self providingDisplayDo:[
                         isRepl ifTrue:[
+                            Processor exitWhenNoMoreUserProcesses:false.
                             Processor activeProcess name:'repl'.
                             self readEvalPrint.
                             self exit.