From e8d592520f46759e126469b6a2f8bf3f6e564d87 Mon Sep 17 00:00:00 2001 From: interp Date: Sun, 19 Jan 2003 17:01:44 +0000 Subject: [PATCH] + Remove nonsense string + Add forgotten arg to FORMAT. --- .../surflets/web-server/root/surflets/simple-servlet.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/scheme/httpd/surflets/web-server/root/surflets/simple-servlet.scm b/scheme/httpd/surflets/web-server/root/surflets/simple-servlet.scm index 35b95c3..e6a8921 100644 --- a/scheme/httpd/surflets/web-server/root/surflets/simple-servlet.scm +++ b/scheme/httpd/surflets/web-server/root/surflets/simple-servlet.scm @@ -15,8 +15,7 @@ (list 'payment (make-yes-no "Pay per" "bill" "card")) (list 'date-of-bill (make-radio "Pay at" - (list "first" "middle" "end of month."))) - (list 'return "Return to main menu.")))) + (list "first" "middle" "end of month.")))))) ) (if (string=? (extract/single 'pwd answers) (extract/single 're-pwd answers)) @@ -33,7 +32,8 @@ (extract/single 'date-of-bill answers))))) (final-page "Data recorded.")) (begin - (inform (format #f "Hi ~a, you've misspelled your password. Go back and retype it.")) + (inform (format #f "Hi ~a, you've misspelled your password. Go back and retype it." + (extract/single 'name answers))) (final-page "Your registration has been canceled."))))) ))