diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/english-measure-questions.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/english-measure-questions.ss index 667adec1d2..2f3d7d2df8 100644 --- a/collects/web-server/default-web-root/htdocs/servlets/examples/english-measure-questions.ss +++ b/collects/web-server/default-web-root/htdocs/servlets/examples/english-measure-questions.ss @@ -1,6 +1,5 @@ ;; Data file for quiz.ss, written by Don Felgar - -'("This is a quiz on English weights and measures. Good luck!" +("This is a quiz on English weights and measures. Good luck!" ( ("How many imperial gallons in a firkin?" ("4" "5" "8" "9") diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/quiz.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/quiz.ss index 45b241303e..476b3f436f 100644 --- a/collects/web-server/default-web-root/htdocs/servlets/examples/quiz.ss +++ b/collects/web-server/default-web-root/htdocs/servlets/examples/quiz.ss @@ -33,9 +33,9 @@ (define question-answer caddr) (define question-explanation cadddr) -(define quiz (with-input-from-file *data-file* read)) -(define quiz-intro (car quiz)) -(define all-questions (cadr quiz)) +(define quiz (file->value *data-file*)) +(define quiz-intro (first quiz)) +(define all-questions (second quiz)) ;; ask-question: question number number -> (listof (cons symbol string)) ;; Page for asking quiz question.