*** empty log message ***

diff --git a/v7/src/sf/usiexp.scm b/v7/src/sf/usiexp.scm
index aa3bea70280cdfa1c075c471dc62d14158e34d29..c73819e692d6aabfd284678bd6f131aa49877819 100644 (file)
--- 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))