@@ -505,15 +505,15 @@ (define (main) (make-and-init-bigdata) ;; set up the functions in http transport - (hash-table-set! *http-functions* 'api:process-request api:process-request) - (hash-table-set! *http-functions* 'http-transport:main-page http-transport:main-page) - (hash-table-set! *http-functions* 'http-transport:show-jquery http-transport:show-jquery) - (hash-table-set! *http-functions* 'http-transport:html-test-log http-transport:html-test-log) - (hash-table-set! *http-functions* 'http-transport:html-dboard http-transport:html-dboard) +;; (hash-table-set! *http-functions* 'api:process-request api:process-request) +;; (hash-table-set! *http-functions* 'http-transport:main-page http-transport:main-page) +;; (hash-table-set! *http-functions* 'http-transport:show-jquery http-transport:show-jquery) +;; (hash-table-set! *http-functions* 'http-transport:html-test-log http-transport:html-test-log) +;; (hash-table-set! *http-functions* 'http-transport:html-dboard http-transport:html-dboard) ;; load the ~/.megatestrc file, put (use trace)(trace-call-sites #t)(trace function-you-want-to-trace) in this file ;; (let ((debugcontrolf (conc (get-environment-variable "HOME") "/.megatestrc"))) (if (common:file-exists? debugcontrolf)