From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 30 Oct 2004 01:24:31 +0000 (+0000)
Subject: Update to match changed upstream.
X-Git-Tag: 20090517-FFI~1501
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a344175c348084b82b0128b2b126d85ace4cf202;p=mit-scheme.git

Update to match changed upstream.
---

diff --git a/v7/src/ssp/ssp.pkg b/v7/src/ssp/ssp.pkg
index 840f7c195..97636889e 100644
--- a/v7/src/ssp/ssp.pkg
+++ b/v7/src/ssp/ssp.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: ssp.pkg,v 1.4 2004/10/29 05:47:42 cph Exp $
+$Id: ssp.pkg,v 1.5 2004/10/30 01:24:31 cph Exp $
 
 Copyright 2003,2004 Massachusetts Institute of Technology
 
@@ -118,8 +118,6 @@ USA.
 	  xd:boolean?
 	  xd:case
 	  xd:case?
-	  xd:check-action
-	  xd:check-action?
 	  xd:check-input
 	  xd:check-input?
 	  xd:check-inputs
@@ -158,8 +156,8 @@ USA.
 	  xd:radio-entry?
 	  xd:refer
 	  xd:refer?
-	  xd:submit-action
-	  xd:submit-action?
+	  xd:submit
+	  xd:submit?
 	  xd:text
 	  xd:text?
 	  xd:true-false
diff --git a/v7/src/ssp/xdoc.scm b/v7/src/ssp/xdoc.scm
index fbf7c3d78..9201f5747 100644
--- a/v7/src/ssp/xdoc.scm
+++ b/v7/src/ssp/xdoc.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xdoc.scm,v 1.4 2004/10/27 20:04:12 cph Exp $
+$Id: xdoc.scm,v 1.5 2004/10/30 01:20:40 cph Exp $
 
 Copyright 2003,2004 Massachusetts Institute of Technology
 
@@ -1503,6 +1503,7 @@ USA.
 
 (define-element check-input empty output)
 (define-element check-inputs empty output)
+(define-element programmed-output empty output)
 (define-element number empty output)
 (define-element boolean empty output)
 (define-element menuindex empty output)
@@ -1516,8 +1517,7 @@ USA.
 (define-element choice mixed internal)
 (define-element default mixed internal)
 
-(define-element check-action empty action)
-(define-element submit-action empty action)
+(define-element submit empty action)
 
 (define (xd:true-false . keyword-list)
   (xd:radio-buttons (apply xml-attrs keyword-list)