Fix two compiler warnings.

diff --git a/v7/src/star-parser/parser.scm b/v7/src/star-parser/parser.scm
index 5442d181d9399fce8d34073188817cd4bc6a1c57..eeca537741de0bb22edd23df447df148797e7d5f 100644 (file)
--- 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 @@
 \f
 ;;;; 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))