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

fix nominal problem with hangman (signature-related change unless I miss my guess)

Browse Source
This commit is contained in:
Robby Findler 2010-09-21 08:55:23 -05:00
parent 859ea63faa
commit bf409e6300
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/htdp/hangman.rkt
View File

@ -246,13 +246,20 @@
(set! uncover (set! uncover
(lambda (a-word) (lambda (a-word)
;; abstraction breaking hack. ;; abstraction breaking hack.
(parameterize ([current-inspector (dynamic-require ''drscheme-secrets 'drscheme-inspector)]) (parameterize ([current-inspector
(with-handlers ([exn:fail?
(λ (x)
(error
'hangman
"only works from within DrRacket when using the teaching languages via the languages menu (original exn msg: ~s)"
(exn-message x)))])
(dynamic-require ''drscheme-secrets 'drscheme-inspector))])
(unless (struct? a-word) (unless (struct? a-word)
(error 'hangman "expected a struct, got: ~e" a-word)) (error 'hangman "expected a struct, got: ~e" a-word))
(let ([word-vec (struct->vector a-word)]) (let ([word-vec (struct->vector a-word)])
(unless (= (vector-length word-vec) 4) (unless (= (vector-length word-vec) 5)
(error 'hangman "expected words to be structures with three fields, found ~a fields" (error 'hangman "expected words to be structures with three fields, found ~a fields"
(- (vector-length word-vec) 1))) (- (vector-length word-vec) 2)))
(format "~a~a~a" (format "~a~a~a"
(vector-ref word-vec 1) (vector-ref word-vec 1)
(vector-ref word-vec 2) (vector-ref word-vec 2)