A bunch of scheme' -> racket' conversions.

I think that there are no user-visible changes from these changes.

original commit: 2b76d9e5b03ea97b8de155d2dda63e64256a3212
This commit is contained in:
Eli Barzilay 2012-04-19 13:06:10 -04:00
parent d60426e9a6
commit 11e7a01f23
29 changed files with 55 additions and 56 deletions

View File

@ -1,3 +1,3 @@
(module main scheme/base
(module main racket/base
(require "mred.rkt")
(provide (all-from-out "mred.rkt")))

View File

@ -1,4 +1,4 @@
#lang scheme/signature
#lang racket/signature
add-color<%>
add-editor-keymap-functions

View File

@ -1,6 +1,6 @@
#lang scheme/base
#lang racket/base
;; This module is for use by scheme/gui/dynamic.
;; This module is for use by racket/gui/dynamic.
;; It is required by mred/mred so that it gets carried
;; along when mred/mred is attached to a new namespace.

View File

@ -15,7 +15,7 @@
;; The `atomically' form is ok for that if no exceptions will
;; be raised. Otherwise, use the more heavyweight `as-entry'.
;;
;; * The scheme/gui classes have internal-consistency requirements.
;; * The racket/gui classes have internal-consistency requirements.
;; When the user creates an object or calls a method, or when the
;; system invokes a callback, many steps may be required to
;; initialize or reset fields to maintain invariants. To ensure that

View File

@ -3,7 +3,7 @@
define-namespace-anchor
namespace-anchor->empty-namespace
make-base-empty-namespace)
scheme/class
racket/class
racket/draw racket/snip
file/resource
mzlib/etc

View File

@ -1,11 +1,11 @@
(module path-dialog mzscheme
(require mzlib/class mzlib/list mzlib/string mzlib/file
(prefix wx: "kernel.rkt")
(prefix wx: racket/snip/private/style)
(prefix wx: racket/snip/private/style)
racket/snip/private/prefs
"helper.rkt" "mrtop.rkt" "mritem.rkt" "mrpanel.rkt"
"mrtextfield.rkt" "messagebox.rkt" "mrmenu.rkt"
(only scheme/base compose))
(only racket/base compose1))
(provide path-dialog%)
(define last-visted-directory #f)
@ -46,9 +46,9 @@
(lambda (p . more)
(apply simplify-path (expand-path* p) more))))
(define directory-exists*? (compose directory-exists? expand-path*))
(define file-exists*? (compose file-exists? expand-path*))
(define absolute-path*? (compose absolute-path? expand-path*))
(define directory-exists*? (compose1 directory-exists? expand-path*))
(define file-exists*? (compose1 file-exists? expand-path*))
(define absolute-path*? (compose1 absolute-path? expand-path*))
(define (build-path* dir path)
(cond [(absolute-path*? path) (if (string? path) (string->path path) path)]

View File

@ -1,3 +1,3 @@
#lang scheme/base
#lang racket/base
(require racket/draw/private/syntax)
(provide (all-from-out racket/draw/private/syntax))

View File

@ -1,7 +1,7 @@
#lang racket/base
(require ffi/unsafe/objc
ffi/unsafe
scheme/class
racket/class
"pool.rkt"
"utils.rkt"
"const.rkt"

View File

@ -2,7 +2,7 @@
(require ffi/unsafe/objc
ffi/unsafe
racket/class
(only-in scheme/list take drop)
(only-in racket/list take drop)
"../../syntax.rkt"
"../../lock.rkt"
"item.rkt"

View File

@ -2,7 +2,7 @@
(require racket/class
ffi/unsafe
ffi/unsafe/objc
(only-in scheme/list drop take)
(only-in racket/list drop take)
"../common/event.rkt"
"../../syntax.rkt"
"../../lock.rkt"

View File

@ -1,6 +1,6 @@
#lang racket/base
(require ffi/unsafe
scheme/class
racket/class
"utils.rkt"
"types.rkt"
"const.rkt"

View File

@ -1,4 +1,4 @@
#lang scheme/base
#lang racket/base
(provide (all-defined-out))

View File

@ -1,4 +1,4 @@
#lang scheme/base
#lang racket/base
(define-syntax-rule (decl id set-id)
(begin

View File

@ -1,5 +1,5 @@
#lang scheme/base
(require scheme/class
#lang racket/base
(require racket/class
"../syntax.rkt"
"private.rkt"
racket/snip/private/private

View File

@ -1,6 +1,6 @@
#lang scheme/base
(require scheme/class
scheme/file
#lang racket/base
(require racket/class
racket/file
"../syntax.rkt"
"editor.rkt"
"editor-admin.rkt"

View File

@ -1,7 +1,7 @@
#lang racket/base
(require scheme/class
scheme/file file/convertible
(require racket/class
racket/file file/convertible
"../syntax.rkt"
"private.rkt"
racket/snip/private/snip-flags

View File

@ -1,5 +1,5 @@
#lang scheme/base
(require scheme/class
#lang racket/base
(require racket/class
"../syntax.rkt"
"private.rkt"
racket/snip/private/private

View File

@ -1,7 +1,7 @@
#lang scheme/base
(require scheme/class
(for-syntax scheme/base)
scheme/file
#lang racket/base
(require racket/class
(for-syntax racket/base)
racket/file
racket/port
"../syntax.rkt"
"private.rkt"

View File

@ -1,5 +1,5 @@
#lang scheme/base
(require scheme/class
#lang racket/base
(require racket/class
"../syntax.rkt"
"wx.rkt")

View File

@ -1,5 +1,5 @@
#lang scheme/base
(require scheme/class
#lang racket/base
(require racket/class
"../syntax.rkt"
"const.rkt"
racket/snip/private/snip

View File

@ -1,7 +1,7 @@
#lang scheme/base
(require scheme/class
scheme/port
scheme/file
#lang racket/base
(require racket/class
racket/port
racket/file
"../syntax.rkt"
"const.rkt"
"private.rkt"

View File

@ -1,5 +1,5 @@
#lang scheme/base
(require scheme/class)
#lang racket/base
(require racket/class)
(provide (all-defined-out))

View File

@ -1,5 +1,5 @@
#lang scheme/base
(require scheme/class
#lang racket/base
(require racket/class
"../syntax.rkt"
racket/snip/private/snip
racket/snip/private/snip-admin

View File

@ -1,5 +1,5 @@
#lang scheme/base
(require scheme/class
#lang racket/base
(require racket/class
"../syntax.rkt"
"private.rkt"
racket/snip/private/private

View File

@ -1,8 +1,8 @@
#lang scheme/base
(require scheme/class
scheme/port
scheme/file
(for-syntax scheme/base)
#lang racket/base
(require racket/class
racket/port
racket/file
(for-syntax racket/base)
"../syntax.rkt"
"const.rkt"
"mline.rkt"

View File

@ -1,5 +1,5 @@
#lang scheme/base
(require scheme/class
#lang racket/base
(require racket/class
"private.rkt"
racket/snip/private/private
racket/snip/private/snip

View File

@ -1,5 +1,5 @@
#lang scheme/base
(require scheme/class
#lang racket/base
(require racket/class
"../syntax.rkt"
"cycle.rkt")

View File

@ -1,4 +1,4 @@
#lang scheme/base
#lang racket/base
(require "../kernel.rkt" racket/draw/private/font-syms)
(define the-clipboard (get-the-clipboard))

View File

@ -1,4 +1,3 @@
(module init scheme/gui
(require scheme/init)