equal
deleted
inserted
replaced
4447 process priority:(Processor userSchedulingPriority). |
4447 process priority:(Processor userSchedulingPriority). |
4448 process name:'main'. |
4448 process name:'main'. |
4449 process beGroupLeader. |
4449 process beGroupLeader. |
4450 process resume. |
4450 process resume. |
4451 |
4451 |
4452 Processor exitWhenNoMoreUserProcesses:true. |
4452 Processor exitWhenNoMoreUserProcesses:true. |
4453 Processor dispatchLoop. |
4453 Processor dispatchLoop. |
4454 self exit |
4454 self exit |
4455 ]. |
4455 ]. |
4456 |
4456 |
4457 "look for a '-f filename' or '--file filename' argument |
4457 "look for a '-f filename' or '--file filename' argument |
4522 ] |
4522 ] |
4523 ] |
4523 ] |
4524 ] |
4524 ] |
4525 ]. |
4525 ]. |
4526 |
4526 |
4527 "/ isRepl ifTrue:[ |
|
4528 "/ self providingDisplayDo:[ |
|
4529 "/ self readEvalPrint. |
|
4530 "/ ]. |
|
4531 "/ self exit. |
|
4532 "/ ]. |
|
4533 |
|
4534 Processor exitWhenNoMoreUserProcesses:true. |
4527 Processor exitWhenNoMoreUserProcesses:true. |
4535 isRepl ifFalse:[ |
4528 isRepl ifFalse:[ |
4536 Debugging == true ifFalse:[ |
4529 Debugging == true ifFalse:[ |
4537 "/ remove the Debugger |
4530 "/ remove the Debugger |
4538 Debugger := nil. |
4531 Debugger := nil. |
4540 ]. |
4533 ]. |
4541 |
4534 |
4542 process := [ |
4535 process := [ |
4543 self providingDisplayDo:[ |
4536 self providingDisplayDo:[ |
4544 isRepl ifTrue:[ |
4537 isRepl ifTrue:[ |
|
4538 Processor exitWhenNoMoreUserProcesses:false. |
4545 Processor activeProcess name:'repl'. |
4539 Processor activeProcess name:'repl'. |
4546 self readEvalPrint. |
4540 self readEvalPrint. |
4547 self exit. |
4541 self exit. |
4548 ]. |
4542 ]. |
4549 |
4543 |