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

remove debugging printf (merge to 4.2.2)

Browse Source 
svn: r16058
This commit is contained in:
Matthew Flatt 2009-09-17 23:09:51 +00:00
parent f6cdeb3433
commit ebcacaa06d
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/setup/main.ss
View File

@ -129,7 +129,6 @@
;; If something goes wrong, of course, give up on .zo files. ;; If something goes wrong, of course, give up on .zo files.
(parameterize ([uncaught-exception-handler (parameterize ([uncaught-exception-handler
(lambda (exn) (lambda (exn)
(printf "~s\n" (exn-message exn))
(when (exn:break? exn) (exit 1)) (when (exn:break? exn) (exit 1))
(if skip-zo? (if skip-zo?
(escape (escape

11
collects/setup/scribble.ss
View File

@ -289,10 +289,13 @@
(std-path "scheme.css") (std-path "scheme.css")
(std-path "scribble-common.js"))) (std-path "scribble-common.js")))
null)] null)]
;; up-path is #t, which makes it go to the (user's) start page ;; For main-directory, non-start files, up-path is #t, which makes the
;; (using cookies) -- except when it is the start page itself ;; "up" link go to the (user's) start page using cookies. For other files,
;; (one of the two) ;;
[up-path (not root?)] [up-path (and (not root?)
(if main?
#t
(build-path (find-user-doc-dir) "index.html")))]
[search-box? #t])))) [search-box? #t]))))
(define (pick-dest latex-dest doc) (define (pick-dest latex-dest doc)