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

Removing newlines from debug messages

Browse Source
This commit is contained in:
Jay McCarthy 2010-10-30 08:31:23 -06:00
parent c14382bf80
commit 46e2e7931a
3 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/compiler/demodularizer/gc-toplevels.rkt
View File

@ -41,12 +41,12 @@
(index<=? stx-pos ordered-stxs))
(prefix-syntax-start new-prefix))
form))
(log-debug (format "Total TLS: ~S~n" (length normal-tls)))
(log-debug (format "Used TLS: ~S~n" normal-tls))
(log-debug (format "Total lifts: ~S~n" (length lifts)))
(log-debug (format "Used lifts: ~S~n" lifts))
(log-debug (format "Total stxs: ~S~n" (length stxs)))
(log-debug (format "Used stxs: ~S~n" ordered-stxs))
(log-debug (format "Total TLS: ~S" (length normal-tls)))
(log-debug (format "Used TLS: ~S" normal-tls))
(log-debug (format "Total lifts: ~S" (length lifts)))
(log-debug (format "Used lifts: ~S" lifts))
(log-debug (format "Total stxs: ~S" (length stxs)))
(log-debug (format "Used stxs: ~S" ordered-stxs))
(make-compilation-top
max-let-depth
new-prefix

2
collects/compiler/demodularizer/mpi.rkt
View File

@ -22,7 +22,7 @@
(define (mpi->path* mpi)
(hash-ref MODULE-PATHS mpi
(lambda ()
(error 'mpi->path* "Cannot locate cache of path for ~S~n" mpi))))
(error 'mpi->path* "Cannot locate cache of path for ~S" mpi))))
(provide/contract
[current-module-path (parameter/c path-string?)]

12
collects/compiler/demodularizer/nodep.rkt
View File

@ -57,7 +57,7 @@
(current-directory)))
(define-values (modvar-rewrite lang-info ctop)
(begin
(log-debug (format "Load ~S @ ~S~n" pth phase))
(log-debug (format "Load ~S @ ~S" pth phase))
(nodep/dir
(parameterize ([current-load-relative-directory base-directory])
(path->comp-top
@ -98,7 +98,7 @@
(when (symbol? tl)
(hash-set! provide-ht (intern tl) i)))
(lambda (sym pos)
(log-debug (format "Looking up ~S@~a~n" sym pos))
(log-debug (format "Looking up ~S@~a" sym pos))
(hash-ref provide-ht (intern sym)
(lambda ()
(error 'provide->toplevel "Cannot find ~S in ~S" sym prefix)))))
@ -114,15 +114,15 @@
[tl
(void)])
(prefix-toplevels new-prefix))
(log-debug (format "[~S] module-variables: ~S~n" name (length (filter module-variable? (prefix-toplevels new-prefix)))))
(log-debug (format "[~S] module-variables: ~S" name (length (filter module-variable? (prefix-toplevels new-prefix)))))
(values (make-modvar-rewrite self-modidx (construct-provide->toplevel new-prefix provides))
lang-info
(append (requires->modlist requires phase)
(if (and phase (zero? phase))
(begin (log-debug (format "[~S] lang-info : ~S~n" name lang-info)) ; XXX Seems to always be #f now
(begin (log-debug (format "[~S] lang-info : ~S" name lang-info)) ; XXX Seems to always be #f now
(list (make-mod name srcname self-modidx new-prefix provides requires body empty
unexported max-let-depth dummy lang-info internal-context)))
(begin (log-debug (format "[~S] Dropping module @ ~S~n" name phase))
(begin (log-debug (format "[~S] Dropping module @ ~S" name phase))
empty))))]
[else (error 'nodep-module "huh?: ~e" mod-form)]))
@ -168,7 +168,7 @@
[(@phase? ct)
(extract-modules (@phase-ctop ct))]
[else
(error 'extract-modules "Unknown extraction: ~S~n" ct)]))
(error 'extract-modules "Unknown extraction: ~S" ct)]))
(provide/contract
[struct modvar-rewrite