From 3f6bac402e689d8c75230daa35dba580dec42a8c Mon Sep 17 00:00:00 2001
From: Joe Marshall <edu/mit/csail/zurich/jrm>
Date: Wed, 9 Dec 1987 21:37:43 +0000
Subject: [PATCH] Fix RE-CHAR-SET-ADJOIN! to have arg_ascii_integer.

---
 v7/src/microcode/rgxprim.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/microcode/rgxprim.c b/v7/src/microcode/rgxprim.c
index 35262cbc1..f84cdf8d4 100644
--- a/v7/src/microcode/rgxprim.c
+++ b/v7/src/microcode/rgxprim.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/rgxprim.c,v 1.5 1987/11/23 05:18:09 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/rgxprim.c,v 1.6 1987/12/09 21:37:43 jrm Rel $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -100,7 +100,7 @@ DEFINE_PRIMITIVE ("RE-CHAR-SET-ADJOIN!", Prim_re_char_set_adjoin, 2)
   PRIMITIVE_HEADER (2);
 
   CHECK_ARG (1, RE_CHAR_SET_P);
-  ascii = (arg_ascii_char (2));
+  ascii = (arg_ascii_integer (2));
   (* (string_pointer ((ARG_REF (1)), (ascii / ASCII_LENGTH)))) |=
     (1 << (ascii % ASCII_LENGTH));
   PRIMITIVE_RETURN (NIL);
-- 
2.25.1