Megatest

Diff
Login

Differences From Artifact [8f1718bc5f]:

To Artifact [7eaf140202]:


814
815
816
817
818
819
820

821
822
823
824
825
826
827
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828







+







	      (set! *runconfigdat* rdat)
	      (set! *toppath*      toppath)
	      (set! *configstatus* 'partial))
	    (begin
	      (debug:print-error 0 *default-log-port* "No " mtconfig " file found. Giving up.")
	      (exit 2))))))
    ;; additional house keeping
    (common:set-transport-type) ;; DEPRECATED. Please always call (server:get-transport), if it is a frequent call you can cache it.
    (let* ((linktree (or (getenv "MT_LINKTREE")
			 (if *configdat* (configf:lookup *configdat* "setup" "linktree") #f))))
      (if linktree
	  (begin
	    (if (not (file-exists? linktree))
		(begin
		  (handle-exceptions