From 8e0dba9e41ccb5dffd58447043202e49d8f1a09f Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 7 Jul 1993 20:01:39 +0000 Subject: [PATCH] Don't use select-registry primitives unless the operating system supports the `select' system Call. --- v7/src/runtime/runtime.pkg | 4 +++- v7/src/runtime/thread.scm | 4 ++-- v8/src/runtime/runtime.pkg | 4 +++- 3 files changed, 8 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg index 2fde34c13..0beb1ac75 100644 --- a/v7/src/runtime/runtime.pkg +++ b/v7/src/runtime/runtime.pkg @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: runtime.pkg,v 14.183 1993/07/01 23:07:57 cph Exp $ +$Id: runtime.pkg,v 14.184 1993/07/07 20:01:39 gjr Exp $ Copyright (c) 1988-1993 Massachusetts Institute of Technology @@ -1690,6 +1690,8 @@ MIT in each case. |# port-error-test) (export (runtime x-graphics) have-select?) + (export (runtime thread) + have-select?) (initialization (initialize-package!))) (define-package (runtime program-copier) diff --git a/v7/src/runtime/thread.scm b/v7/src/runtime/thread.scm index ed139c272..e6bcd2f03 100644 --- a/v7/src/runtime/thread.scm +++ b/v7/src/runtime/thread.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: thread.scm,v 1.15 1993/07/01 23:08:04 cph Exp $ +$Id: thread.scm,v 1.16 1993/07/07 20:01:27 gjr Exp $ Copyright (c) 1991-1993 Massachusetts Institute of Technology @@ -387,7 +387,7 @@ MIT in each case. |# next) (define (initialize-input-blocking) - (set! input-registry (make-select-registry)) + (set! input-registry (and have-select? (make-select-registry))) (set! input-registrations #f) unspecific) diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg index 2fde34c13..0beb1ac75 100644 --- a/v8/src/runtime/runtime.pkg +++ b/v8/src/runtime/runtime.pkg @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: runtime.pkg,v 14.183 1993/07/01 23:07:57 cph Exp $ +$Id: runtime.pkg,v 14.184 1993/07/07 20:01:39 gjr Exp $ Copyright (c) 1988-1993 Massachusetts Institute of Technology @@ -1690,6 +1690,8 @@ MIT in each case. |# port-error-test) (export (runtime x-graphics) have-select?) + (export (runtime thread) + have-select?) (initialization (initialize-package!))) (define-package (runtime program-copier) -- 2.25.1