From c0a06f95bf495210c5ee11ccb0f40d1c74345649 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 21 Jul 1992 18:27:46 +0000
Subject: [PATCH] Implement FIXNUM? primitive.

---
 v7/src/microcode/fixnum.c | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/v7/src/microcode/fixnum.c b/v7/src/microcode/fixnum.c
index 70b3d621a..04ff66834 100644
--- a/v7/src/microcode/fixnum.c
+++ b/v7/src/microcode/fixnum.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/fixnum.c,v 9.35 1992/01/15 02:23:28 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/fixnum.c,v 9.36 1992/07/21 18:27:46 cph Exp $
 
 Copyright (c) 1987-92 Massachusetts Institute of Technology
 
@@ -60,6 +60,15 @@ DEFUN (arg_unsigned_fixnum, (n), int n)
 
 /* Predicates */
 
+DEFINE_PRIMITIVE ("FIXNUM?", Prim_zero_fixnum_p, 1, 1, 0)
+{
+  PRIMITIVE_HEADER (1);
+  {
+    SCHEME_OBJECT argument = (ARG_REF (1));
+    PRIMITIVE_RETURN (BOOLEAN_TO_OBJECT (FIXNUM_P (argument)));
+  }
+}
+
 DEFINE_PRIMITIVE ("ZERO-FIXNUM?", Prim_zero_fixnum, 1, 1, 0)
 {
   PRIMITIVE_HEADER (1);
-- 
2.25.1