scripts: build: Format strings before calling display-hint.
* guix/scripts/build.scm(%standard-cross-build-options): Format hint string. %standard-cross-build-options: Ditto. Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
This commit is contained in:
		
							parent
							
								
									51ab8b8553
								
							
						
					
					
						commit
						9022b942ec
					
				
					 1 changed files with 6 additions and 4 deletions
				
			
		| 
						 | 
				
			
			@ -383,8 +383,9 @@ use '--no-offload' instead~%")))
 | 
			
		|||
                          (format #f (G_ "Did you mean @code{~a}?
 | 
			
		||||
Try @option{--list-targets} to view available targets.~%")
 | 
			
		||||
                                  closest))
 | 
			
		||||
                         (display-hint (G_ "\
 | 
			
		||||
Try @option{--list-targets} to view available targets.~%")))
 | 
			
		||||
                         (display-hint
 | 
			
		||||
                          (format #f (G_ "\
 | 
			
		||||
Try @option{--list-targets} to view available targets.~%"))))
 | 
			
		||||
                     (exit 1))))))))
 | 
			
		||||
 | 
			
		||||
(define %standard-native-build-options
 | 
			
		||||
| 
						 | 
				
			
			@ -409,8 +410,9 @@ Try @option{--list-targets} to view available targets.~%")))
 | 
			
		|||
                          (format #f (G_ "Did you mean @code{~a}?
 | 
			
		||||
Try @option{--list-systems} to view available system types.~%")
 | 
			
		||||
                                  closest))
 | 
			
		||||
                         (display-hint (G_ "\
 | 
			
		||||
Try @option{--list-systems} to view available system types.~%")))
 | 
			
		||||
                         (display-hint
 | 
			
		||||
                          (format #f (G_ "\
 | 
			
		||||
Try @option{--list-systems} to view available system types.~%"))))
 | 
			
		||||
                     (exit 1))))))))
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Reference in a new issue