diff options
Diffstat (limited to 'guile/tests/session-record-port.scm')
-rw-r--r-- | guile/tests/session-record-port.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guile/tests/session-record-port.scm b/guile/tests/session-record-port.scm index 0eafefafa7..8764d43655 100644 --- a/guile/tests/session-record-port.scm +++ b/guile/tests/session-record-port.scm @@ -83,7 +83,7 @@ (let ((server (make-session connection-end/server))) (set-session-priorities! server priorities) - (set-session-transport-port! server (cdr socket-pair)) + (set-session-transport-fd! server (fileno (cdr socket-pair))) (let ((cred (make-anonymous-server-credentials)) (dh-params (import-dh-params "dh-parameters.pem"))) ;; Note: DH parameter generation can take some time. |