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

adjust scribble/lp language so drracket syntax colors it properly

Browse Source 
Also fix a spelling mistake (now that spell checking works) and Rackety
This commit is contained in:
Robby Findler 2013-01-04 21:20:01 -06:00
parent 69800aa580
commit 87d25ba02a
3 changed files with 15 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/games/chat-noir/chat-noir-literate.rkt
View File

@ -1,7 +1,7 @@
#lang scribble/lp #lang scribble/lp
@(require (for-label scheme/math) ;; for 'pi' below @(require (for-label racket/math) ;; for 'pi' below
scheme/math racket/math
games/scribblings/common) games/scribblings/common)
@gametitle*["Chat Noir" "chat-noir" "Puzzle Game" #:style '(toc)] @gametitle*["Chat Noir" "chat-noir" "Puzzle Game" #:style '(toc)]
@ -50,9 +50,9 @@ code that handles drawing of the world, code that handles user input,
and some code that builds an initial world and starts the game. and some code that builds an initial world and starts the game.
@chunk[<main> @chunk[<main>
(require scheme/list scheme/math (require racket/list racket/math
(for-syntax scheme/base)) (for-syntax racket/base))
(require 2htdp/universe htdp/image lang/posn scheme/contract) (require 2htdp/universe htdp/image lang/posn racket/contract)
<world> <world>
<breadth-first-search> <breadth-first-search>
<board->graph> <board->graph>
@ -402,7 +402,7 @@ and a @racket[dist-table] that records the same information as a
@racket[distance-map], but in an immutable hash-table. The @racket[distance-map], but in an immutable hash-table. The
@racket[dist-map] is an accumulator, recording the distances @racket[dist-map] is an accumulator, recording the distances
to all of the nodes that have already been visited in the graph, to all of the nodes that have already been visited in the graph,
and is used here to speed up the compuation. The queue is and is used here to speed up the computation. The queue is
represented as a list of vectors of length two. Each element represented as a list of vectors of length two. Each element
in the queue contains a @racket[posn], or the symbol @racket['boundary] in the queue contains a @racket[posn], or the symbol @racket['boundary]
and that @racket[posn]'s distance. and that @racket[posn]'s distance.

15
collects/games/chat-noir/chat-noir-unit.rkt
View File

@ -1,8 +1,8 @@
#lang scheme/base #lang racket/base
(require scheme/unit (require racket/unit
scheme/runtime-path racket/runtime-path
scheme/gui/base racket/gui/base
scheme/class racket/class
"../show-scribbling.rkt" "../show-scribbling.rkt"
string-constants/string-constant string-constants/string-constant
(prefix-in x: lang/htdp-intermediate-lambda) (prefix-in x: lang/htdp-intermediate-lambda)
@ -66,7 +66,6 @@
(parameterize ([current-custodian sub-custodian]) (parameterize ([current-custodian sub-custodian])
(parameterize ([current-namespace (make-base-namespace)]) (parameterize ([current-namespace (make-base-namespace)])
(namespace-attach-module orig-namespace '(lib "mred.rkt" "mred")) (namespace-attach-module orig-namespace 'mred/mred)
(namespace-attach-module orig-namespace '(lib "class.rkt" "scheme")) (namespace-attach-module orig-namespace 'racket/class)
((dynamic-require chat-noir 'main))))) ((dynamic-require chat-noir 'main)))))

4
collects/scribble/lp/lang/reader.rkt
View File

@ -8,10 +8,10 @@ scribble/lp/lang/lang
;; don't use scribble-base-info for the #:info arg, since ;; don't use scribble-base-info for the #:info arg, since
;; scribble/lp files are not directly scribble'able. ;; scribble/lp files are not directly scribble'able.
#:language-info (scribble-base-language-info) #:language-info (scribble-base-language-info)
#:info (scribble-base-reader-info)
(require scribble/reader (require scribble/reader
(only-in scribble/base/reader (only-in scribble/base/reader
scribble-base-info scribble-base-reader-info
scribble-base-language-info)) scribble-base-language-info))