|  | @@ -230,12 +230,6 @@ require: aModuleString
 | 
											
												
													
														|  |  	^require value: aModuleString
 |  |  	^require value: aModuleString
 | 
											
												
													
														|  |  !
 |  |  !
 | 
											
												
													
														|  |  
 |  |  
 | 
											
												
													
														|  | -withBasePath: aBaseRelativePath
 |  | 
 | 
											
												
													
														|  | -	"return a file path which is relative to the basePath."
 |  | 
 | 
											
												
													
														|  | -	^	path join: self basePath with: aBaseRelativePath
 |  | 
 | 
											
												
													
														|  | -!
 |  | 
 | 
											
												
													
														|  | -
 |  | 
 | 
											
												
													
														|  | -
 |  | 
 | 
											
												
													
														|  |  validateBasePath
 |  |  validateBasePath
 | 
											
												
													
														|  |  	"The basePath must be an existing directory. "
 |  |  	"The basePath must be an existing directory. "
 | 
											
												
													
														|  |  	fs stat: self basePath then: [ :err :stat | err
 |  |  	fs stat: self basePath then: [ :err :stat | err
 | 
											
										
											
												
													
														|  | @@ -243,6 +237,11 @@ validateBasePath
 | 
											
												
													
														|  |  		ifNotNil: [ console warn: 'Warning: path at --base-path parameter ' , self basePath , ' does not exist.'  ]].
 |  |  		ifNotNil: [ console warn: 'Warning: path at --base-path parameter ' , self basePath , ' does not exist.'  ]].
 | 
											
												
													
														|  |  !
 |  |  !
 | 
											
												
													
														|  |  
 |  |  
 | 
											
												
													
														|  | 
 |  | +withBasePath: aBaseRelativePath
 | 
											
												
													
														|  | 
 |  | +	"return a file path which is relative to the basePath."
 | 
											
												
													
														|  | 
 |  | +	^	path join: self basePath with: aBaseRelativePath
 | 
											
												
													
														|  | 
 |  | +!
 | 
											
												
													
														|  | 
 |  | +
 | 
											
												
													
														|  |  writeData: data toFileNamed: aFilename
 |  |  writeData: data toFileNamed: aFilename
 | 
											
												
													
														|  |  	console log: aFilename
 |  |  	console log: aFilename
 | 
											
												
													
														|  |  ! !
 |  |  ! !
 |