scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

comment added

This commit is contained in:
interp 2002-11-05 22:20:47 +00:00
parent 45a4c810a1
commit d4ea641e14
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/httpd/surflets/surflet-handler.scm
View File

@ -555,6 +555,10 @@
(format #f "Error in servlet ~s." path-string) (format #f "Error in servlet ~s." path-string)
condition)) condition))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; DEBUGGING
(define (debug fmt . args) (define (debug fmt . args)
(if *debug* (if *debug*
(format #t "DEBUG: ~?~%" fmt args) (format #t "DEBUG: ~?~%" fmt args)