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

EOPL mzscheme => racket; closes PR10478.

Browse Source
This commit is contained in:
David Van Horn 2012-02-20 21:16:20 -05:00 committed by Eli Barzilay
parent bfb731e065
commit 49064bc802
3 changed files with 17 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
collects/eopl/eopl.rkt
View File

@ -1,10 +1,10 @@
#lang mzscheme #lang racket
(require "datatype.rkt" (require "datatype.rkt"
"private/sllgen.rkt" "private/sllgen.rkt"
mzlib/trace mzlib/trace
mzlib/pretty) mzlib/pretty)
(require-for-syntax "private/slldef.rkt") (require (for-syntax "private/slldef.rkt"))
(provide define-datatype (provide define-datatype
cases) cases)
@ -23,15 +23,15 @@
[(_ . rest) [(_ . rest)
(syntax/loc stx (define . rest))])) (syntax/loc stx (define . rest))]))
(provide (rename eopl-define define)) (provide (rename-out [eopl-define define]))
(provide (all-from "private/sllgen.rkt")) (provide (all-from-out "private/sllgen.rkt"))
(provide (rename error eopl:error) (provide (rename-out [error eopl:error]
(rename printf eopl:printf) [printf eopl:printf]
(rename pretty-print eopl:pretty-print) [pretty-print eopl:pretty-print]
(rename eopl:call-with-current-continuation [eopl:call-with-current-continuation
call-with-current-continuation)) call-with-current-continuation]))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -146,14 +146,16 @@
parameterize parameterize
print-struct) print-struct)
(require mzlib/transcr)
(provide unquote unquote-splicing (provide unquote unquote-splicing
quote quasiquote if quote quasiquote if
lambda letrec define-syntax delay let let* let-syntax letrec-syntax lambda letrec define-syntax delay let let* let-syntax letrec-syntax
and or cond case do and or cond case do
begin set! begin set!
;; => else ; not bound in `mzscheme' => else
(rename #%plain-module-begin #%module-begin) (rename-out [#%plain-module-begin #%module-begin])
#%app #%datum #%top #%top-interaction #%app #%datum #%top #%top-interaction
#%require #%provide #%expression #%require #%provide #%expression

4
collects/eopl/eopl.scrbl
View File

@ -37,14 +37,14 @@
The @italic{Essentials of Programming Languages} language in DrRacket The @italic{Essentials of Programming Languages} language in DrRacket
provides a subset of functions and syntactic forms of provides a subset of functions and syntactic forms of
@racketmodname[mzscheme]---mostly the ones that correspond to @racketmodname[racket]---mostly the ones that correspond to
@racket[r5rs] forms. See below for a complete list. The @racket[r5rs] forms. See below for a complete list. The
language is intended for use with the textbook @cite["EoPL"]. language is intended for use with the textbook @cite["EoPL"].
@defmodulelang[eopl #:use-sources (eopl/eopl)] @defmodulelang[eopl #:use-sources (eopl/eopl)]
The following bindings are re-@racket[provide]d from The following bindings are re-@racket[provide]d from
@racketmodname[mzscheme]: @racketmodname[racket]:
@reprovide[ @reprovide[
make-parameter make-parameter

4
collects/eopl/main.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/base #lang racket/base
(require "eopl.rkt") ; provides `provide' (require "eopl.rkt") ; provides `provide'
(provide (all-from "eopl.rkt")) (provide (all-from-out "eopl.rkt"))