From 3412a09b0ab90bad2ecbe0d4e1ac0c7a15c063cd Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 24 Jan 2017 21:01:29 -0800 Subject: [PATCH] Tweak pagination. --- src/runtime/process.scm | 2 +- src/runtime/socket.scm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/runtime/process.scm b/src/runtime/process.scm index 9c20e256b..055c1c66e 100644 --- a/src/runtime/process.scm +++ b/src/runtime/process.scm @@ -365,7 +365,7 @@ USA. (define-integrable subprocess-job-control-available? (ucode-primitive os-job-control? 0)) - + (define (subprocess-continue-background process) ((ucode-primitive process-continue-background 1) (subprocess-index process))) diff --git a/src/runtime/socket.scm b/src/runtime/socket.scm index a82c391cd..5aee4b00d 100644 --- a/src/runtime/socket.scm +++ b/src/runtime/socket.scm @@ -71,7 +71,7 @@ USA. (define (close-unix-server-socket server-socket) (channel-close server-socket)) - + (define (tcp-server-connection-accept server-socket block? peer-address) (connection-accept (ucode-primitive new-tcp-server-connection-accept 3) server-socket block? peer-address -- 2.25.1