suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixing a test bug

Browse Source 
svn: r16755
This commit is contained in:
Jay McCarthy 2009-11-13 20:20:38 +00:00
parent 2b4c9eb0d0
commit 523f280b53
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/web-server/default-web-root/htdocs/servlets/examples/english-measure-questions.ss
View File

@ -1,6 +1,5 @@
;; Data file for quiz.ss, written by Don Felgar ;; 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?" ("How many imperial gallons in a firkin?"
("4" "5" "8" "9") ("4" "5" "8" "9")

6
collects/web-server/default-web-root/htdocs/servlets/examples/quiz.ss
View File

@ -33,9 +33,9 @@
(define question-answer caddr) (define question-answer caddr)
(define question-explanation cadddr) (define question-explanation cadddr)
(define quiz (with-input-from-file *data-file* read)) (define quiz (file->value *data-file*))
(define quiz-intro (car quiz)) (define quiz-intro (first quiz))
(define all-questions (cadr quiz)) (define all-questions (second quiz))
;; ask-question: question number number -> (listof (cons symbol string)) ;; ask-question: question number number -> (listof (cons symbol string))
;; Page for asking quiz question. ;; Page for asking quiz question.