Eliminate compiler warning.

diff --git a/v7/src/runtime/udata.scm b/v7/src/runtime/udata.scm
index f60787f3cde81e7ac09a906bff64075d8406675c..38fb1e59fab76dc3d984b44a88018d039368954f 100644 (file)
--- a/v7/src/runtime/udata.scm
+++ b/v7/src/runtime/udata.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: udata.scm,v 14.19 1999/01/02 06:19:10 cph Exp $
+$Id: udata.scm,v 14.20 1999/03/25 03:44:20 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -201,6 +201,7 @@ contains constants derived from the source program.
                   ;; and contain symbols and fixnums]
                   (let ((kind  (quotient datum #x10000))
                         (count (remainder datum #x10000)))
+                    kind
                     (loop (+ index 1 count))))
                  (else
                   index)))))))