ReadEvalPrintLoop.st
changeset 22740 1511ab65828f
parent 22739 d39b0b0008ce
child 22741 21d4356fc5a8
equal deleted inserted replaced
22739:d39b0b0008ce 22740:1511ab65828f
  1053                             value := (compilerClass new requestor:self) 
  1053                             value := (compilerClass new requestor:self) 
  1054                                         evaluate:chunk
  1054                                         evaluate:chunk
  1055                                         compile:true.
  1055                                         compile:true.
  1056                         ].    
  1056                         ].    
  1057                         doPrint ifTrue:[
  1057                         doPrint ifTrue:[
  1058                             'Return value: ' print.
  1058                             '  < Return value: ' print.
  1059                             value printOn:output. output cr.
  1059                             value displayString printOn:output. output cr.
  1060                             output flush.
  1060                             output flush.
  1061                         ].
  1061                         ].
  1062                     ] ifFalse:[    
  1062                     ] ifFalse:[    
  1063                         us := Time microsecondsToRun:[
  1063                         us := Time microsecondsToRun:[
  1064                             value := (compilerClass new requestor:self)
  1064                             value := (compilerClass new requestor:self)
  1065                                         evaluate:chunk compile:true.
  1065                                         evaluate:chunk compile:true.
  1066                         ].
  1066                         ].
  1067                         doPrint ifTrue:[
  1067                         doPrint ifTrue:[
  1068                             value isVoid ifFalse:[
  1068                             value isVoid ifFalse:[
  1069                                 'Return value: ' print.
  1069                                 '  < Return value: ' print.
  1070                                 value printOn:output. output cr.
  1070                                 value displayString printOn:output. output cr.
  1071                                 output flush.
  1071                                 output flush.
  1072                             ].
  1072                             ].
  1073                         ].
  1073                         ].
  1074 
  1074 
  1075                         timingFlag == true ifTrue:[
  1075                         timingFlag == true ifTrue:[