From 10c6213a8fe51cf05b6e0f5d78e83072132b22da Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Thu, 15 Apr 2010 22:22:14 -0400 Subject: [PATCH] making drdr happy with here path --- collects/teachpack/2htdp/scribblings/batch-io.scrbl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/teachpack/2htdp/scribblings/batch-io.scrbl b/collects/teachpack/2htdp/scribblings/batch-io.scrbl index 08b28739e0..c2db445b84 100644 --- a/collects/teachpack/2htdp/scribblings/batch-io.scrbl +++ b/collects/teachpack/2htdp/scribblings/batch-io.scrbl @@ -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)