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."))))) ))