Index: stmlcommon.scm
==================================================================
--- stmlcommon.scm
+++ stmlcommon.scm
@@ -74,21 +74,22 @@
(get-environment-variables))))
;; return something useful to the user
(print "Content-type: text/html")
(print "")
(print " EXCEPTION ")
+ (print "CRASH!
")
(print " Please notify support at " (sdat-get-domain s:session) " that the error log is stmlcrash-" (current-process-id) ".log
")
- (print "")
- ;; (print " EXCEPTION: " ((condition-property-accessor 'exn 'message) exn))
- ;; (print-error-message exn)
- ;; (print-call-chain)
- (print "
")
- (print "")
- (for-each (lambda (var)
- (print "| " (car var) " | " (cdr var) " |
"))
- (get-environment-variables))
- (print "
")
+ ;; (print "")
+ ;; ;; (print " EXCEPTION: " ((condition-property-accessor 'exn 'message) exn))
+ ;; ;; (print-error-message exn)
+ ;; ;; (print-call-chain)
+ ;; (print "
")
+ ;; (print "")
+ ;; (for-each (lambda (var)
+ ;; (print "| " (car var) " | " (cdr var) " |
"))
+ ;; (get-environment-variables))
+ ;; (print "
")
(print "")))
(if proc (proc s:session) (stml:cgi-session s:session))
;; (raise-error)
;; (exit)
))