From df1a40a361125efa6ab1b97658ae7d4439b93fba Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Mon, 26 Aug 2002 08:33:04 +0000
Subject: [PATCH] restored accidently overwritten code

---
 program-modules.scm | 40 ++++++++++++++++++++--------------------
 1 file changed, 20 insertions(+), 20 deletions(-)

diff --git a/program-modules.scm b/program-modules.scm
index a8baf69..4046535 100644
--- a/program-modules.scm
+++ b/program-modules.scm
@@ -26,23 +26,23 @@
 ;; source files are missing!?
 ;;
 
-;;; cheme-programs-package (export testprog
-;;;      			  info2www)
-;;;      ; syscalls & INDEX
-;;;      ; WHEN, ? for COND
-;;; ax	; Conditionals
-;;; age  ; Records
-;;; kage	; Formatted HTML output
-;;;      ; REQUEST record type, HTTP-ERROR & reply codes
-;;;      ; version stuff
-;;; 	; UNESCAPE-URI
-;;; ge	; ERROR
-;;;      ; Pretty-printer
-;;; 822
-;;; val	; EVAL-SAFELY
-;;;      ; IGNORE-ERROR
-;;;      ; SKIP-WHITESPACE
-;;; forms ; PARSE-HTML-FORM-QUERY
-;;; 
-;;; 
-;;; 
\ No newline at end of file
+;;; (define-structure scheme-programs-package (export testprog
+;;; 						  info2www)
+;;;   (open scsh		; syscalls & INDEX
+;;; 	condhax		; WHEN, ? for COND
+;;; 	switch-syntax	; Conditionals
+;;; 	defrec-package  ; Records
+;;; 	htmlout-package	; Formatted HTML output
+;;; 	httpd-core      ; REQUEST record type, HTTP-ERROR & reply codes
+;;; 			; version stuff
+;;; 	uri-package	; UNESCAPE-URI
+;;; 	error-package	; ERROR
+;;; 	pp		; Pretty-printer
+;;; 	strings rfc822
+;;; 	toothless-eval	; EVAL-SAFELY
+;;; 	handle		; IGNORE-ERROR
+;;; 	strings		; SKIP-WHITESPACE
+;;; 	parse-html-forms ; PARSE-HTML-FORM-QUERY
+;;; 	scheme)
+;;;   (files testprog
+;;; 	 info2www))