Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-21 22:59:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Raise an error if library compilation fails

Browse source 
If a program tries to build a dependent library and the compilation fails, we need to know about it
This commit is contained in:
Justin Ethier 2020-09-23 12:21:56 -04:00
parent 05d65b15b0
commit f849a739af
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
cyclone.scm
View file

@ -279,8 +279,10 @@
(for-each (for-each
(lambda (lib-dep) (lambda (lib-dep)
(when (recompile? lib-dep append-dirs prepend-dirs) (when (recompile? lib-dep append-dirs prepend-dirs)
(system (string-append "cyclone " (let ((result (system (string-append "cyclone "
(lib:import->filename lib-dep ".sld" append-dirs prepend-dirs))))) (lib:import->filename lib-dep ".sld" append-dirs prepend-dirs)))))
(when (> result 0)
(error "Unable to compile library" lib-dep)))))
lib-deps)) lib-deps))
;; Validate syntax of basic forms ;; Validate syntax of basic forms