From: Chris Hanson <cph@google.com>
Date: Mon, 14 May 2018 19:31:25 +0000 (-0700)
Subject: A few more fall-through comments.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~40
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cb58c99d0baf84263ada1870a91a2f65e1f33901;p=mit-scheme.git

A few more fall-through comments.
---

diff --git a/src/microcode/syntax.c b/src/microcode/syntax.c
index ed9a9f576..8a885a247 100644
--- a/src/microcode/syntax.c
+++ b/src/microcode/syntax.c
@@ -507,6 +507,7 @@ DEFINE_PRIMITIVE ("SCAN-LIST-FORWARD", Prim_scan_list_forward, 7, 7, 0)
 	case syntaxcode_charquote:
 	  LOSE_IF_RIGHT_END (start);
 	  MOVE_RIGHT (start);
+	  /* fall through */
 
 	case syntaxcode_word:
 	case syntaxcode_symbol:
@@ -976,6 +977,7 @@ DEFINE_PRIMITIVE ("SCAN-SEXPS-FORWARD", Prim_scan_sexps_forward, 7, 7, 0)
 		      quoted = true;
 		      DONE_IF (true);
 		    }
+		  /* fall through */
 
 		case syntaxcode_word:
 		case syntaxcode_symbol: