Index: setup.scm
==================================================================
--- setup.scm
+++ setup.scm
@@ -88,11 +88,15 @@
val))
(define (s:session-var-del! key)
(session:del! s:session "*sessionvars*" key))
-;;
+;; utility to get all vars as hash table
+(define (s:session-get-sessionvars)
+ (sdat-get-sessionvars s:session))
+
+;; inputs
(define (s:get-input key)
(session:get-input s:session key))
(define (s:load-model model)
(session:load-model s:session model))
Index: stmlrun.scm
==================================================================
--- stmlrun.scm
+++ stmlrun.scm
@@ -18,11 +18,12 @@
(print "Content-type: text/html")
(print "")
(print " EXCEPTION ")
(print " QUERY_STRING is: " (get-environment-variable "QUERY_STRING") "
")
(print "")
- (print " EXCEPTION: " ((condition-property-accessor 'exn 'message) exn))
+ ;; (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) " |
"))