patches
changeset 1323 87de5e3d1239
parent 1259 dddef15229b7
child 1327 2873937bb6c0
equal deleted inserted replaced
1322:ac911ad60e88 1323:87de5e3d1239
    44 		 crashes during startup, if one of the patch directories contains another directory
    44 		 crashes during startup, if one of the patch directories contains another directory
    45 		 (such as CVS)"
    45 		 (such as CVS)"
    46 		(file isDirectory not and:[file isReadable]) ifTrue:[
    46 		(file isDirectory not and:[file isReadable]) ifTrue:[
    47 		    Smalltalk splashInfo:('patches [info]: reading patchFile ''' , fn , '''...').
    47 		    Smalltalk splashInfo:('patches [info]: reading patchFile ''' , fn , '''...').
    48 		    AbortOperationRequest handle:[:ex |
    48 		    AbortOperationRequest handle:[:ex |
    49 			Smalltalk splashInfo:('patches [info]: aborted patch ',f).
    49 			Smalltalk splashInfo:('patches [info]: aborted patch "',f,'" (',ex description,')').
    50 		    ] do:[
    50 		    ] do:[
    51 			Smalltalk fileIn:fn.
    51 			Smalltalk fileIn:fn.
    52 		    ].
    52 		    ].
    53 		]
    53 		]
    54 	    ]
    54 	    ]