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

set props and a little better code for syntax in scribble file

Browse Source 
svn: r11952
This commit is contained in:
Eli Barzilay 2008-10-06 17:24:16 +00:00
parent dd20d88776
commit 499fc08d0d
1 changed files with 32 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/games/scribblings/chat-noir.scrbl
View File

@ -1,6 +1,6 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.ss")
@(require scheme/runtime-path (for-syntax scheme/port scheme/base)) @(require scheme/runtime-path (for-syntax scheme/port scheme/base scheme/path))
@(define-runtime-path cn "../chat-noir/chat-noir.ss") @(define-runtime-path cn "../chat-noir/chat-noir.ss")
@gametitle["Chat Noir" "chat-noir" "Puzzle Game"] @gametitle["Chat Noir" "chat-noir" "Puzzle Game"]
@ -22,12 +22,9 @@ the introductory programming course at the University of Chicago in
the fall of 2008, as below. the fall of 2008, as below.
@(define-syntax (m stx) @(define-syntax (m stx)
(syntax-case stx () (call-with-input-file
[(_) (build-path (path-only (syntax-source stx))
(call-with-input-file (build-path (current-load-relative-directory) 'up "chat-noir" "chat-noir.ss")
'up
"chat-noir"
"chat-noir.ss")
(lambda (port) (lambda (port)
(port-count-lines! port) (port-count-lines! port)
#`(schemeblock #`(schemeblock
@ -54,6 +51,6 @@ the fall of 2008, as below.
[else [else
(cons (read-syntax "chat-noir.ss" port) (cons (read-syntax "chat-noir.ss" port)
(loop))]))))) (loop))])))))
#:mode 'text)])) #:mode 'text))
@m[] @m[]