From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 9 Sep 2008 04:43:48 +0000 (+0000)
Subject: Implement STRUCTURE-PARSER-VALUES.
X-Git-Tag: 20090517-FFI~170
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=98f59f62413fb916d938f3b4edc9475d3d22ad91;p=mit-scheme.git

Implement STRUCTURE-PARSER-VALUES.
---

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