From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 22 Dec 1993 13:59:53 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: 20090517-FFI~7349
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9dc183c0e270ea6c57557f4771f62915bc0e41f4;p=mit-scheme.git

*** empty log message ***
---

diff --git a/v7/src/sf/usiexp.scm b/v7/src/sf/usiexp.scm
index aa3bea702..c73819e69 100644
--- a/v7/src/sf/usiexp.scm
+++ b/v7/src/sf/usiexp.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: usiexp.scm,v 4.24 1993/12/22 08:09:24 adams Exp $
+$Id: usiexp.scm,v 4.25 1993/12/22 13:59:53 adams Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -475,6 +475,7 @@ MIT in each case. |#
 (define ucode-type/record (ucode-type record))
 (define ucode-type/weak-cons (ucode-type weak-cons))
 (define ucode-type/big-flonum (ucode-type big-flonum))
+(define ucode-type/recnum (ucode-type recnum))
 (define ucode-type/fixnum (ucode-type fixnum))
 (define ucode-type/positive-fixnum (ucode-type positive-fixnum))
 (define ucode-type/negative-fixnum (ucode-type negative-fixnum))