Implement STRUCTURE-PARSER-VALUES.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 64ef41d3bb1c7955e3daa9dc07a0c7cb620891c8..7b387cca9c359ed638c2faee4a5eba3441c92f9e 100644 (file)
--- 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 bad16206de6e4093549fc6a99f317af718d57f41..fc786e9c2563578ce97d8b7e7da0c6f7dee7dbfa 100644 (file)
--- 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