From e9a6782a1dbe7659bc444d447376bd7fb50c2351 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 6 Apr 1993 21:34:02 +0000
Subject: [PATCH] Implement primitive to detect availability of `select' system
 call.

---
 v7/src/microcode/pruxio.c | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/v7/src/microcode/pruxio.c b/v7/src/microcode/pruxio.c
index b69eca2fc..f9f1b02f2 100644
--- a/v7/src/microcode/pruxio.c
+++ b/v7/src/microcode/pruxio.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: pruxio.c,v 1.1 1993/03/10 17:56:54 cph Exp $
+$Id: pruxio.c,v 1.2 1993/04/06 21:34:02 cph Exp $
 
 Copyright (c) 1993 Massachusetts Institute of Technology
 
@@ -45,6 +45,12 @@ extern Tchannel EXFUN (arg_channel, (int arg_number));
 extern int EXFUN (UX_channel_descriptor, (Tchannel channel));
 #endif
 
+DEFINE_PRIMITIVE ("HAVE-SELECT?", Prim_have_select_p, 0, 0, 0)
+{
+  PRIMITIVE_HEADER (0);
+  PRIMITIVE_RETURN (BOOLEAN_TO_OBJECT (UX_have_select_p));
+}
+
 DEFINE_PRIMITIVE ("SELECT-REGISTRY-SIZE", Prim_selreg_size, 0, 0, 0)
 {
   PRIMITIVE_HEADER (0);
-- 
2.25.1