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

making drdr happy with here path

Browse Source
This commit is contained in:
Matthias Felleisen 2010-04-15 22:22:14 -04:00
parent 840ea4f4f5
commit 10c6213a8f
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/teachpack/2htdp/scribblings/batch-io.scrbl
View File

@ -5,8 +5,10 @@
@(require "shared.ss") @(require "shared.ss")
@(require 2htdp/batch-io) @(require 2htdp/batch-io)
@(require scheme/runtime-path)
@(define-runtime-path here ".")
@(define (file-is f) @(define (file-is f)
(define x (read-file f)) (define x (parameterize ([current-directory here]) (read-file f)))
(centered (centered
(tabular #:style "searchbox" (tabular #:style "searchbox"
(list (list (verbatim x)))))) (list (list (verbatim x))))))
@ -20,10 +22,10 @@
(interaction-eval #:eval me (require 2htdp/batch-io)) (interaction-eval #:eval me (require 2htdp/batch-io))
(interaction-eval #:eval me d) (interaction-eval #:eval me d)
...) ...)
(current-directory here)
(interaction-eval #:eval me (require lang/htdp-intermediate-lambda)) (interaction-eval #:eval me (require lang/htdp-intermediate-lambda))
me)])) me)]))
@; ----------------------------------------------------------------------------- @; -----------------------------------------------------------------------------
@(define-syntax-rule (reading name ctc s) @(define-syntax-rule (reading name ctc s)