Implement FIXNUM? primitive.

diff --git a/v7/src/microcode/fixnum.c b/v7/src/microcode/fixnum.c
index 70b3d621aaa0cdaefa901e570c69be5c09abd8c1..04ff668346b8cfdf9ee325ecd40d5d120fc1e7f7 100644 (file)
--- 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)
 \f
 /* 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);