From e29418f204d69b8b773aad7f8d745f3230be7422 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 26 May 2014 16:52:51 +0100 Subject: [PATCH] compiler/cm: fix propagation of log messages --- racket/collects/compiler/cm.rkt | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/racket/collects/compiler/cm.rkt b/racket/collects/compiler/cm.rkt index 21338d869c..7d2fe7ba06 100644 --- a/racket/collects/compiler/cm.rkt +++ b/racket/collects/compiler/cm.rkt @@ -379,8 +379,11 @@ (path? (file-dependency-path (vector-ref l 2)))) (external-dep! (file-dependency-path (vector-ref l 2)) (file-dependency-module? (vector-ref l 2))) - (log-message orig-log (vector-ref l 0) (vector-ref l 1) - (vector-ref l 2))) + (log-message orig-log + (vector-ref l 0) (vector-ref l 3) + (vector-ref l 1) + (vector-ref l 2) + #f)) (loop)))))))) ;; Compile the code: