Fixed Warning output in parallel scribble build

This commit is contained in:
Kevin Tew 2010-12-27 14:28:56 -07:00
parent 6fe8643194
commit aa42f4a582

View File

@ -137,7 +137,7 @@
(lambda (workerid) (list workerid program-name (verbose) only-dirs latex-dest auto-main? auto-user?))
docs
(lambda (x) (s-exp->fasl (serialize x)))
(lambda (work r outstr errstr) (printf "~a" outstr) (deserialize (fasl->s-exp r)))
(lambda (work r outstr errstr) (printf "~a" outstr) (printf "~a" errstr) (deserialize (fasl->s-exp r)))
(lambda (work errmsg outstr errstr) (parallel-do-default-error-handler work errmsg outstr errstr) #f)
(define-worker (get-doc-info-worker workerid program-name verbosev only-dirs latex-dest auto-main? auto-user?)
(define ((get-doc-info-local program-name only-dirs latex-dest auto-main? auto-user?) doc)
@ -321,8 +321,8 @@
(say-rendering i)
(s-exp->fasl (serialize (info-doc i))))
(lambda (i r outstr errstr)
#;(printf "~a" outstr)
#;(printf "~a" errstr)
(printf "~a" outstr)
(printf "~a" errstr)
(update-info i (deserialize (fasl->s-exp r))))
(lambda (i errmsg outstr errstr) (parallel-do-default-error-handler i errmsg outstr errstr) #f)
(define-worker (build-again!-worker2 workerid verbosev latex-dest)