build-system/gnu: Delay resolution of (@ (gnu packages cmake) cmake).
* guix/build-system/cmake.scm (default-cmake): New procedure. (cmake-build): Use it.
This commit is contained in:
		
							parent
							
								
									00554b2a0f
								
							
						
					
					
						commit
						0a2873e515
					
				
					 1 changed files with 8 additions and 1 deletions
				
			
		| 
						 | 
					@ -35,13 +35,20 @@
 | 
				
			||||||
;;
 | 
					;;
 | 
				
			||||||
;; Code:
 | 
					;; Code:
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					(define (default-cmake)
 | 
				
			||||||
 | 
					  "Return the default CMake package."
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  ;; Do not use `@' to avoid introducing circular dependencies.
 | 
				
			||||||
 | 
					  (let ((module (resolve-interface '(gnu packages cmake))))
 | 
				
			||||||
 | 
					    (module-ref module cmake)))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
(define* (cmake-build store name source inputs
 | 
					(define* (cmake-build store name source inputs
 | 
				
			||||||
                     #:key (guile #f)
 | 
					                     #:key (guile #f)
 | 
				
			||||||
                     (outputs '("out")) (configure-flags ''())
 | 
					                     (outputs '("out")) (configure-flags ''())
 | 
				
			||||||
                     (search-paths '())
 | 
					                     (search-paths '())
 | 
				
			||||||
                     (make-flags ''())
 | 
					                     (make-flags ''())
 | 
				
			||||||
                     (patches ''()) (patch-flags ''("--batch" "-p1"))
 | 
					                     (patches ''()) (patch-flags ''("--batch" "-p1"))
 | 
				
			||||||
                     (cmake (@ (gnu packages cmake) cmake))
 | 
					                     (cmake (default-cmake))
 | 
				
			||||||
                     (out-of-source? #f)
 | 
					                     (out-of-source? #f)
 | 
				
			||||||
                     (tests? #t)
 | 
					                     (tests? #t)
 | 
				
			||||||
                     (test-target "test")
 | 
					                     (test-target "test")
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Reference in a new issue