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
parent
d60426e9a6
commit
11e7a01f23
|
|
@ -1,3 +1,3 @@
|
|||
(module main scheme/base
|
||||
(module main racket/base
|
||||
(require "mred.rkt")
|
||||
(provide (all-from-out "mred.rkt")))
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme/signature
|
||||
#lang racket/signature
|
||||
|
||||
add-color<%>
|
||||
add-editor-keymap-functions
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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)]
|
||||
|
|
|
|||
|
|
@ -1,3 +1,3 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
(require racket/draw/private/syntax)
|
||||
(provide (all-from-out racket/draw/private/syntax))
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
#lang racket/base
|
||||
(require ffi/unsafe/objc
|
||||
ffi/unsafe
|
||||
scheme/class
|
||||
racket/class
|
||||
"pool.rkt"
|
||||
"utils.rkt"
|
||||
"const.rkt"
|
||||
|
|
|
|||
|
|
@ -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"
|
||||
|
|
|
|||
|
|
@ -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"
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
#lang racket/base
|
||||
(require ffi/unsafe
|
||||
scheme/class
|
||||
racket/class
|
||||
"utils.rkt"
|
||||
"types.rkt"
|
||||
"const.rkt"
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
|
||||
(provide (all-defined-out))
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
|
||||
(define-syntax-rule (decl id set-id)
|
||||
(begin
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
#lang scheme/base
|
||||
(require scheme/class
|
||||
#lang racket/base
|
||||
(require racket/class
|
||||
"../syntax.rkt"
|
||||
"private.rkt"
|
||||
racket/snip/private/private
|
||||
|
|
|
|||
|
|
@ -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"
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
#lang scheme/base
|
||||
(require scheme/class
|
||||
#lang racket/base
|
||||
(require racket/class
|
||||
"../syntax.rkt"
|
||||
"private.rkt"
|
||||
racket/snip/private/private
|
||||
|
|
|
|||
|
|
@ -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"
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
#lang scheme/base
|
||||
(require scheme/class
|
||||
#lang racket/base
|
||||
(require racket/class
|
||||
"../syntax.rkt"
|
||||
"wx.rkt")
|
||||
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
#lang scheme/base
|
||||
(require scheme/class
|
||||
#lang racket/base
|
||||
(require racket/class
|
||||
"../syntax.rkt"
|
||||
"const.rkt"
|
||||
racket/snip/private/snip
|
||||
|
|
|
|||
|
|
@ -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"
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
#lang scheme/base
|
||||
(require scheme/class)
|
||||
#lang racket/base
|
||||
(require racket/class)
|
||||
|
||||
(provide (all-defined-out))
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
#lang scheme/base
|
||||
(require scheme/class
|
||||
#lang racket/base
|
||||
(require racket/class
|
||||
"../syntax.rkt"
|
||||
"private.rkt"
|
||||
racket/snip/private/private
|
||||
|
|
|
|||
|
|
@ -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"
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
#lang scheme/base
|
||||
(require scheme/class
|
||||
#lang racket/base
|
||||
(require racket/class
|
||||
"../syntax.rkt"
|
||||
"cycle.rkt")
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
(require "../kernel.rkt" racket/draw/private/font-syms)
|
||||
|
||||
(define the-clipboard (get-the-clipboard))
|
||||
|
|
|
|||
|
|
@ -1,4 +1,3 @@
|
|||
|
||||
(module init scheme/gui
|
||||
(require scheme/init)
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user