mescc: Use a.out as default executable name.

* module/mescc/mescc.scm (hex2->elf): Use a.out as default executable
name.

diff --git a/module/mescc/mescc.scm b/module/mescc/mescc.scm
index 45f9c9137d59582592be800fc3014a70c25d19f1..33603c2ea1030992944491c8d1f3d7458dd3e98f 100644 (file)
--- a/module/mescc/mescc.scm
+++ b/module/mescc/mescc.scm
@@ -198,7 +198,7 @@
 (define* (hex2->elf options hex2-files #:key elf-footer)
   (let* ((input-file-name (car (option-ref options '() '("a.c"))))
          (elf-file-name (cond ((option-ref options 'output #f))
-                              (else (replace-suffix input-file-name ""))))
+                              (else "a.out")))
          (verbose? (option-ref options 'verbose #f))
          (hex2 (or (getenv "HEX2") "hex2"))
          (machine (option-ref options 'machine "32"))