From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 15 Oct 1997 01:22:00 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~4995
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=82e8f26057526f0cb56122bbccae2b5eb5f1c5d2;p=mit-scheme.git

Fix typo.
---

diff --git a/v7/src/microcode/char.c b/v7/src/microcode/char.c
index 9c0da8d06..ec31b30bf 100644
--- a/v7/src/microcode/char.c
+++ b/v7/src/microcode/char.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: char.c,v 9.31 1997/10/15 01:17:07 adams Exp $
+$Id: char.c,v 9.32 1997/10/15 01:22:00 adams Exp $
 
 Copyright (c) 1987-1991 Massachusetts Institute of Technology
 
@@ -59,7 +59,7 @@ DEFUN (arg_ascii_integer, (n), int n)
 DEFINE_PRIMITIVE ("CHAR?", Prim_char_p, 1, 1, 0)
 {
   PRIMITIVE_HEADER (1);
-  PRIMITIVE_RETURN (BOOLEAN_TO_OBJECT (CHARACTER_P (arg_ref (1))));
+  PRIMITIVE_RETURN (BOOLEAN_TO_OBJECT (CHARACTER_P (ARG_REF (1))));
 }
 
 DEFINE_PRIMITIVE ("MAKE-CHAR", Prim_make_char, 2, 2, 0)