From 523f280b533e74f5eb04026c812cf448b58edb51 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Fri, 13 Nov 2009 20:20:38 +0000 Subject: [PATCH] Fixing a test bug svn: r16755 --- .../htdocs/servlets/examples/english-measure-questions.ss | 3 +-- .../default-web-root/htdocs/servlets/examples/quiz.ss | 6 +++--- 2 files changed, 4 insertions(+), 5 deletions(-) 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.