From: Taylor R Campbell <campbell@mumble.net>
Date: Thu, 15 Aug 2019 04:45:27 +0000 (+0000)
Subject: Avoid spurious fallthrough (fortunately harmless here).
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~80^2~3
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2f61ba46503c098a04fda4d6ac9306bbf50468be;p=mit-scheme.git

Avoid spurious fallthrough (fortunately harmless here).
---

diff --git a/src/microcode/debug.c b/src/microcode/debug.c
index 13e5e44c1..0d22b2865 100644
--- a/src/microcode/debug.c
+++ b/src/microcode/debug.c
@@ -633,6 +633,7 @@ print_object (outf_channel stream, SCHEME_OBJECT obj)
 	SCHEME_OBJECT entry =
 	  (MAKE_POINTER_OBJECT (TC_COMPILED_ENTRY, entry_addr));
 	print_compiled_entry (stream, entry);
+	return;
       }
 #endif