Use log-vm-info instead of printf.
--- a/experiments/little-smalltalk/jit-SmallWorld-2015.rkt Sun Jul 15 11:38:52 2018 +0100
+++ b/experiments/little-smalltalk/jit-SmallWorld-2015.rkt Sun Jul 15 11:43:19 2018 +0100
@@ -1061,7 +1061,7 @@
(let* ((image-filename "SmallWorld/src/image")
(vm (call-with-input-file image-filename (lambda (fh) (read-image image-filename fh)))))
- (printf "Sending 'SmallWorld startUp'...\n")
+ (log-vm-info "Sending 'SmallWorld startUp'...")
(thread-wait (thread (lambda ()
(define result (doIt vm "SmallWorld startUp"))
(log-vm-info "Final startUp result: ~a" result)
@@ -1069,7 +1069,7 @@
(log-vm-info "Filing in ~a" a)
(doIt vm (format "(File openRead: '~a') fileIn" a)))
(yield))))
- (printf "... terminating.\n"))
+ (log-vm-info "... terminating."))
;;; Local Variables:
;;; eval: (put 'primitive-action 'scheme-indent-function 1)