From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 25 Mar 1999 03:44:20 +0000 (+0000)
Subject: Eliminate compiler warning.
X-Git-Tag: 20090517-FFI~4575
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e3d8523997abab08d8037bac473a9d936a81f0cb;p=mit-scheme.git

Eliminate compiler warning.
---

diff --git a/v7/src/runtime/udata.scm b/v7/src/runtime/udata.scm
index f60787f3c..38fb1e59f 100644
--- 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)))))))