From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Mon, 3 Jun 2013 16:40:57 +0000 (-0700)
Subject: Fix for fix for bug #36887: return '() from IGNORABLE parser.
X-Git-Tag: release-9.2.0~172
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=234bf7dc882e6bdd4b13805edfd3a439269da813;p=mit-scheme.git

Fix for fix for bug #36887: return '() from IGNORABLE parser.

The tail expr was accidentally deleted in the previous commit.
---

diff --git a/src/sf/pardec.scm b/src/sf/pardec.scm
index eae11cd7b..3d9873773 100644
--- a/src/sf/pardec.scm
+++ b/src/sf/pardec.scm
@@ -331,7 +331,8 @@ USA.
 		      (variable/may-ignore! variable)
 		      (warn "ignoring IGNORABLE declaration of free variable"
 			    name))))
-	      names)))
+	      names)
+    '()))
 
 ;; IGNORE causes warnings if an ignored variable actually ends
 ;; up being used.  Mentioning the variable in a sequence will