From 32f299eeea1db3dbc5abaf007f4a1bb84af589d1 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Sat, 19 May 2012 10:28:04 -0700 Subject: [PATCH] Echo output from CREF (if any). --- src/etc/compile.scm | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/src/etc/compile.scm b/src/etc/compile.scm index b1642b09c..757212455 100644 --- a/src/etc/compile.scm +++ b/src/etc/compile.scm @@ -72,8 +72,19 @@ USA. (if (file-exists? (pathname-new-type name "sf")) (begin (load (pathname-new-type name "sf")) + (echo-cref-output name) (load (pathname-new-type name "cbf"))) (load "compile"))))) + +(define (echo-cref-output name) + (let ((cref-output-file (pathname-new-type (package-set-pathname name) "crf"))) + (if (file-exists? cref-output-file) + (call-with-input-file cref-output-file + (lambda (inport) + (do ((line (read-line inport) (read-line inport))) + ((eof-object? line)) + (write-string line) + (newline))))))) (define (compile-bootstrap-1) (load-option 'SF) -- 2.25.1