From d675c7b12a78974389cb08bdc3662c6a2d361ec6 Mon Sep 17 00:00:00 2001 From: John Clements Date: Thu, 20 Jan 2011 10:18:42 -0800 Subject: [PATCH] updated PLAI (and test cases) to use racket language rather than scheme --- collects/plai/main.rkt | 4 ++-- collects/tests/plai/web.rkt | 3 ++- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/plai/main.rkt b/collects/plai/main.rkt index 13a8d32a29..0f738af107 100644 --- a/collects/plai/main.rkt +++ b/collects/plai/main.rkt @@ -1,9 +1,9 @@ -#lang scheme +#lang racket (require plai/datatype plai/test-harness) (provide (all-from-out plai/datatype) - (except-out (all-from-out scheme) error (for-syntax error) #%module-begin provide) + (except-out (all-from-out racket) error (for-syntax error) #%module-begin provide) (except-out (all-from-out plai/test-harness) plai-error) (rename-out [plai-error error] [plai-module-begin #%module-begin]) diff --git a/collects/tests/plai/web.rkt b/collects/tests/plai/web.rkt index 5fa0d7508c..148fc45cf7 100644 --- a/collects/tests/plai/web.rkt +++ b/collects/tests/plai/web.rkt @@ -4,4 +4,5 @@ [mta]) (define (start req) - "Hello") \ No newline at end of file + (response/xexpr + "Hello")) \ No newline at end of file