Index: Makefile ================================================================== --- Makefile +++ Makefile @@ -28,13 +28,13 @@ cookie.scm mutils.scm mtargs.scm apimod.scm \ configfmod.scm commonmod.scm dbmod.scm rmtmod.scm \ debugprint.scm mtver.scm csv-xml.scm servermod.scm \ hostinfo.scm adjutant.scm processmod.scm testsmod.scm \ itemsmod.scm keysmod.scm mtmod.scm rmtmod.scm \ - tasksmod.scm pgdb.scm launchmod.o runsmod.scm \ + tasksmod.scm pgdb.scm launchmod.scm runsmod.scm \ http-transportmod.scm portloggermod.scm clientmod.scm \ - archivemod.scm ezstepsmod.o subrunmod.scm + archivemod.scm ezstepsmod.scm subrunmod.scm GUISRCF = dashboard-context-menu.scm dashboard-tests.scm \ dashboard-guimonitor.scm gutils.scm dcommon.scm tree.scm \ vg.scm Index: megatest.scm ================================================================== --- megatest.scm +++ megatest.scm @@ -2610,7 +2610,8 @@ (else (exit 3))))) ) ) +(import megatest-main) (main) Index: server.scm ================================================================== --- server.scm +++ server.scm @@ -84,11 +84,11 @@ ((fs) result) (else (debug:print-error 0 *default-log-port* "unrecognised transport type: " *transport-type*) result))) -(define (server:record->url servr) +#;(define (server:record->url servr) (handle-exceptions exn (begin (debug:print-info 0 *default-log-port* "Unable to get server url from " servr ", exn=" exn) #f)