equal
deleted
inserted
replaced
1487 install:true. |
1487 install:true. |
1488 ]. |
1488 ]. |
1489 |
1489 |
1490 mthd isMethod ifTrue:[ |
1490 mthd isMethod ifTrue:[ |
1491 traceFlag == true ifTrue:[ |
1491 traceFlag == true ifTrue:[ |
1492 [ |
1492 MessageTracer debugTrace:[ |
1493 ObjectMemory sendTraceOn. |
|
1494 value := self doIt. "/ not here now, but dynamically created |
1493 value := self doIt. "/ not here now, but dynamically created |
1495 ] ensure:[ |
|
1496 ObjectMemory sendTraceOff. |
|
1497 ] |
1494 ] |
1498 ] ifFalse:[ |
1495 ] ifFalse:[ |
1499 profilingFlag == true ifTrue:[ |
1496 profilingFlag == true ifTrue:[ |
1500 MessageTally spyDetailedOn:[ |
1497 MessageTally spyDetailedOn:[ |
1501 value := self doIt. "/ not here now, but dynamically created |
1498 value := self doIt. "/ not here now, but dynamically created |
1529 Workspace rememberResultAsWorkspaceVariable:value. |
1526 Workspace rememberResultAsWorkspaceVariable:value. |
1530 ]. |
1527 ]. |
1531 ]. |
1528 ]. |
1532 ]. |
1529 ]. |
1533 ]. |
1530 ]. |
|
1531 |
|
1532 "Modified: / 04-05-2019 / 15:51:16 / Claus Gittinger" |
1534 ! |
1533 ! |
1535 |
1534 |
1536 readEvalPrintLoop |
1535 readEvalPrintLoop |
1537 "{ Pragma: +optSpace }" |
1536 "{ Pragma: +optSpace }" |
1538 |
1537 |