summaryrefslogtreecommitdiff
path: root/module/system/base/compile.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/system/base/compile.scm')
-rw-r--r--module/system/base/compile.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
index 6c686505c..bd7f6963c 100644
--- a/module/system/base/compile.scm
+++ b/module/system/base/compile.scm
@@ -25,7 +25,7 @@
:use-module (system il compile)
:use-module (system il glil)
:use-module ((system vm core)
- #:select (the-vm vm-load))
+ #:select (the-vm vm-load objcode->u8vector))
:use-module (system vm assemble)
:use-module (ice-9 regex))
@@ -68,9 +68,9 @@
(if (memq :c opts)
(pprint-glil objcode port)
(uniform-vector-write (objcode->u8vector objcode) port)))))
- (format #t "Wrote ~A\n" comp))
+ (format #t "wrote ~A\n" comp))
(lambda (key . args)
- (format #t "ERROR: During compiling ~A:\n" file)
+ (format #t "ERROR: during compilation of ~A:\n" file)
(display "ERROR: ")
(apply format #t (cadr args) (caddr args))
(newline)
@@ -128,7 +128,7 @@
(lambda (key val) val)))
;;;
-;;;
+;;;
;;;
(define (compile-and-load file . opts)