equal
deleted
inserted
replaced
546 |
546 |
547 Trace ifTrue:[ |
547 Trace ifTrue:[ |
548 Logger log: 'cmd: propagating: ' , anException class name , ' - ', anException description severity: #trace facility: 'HG'. |
548 Logger log: 'cmd: propagating: ' , anException class name , ' - ', anException description severity: #trace facility: 'HG'. |
549 ]. |
549 ]. |
550 Debug ifTrue:[ |
550 Debug ifTrue:[ |
551 anException suspendedContext fullPrintAllOn: Transcript. |
551 anException suspendedContext notNil ifTrue:[ |
|
552 anException suspendedContext fullPrintAllOn: Transcript. |
|
553 ] |
552 ]. |
554 ]. |
553 errors nextPut: anException. |
555 errors nextPut: anException. |
554 |
556 |
555 "Created: / 04-02-2013 / 21:29:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
557 "Created: / 04-02-2013 / 21:29:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
556 "Modified: / 09-02-2014 / 19:58:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
558 "Modified: / 09-02-2014 / 19:58:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1818 "Created: / 19-11-2012 / 20:02:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1820 "Created: / 19-11-2012 / 20:02:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1819 ! ! |
1821 ! ! |
1820 |
1822 |
1821 !HGCommand class methodsFor:'documentation'! |
1823 !HGCommand class methodsFor:'documentation'! |
1822 |
1824 |
|
1825 version |
|
1826 ^ '$Header$' |
|
1827 ! |
|
1828 |
|
1829 version_CVS |
|
1830 ^ '$Header$' |
|
1831 ! |
|
1832 |
1823 version_HG |
1833 version_HG |
1824 |
1834 |
1825 ^ '$Changeset: <not expanded> $' |
1835 ^ '$Changeset: <not expanded> $' |
1826 ! |
1836 ! |
1827 |
1837 |