From: Chris Hanson Date: Wed, 25 Jan 2017 05:01:29 +0000 (-0800) Subject: Tweak pagination. X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~85 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3412a09b0ab90bad2ecbe0d4e1ac0c7a15c063cd;p=mit-scheme.git Tweak pagination. --- 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