From c682582dcb0b00e6780ea3f5218f0c07318b2a7d Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 26 Jun 2001 21:28:54 +0000
Subject: [PATCH] Fix two compiler warnings.

---
 v7/src/star-parser/parser.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/v7/src/star-parser/parser.scm b/v7/src/star-parser/parser.scm
index 07d61e8ec..5442d181d 100644
--- a/v7/src/star-parser/parser.scm
+++ b/v7/src/star-parser/parser.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: parser.scm,v 1.4 2001/06/26 21:16:46 cph Exp $
+;;; $Id: parser.scm,v 1.5 2001/06/26 21:28:54 cph Exp $
 ;;;
 ;;; Copyright (c) 2001 Massachusetts Institute of Technology
 ;;;
@@ -163,6 +163,7 @@
     if-fail))
 
 (define-parser (default value parser)
+  if-fail
   (compile-parser-expression parser pointers if-succeed
     (lambda (pointers)
       (if-succeed pointers `(VECTOR ,value)))))
@@ -201,7 +202,7 @@
 	       ,(if-fail (new-backtrack-pointer start-pointers pointers))
 	       (BEGIN
 		 (DISCARD-PARSER-BUFFER-HEAD! ,*buffer-name*)
-		 ,result)))
+		 ,(if-succeed pointers result))))
 	if-fail))))
 
 (define-parser (top-level parser)
-- 
2.25.1