suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

compiler/cm: fix propagation of log messages

Browse Source
This commit is contained in:
Matthew Flatt 2014-05-26 16:52:51 +01:00
parent e16b6fd06e
commit e29418f204
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
racket/collects/compiler/cm.rkt
View File

@ -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: