build: Support Debian build, install.

[mes.git] / module / mescc / mescc.scm

diff --git a/module/mescc/mescc.scm b/module/mescc/mescc.scm
index 86deb0b362799184573dc1b95713de6fe3a8d4af..b384b90e7042d32c4c72450b038acd58f842ce20 100644 (file)
--- a/module/mescc/mescc.scm
+++ b/module/mescc/mescc.scm
@@ -228,10 +228,10 @@
       (if (string-null? prefix) o (string-append prefix "/" o)))
     (prefix-file file-name)))
 
-(define (assert-system* . commands)
-  (let ((status (apply system* commands)))
+(define (assert-system* . args)
+  (let ((status (apply system* args)))
     (when (not (zero? status))
-      (stderr "mescc: failed: ~a\n" (string-join command))
+      (stderr "mescc: failed: ~a\n" (string-join args))
       (exit status))
     status))