From: Joe Marshall <edu/mit/csail/zurich/jrm>
Date: Wed, 9 Dec 1987 21:37:43 +0000 (+0000)
Subject: Fix RE-CHAR-SET-ADJOIN! to have arg_ascii_integer.
X-Git-Tag: 20090517-FFI~13000
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3f6bac402e689d8c75230daa35dba580dec42a8c;p=mit-scheme.git

Fix RE-CHAR-SET-ADJOIN! to have arg_ascii_integer.
---

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);