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