Use log-vm-info instead of printf.
authorTony Garnock-Jones <tonygarnockjones@gmail.com>
Sun, 15 Jul 2018 11:43:19 +0100
changeset 383 bcad96e920f0
parent 382 a079923f9086
child 384 2d82efe83d59
Use log-vm-info instead of printf.
experiments/little-smalltalk/jit-SmallWorld-2015.rkt
--- 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)