X-Git-Url: http://git.dolda2000.com/gitweb/?a=blobdiff_plain;f=lib%2Fguile%2Fautodl;h=eab20531fa54af19135ad42afa541eccf0fd5f3a;hb=6d8a9842d7b9859f852332c6c558f0122fcff0f9;hp=669fbfcefd2c1cd38fcb3e26110a655b0d1ff3e3;hpb=e6485bffce48ca28206fd71bf5da70db0efb3493;p=doldaconnect.git diff --git a/lib/guile/autodl b/lib/guile/autodl index 669fbfc..eab2053 100755 --- a/lib/guile/autodl +++ b/lib/guile/autodl @@ -28,7 +28,7 @@ (lambda (key . err) #f)))) ) -(define (infomgs fmt . msg) +(define (infomsg fmt . msg) (if infoport (begin (apply format (cons* infoport (string-append fmt "\n") msg)) @@ -453,7 +453,7 @@ (if (not dc-server) (set! dc-server "localhost")) (catch 'system-error (lambda () - (dc-c&l #t dc-server #t)) + (dc-c&l #f dc-server #t)) (lambda (key . args) (logf "could not connect to server: ~a" (apply format #f (cadr args) (caddr args))) (exit 2)))