From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 26 Jun 2001 21:29:41 +0000 (+0000)
Subject: Fix two compiler warnings.
X-Git-Tag: 20090517-FFI~2697
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9ea064e8d2259a4cb0c45864f75dcab2d5e488f4;p=mit-scheme.git

Fix two compiler warnings.
---

diff --git a/v7/src/star-parser/parser.scm b/v7/src/star-parser/parser.scm
index 5442d181d..eeca53774 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.5 2001/06/26 21:28:54 cph Exp $
+;;; $Id: parser.scm,v 1.6 2001/06/26 21:29:41 cph Exp $
 ;;;
 ;;; Copyright (c) 2001 Massachusetts Institute of Technology
 ;;;
@@ -128,16 +128,16 @@
 
 ;;;; Parsers
 
-(define-macro (define-parser form compiler-body)
+(define-macro (define-parser form . compiler-body)
   (let ((name (car form))
 	(parameters (cdr form)))
     (if (symbol? parameters)
 	`(DEFINE-PARSER-COMPILER ',name #F
 	   (LAMBDA (POINTERS IF-SUCCEED IF-FAIL ,parameters)
-	     ,compiler-body))
+	     ,@compiler-body))
 	`(DEFINE-PARSER-COMPILER ',name ,(length parameters)
 	   (LAMBDA (POINTERS IF-SUCCEED IF-FAIL ,@parameters)
-	     ,compiler-body)))))
+	     ,@compiler-body)))))
 
 (define (define-parser-compiler keyword arity compiler)
   (hash-table/put! parser-compilers keyword (cons arity compiler))