From 98f59f62413fb916d938f3b4edc9475d3d22ad91 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 9 Sep 2008 04:43:48 +0000
Subject: [PATCH] Implement STRUCTURE-PARSER-VALUES.

---
 v7/src/runtime/runtime.pkg          | 3 ++-
 v7/src/runtime/structure-parser.scm | 5 ++++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 64ef41d3b..7b387cca9 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.674 2008/09/07 04:33:13 cph Exp $
+$Id: runtime.pkg,v 14.675 2008/09/09 04:43:48 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -5289,6 +5289,7 @@ USA.
 	  list-parser
 	  map-structure-parser-values
 	  object-parser
+	  structure-parser-values
 	  structure-parser-values->list
 	  structure-parser-values-length
 	  structure-parser-values-ref
diff --git a/v7/src/runtime/structure-parser.scm b/v7/src/runtime/structure-parser.scm
index bad16206d..fc786e9c2 100644
--- a/v7/src/runtime/structure-parser.scm
+++ b/v7/src/runtime/structure-parser.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: structure-parser.scm,v 14.3 2008/09/08 18:19:54 cph Exp $
+$Id: structure-parser.scm,v 14.4 2008/09/09 04:43:48 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -661,6 +661,9 @@ USA.
 	    (error:not-list items 'LIST->STRUCTURE-PARSER-VALUES))
 	'())))
 
+(define (structure-parser-values . items)
+  (list->structure-parser-values items))
+
 (define (map-structure-parser-values procedure vals)
   (if (null? vals)
       vals
-- 
2.25.1