started requiring racket/ instead of scheme/
This commit is contained in:
Robby Findler
parent
6272d0511a
commit
244f6e4908
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
|
||||
(provide get-general-acks
|
||||
get-translating-acks
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
|
||||
(require scheme/class
|
||||
scheme/math
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
(module default-code-style mzscheme
|
||||
#lang racket/base
|
||||
(provide color-default-code-styles
|
||||
bw-default-code-styles
|
||||
code-style-color
|
||||
|
|
@ -24,4 +24,4 @@
|
|||
(list 'unbound-variable (make-code-style "red" #f #f #f))
|
||||
(list 'bound-variable (make-code-style "navy" #f #f #f))
|
||||
(list 'primitive (make-code-style "navy" #f #f #f))
|
||||
(list 'constant (make-code-style '(51 135 39) #f #f #f)))))
|
||||
(list 'constant (make-code-style '(51 135 39) #f #f #f))))
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
(require scheme/gui/base "private/key.ss")
|
||||
|
||||
(define debugging? (getenv "PLTDRDEBUG"))
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
(module installer mzscheme
|
||||
#lang racket/base
|
||||
(require mzlib/file
|
||||
mzlib/etc
|
||||
launcher)
|
||||
|
|
@ -18,4 +18,4 @@
|
|||
(mred-program-launcher-path "DrScheme")
|
||||
(cons
|
||||
`(exe-name . "DrScheme")
|
||||
(build-aux-from-path (build-path (collection-path "drscheme") "drscheme")))))))
|
||||
(build-aux-from-path (build-path (collection-path "drscheme") "drscheme"))))))
|
||||
|
|
|
|||
|
|
@ -1,2 +1,2 @@
|
|||
(module main scheme/base
|
||||
(require "drscheme.ss"))
|
||||
#lang racket/base
|
||||
(require "drscheme.ss")
|
||||
|
|
|
|||
|
|
@ -1,10 +1,8 @@
|
|||
#lang scheme/unit
|
||||
|
||||
(require mzlib/class
|
||||
mzlib/list
|
||||
scheme/file
|
||||
(require racket/class
|
||||
string-constants
|
||||
mred
|
||||
racket/gui/base
|
||||
framework
|
||||
browser/external
|
||||
setup/getinfo
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#lang mzscheme
|
||||
#lang racket/base
|
||||
#|
|
||||
|
||||
CODE COPIED (with permission ...) from syntax-browser.ss
|
||||
|
|
@ -9,13 +9,10 @@ Marshalling (and hence the 'read' method of the snipclass omitted for fast proto
|
|||
|#
|
||||
|
||||
|
||||
(require mzlib/pretty
|
||||
mzlib/list
|
||||
mzlib/class
|
||||
mred
|
||||
mzlib/match
|
||||
mzlib/string
|
||||
mzlib/contract)
|
||||
(require racket/pretty
|
||||
racket/class
|
||||
racket/gui/base
|
||||
racket/contract)
|
||||
|
||||
(provide render-bindings/snip)
|
||||
|
||||
|
|
@ -64,7 +61,7 @@ Marshalling (and hence the 'read' method of the snipclass omitted for fast proto
|
|||
; how to enrich the notion of an output-port to get 'bold'ing to
|
||||
; work otherwise...
|
||||
(let* ([before (send output-text last-position)])
|
||||
(pretty-print (syntax-object->datum stx))
|
||||
(pretty-print (syntax->datum stx))
|
||||
(let* ([post-newline (send output-text last-position)])
|
||||
(send output-text delete post-newline) ; delete the trailing \n. yuck!
|
||||
(send output-text insert " ")
|
||||
|
|
@ -164,7 +161,7 @@ Marshalling (and hence the 'read' method of the snipclass omitted for fast proto
|
|||
|
||||
(define black-style-delta (make-object style-delta% 'change-normal-color))
|
||||
(define green-style-delta (make-object style-delta%))
|
||||
(send green-style-delta set-delta-foreground "forest green")
|
||||
(void (send green-style-delta set-delta-foreground "forest green"))
|
||||
|
||||
(define turn-snip%
|
||||
(class snip%
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
#lang scheme
|
||||
#lang racket/base
|
||||
|
||||
(require mred/mred)
|
||||
(require racket/gui/base racket/class)
|
||||
(provide bitmap-message%)
|
||||
|
||||
(define bitmap-message%
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
|
||||
#|
|
||||
|
||||
|
|
@ -10,11 +10,11 @@ profile todo:
|
|||
|
||||
(require errortrace/errortrace-key
|
||||
scheme/unit
|
||||
scheme/contract
|
||||
racket/contract
|
||||
errortrace/stacktrace
|
||||
scheme/class
|
||||
scheme/path
|
||||
scheme/gui/base
|
||||
racket/class
|
||||
racket/path
|
||||
racket/gui/base
|
||||
string-constants
|
||||
framework
|
||||
framework/private/bday
|
||||
|
|
@ -23,9 +23,9 @@ profile todo:
|
|||
"bindings-browser.ss"
|
||||
net/sendurl
|
||||
net/url
|
||||
scheme/match
|
||||
racket/match
|
||||
mrlib/include-bitmap
|
||||
(for-syntax scheme/base))
|
||||
(for-syntax racket/base))
|
||||
|
||||
(define orig (current-output-port))
|
||||
|
||||
|
|
|
|||
|
|
@ -1,12 +1,12 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
|
||||
(require mred
|
||||
scheme/class
|
||||
scheme/cmdline
|
||||
scheme/list
|
||||
racket/class
|
||||
racket/cmdline
|
||||
racket/list
|
||||
framework/private/bday
|
||||
framework/splash
|
||||
scheme/file
|
||||
racket/file
|
||||
"eb.ss")
|
||||
|
||||
(define files-to-open (command-line #:args filenames filenames))
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
(require scheme/unit)
|
||||
|
||||
(provide drscheme:eval^
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
#lang scheme/base
|
||||
(require scheme/class
|
||||
#lang racket/base
|
||||
(require racket/class
|
||||
framework/splash
|
||||
scheme/gui/base)
|
||||
racket/gui/base)
|
||||
|
||||
(provide install-eb)
|
||||
(define (install-eb)
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
#lang scheme/base
|
||||
(require scheme/class
|
||||
scheme/gui/base)
|
||||
#lang racket/base
|
||||
(require racket/class
|
||||
racket/gui/base)
|
||||
|
||||
(provide get-enclosing-editor-frame)
|
||||
|
||||
|
|
|
|||
|
|
@ -1,9 +1,9 @@
|
|||
#lang mzscheme
|
||||
#lang racket/base
|
||||
|
||||
(require mred
|
||||
mzlib/unit
|
||||
mzlib/port
|
||||
mzlib/class
|
||||
scheme/unit
|
||||
racket/port
|
||||
racket/class
|
||||
syntax/toplevel
|
||||
framework
|
||||
"drsig.ss")
|
||||
|
|
@ -11,7 +11,7 @@
|
|||
;; to ensure this guy is loaded (and the snipclass installed) in the drscheme namespace & eventspace
|
||||
;; these things are for effect only!
|
||||
(require mrlib/cache-image-snip
|
||||
(prefix image-core: mrlib/image-core))
|
||||
(prefix-in image-core: mrlib/image-core))
|
||||
|
||||
(define op (current-output-port))
|
||||
(define (oprintf . args) (apply fprintf op args))
|
||||
|
|
@ -173,7 +173,7 @@
|
|||
(error-print-width 250)
|
||||
(current-ps-setup (make-object ps-setup%))
|
||||
|
||||
(current-namespace (make-namespace 'empty))
|
||||
(current-namespace (make-empty-namespace))
|
||||
(for-each (λ (x) (namespace-attach-module drscheme:init:system-namespace x))
|
||||
to-be-copied-module-names))
|
||||
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
#lang mzscheme
|
||||
(require mzlib/unit
|
||||
mzlib/class
|
||||
#lang racket/base
|
||||
(require scheme/unit
|
||||
racket/class
|
||||
racket/gui/base
|
||||
"drsig.ss"
|
||||
mred
|
||||
framework
|
||||
string-constants)
|
||||
|
||||
|
|
|
|||
|
|
@ -1,9 +1,8 @@
|
|||
#lang scheme/unit
|
||||
(require string-constants
|
||||
mzlib/match
|
||||
mzlib/class
|
||||
mzlib/string
|
||||
mzlib/list
|
||||
racket/match
|
||||
racket/class
|
||||
racket/string
|
||||
"drsig.ss"
|
||||
mred
|
||||
framework
|
||||
|
|
@ -11,7 +10,7 @@
|
|||
net/head
|
||||
setup/plt-installer
|
||||
help/bug-report
|
||||
scheme/file)
|
||||
racket/file)
|
||||
|
||||
(import [prefix drscheme:unit: drscheme:unit^]
|
||||
[prefix drscheme:app: drscheme:app^]
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
#lang scheme/unit
|
||||
|
||||
(require scheme/class
|
||||
(require racket/class
|
||||
"drsig.ss")
|
||||
|
||||
(import [prefix drscheme:unit: drscheme:unit^]
|
||||
|
|
|
|||
|
|
@ -1,9 +1,9 @@
|
|||
#lang scheme/unit
|
||||
|
||||
(require scheme/gui/base
|
||||
(require racket/gui/base
|
||||
browser/external
|
||||
framework
|
||||
scheme/class
|
||||
racket/class
|
||||
net/url
|
||||
setup/dirs
|
||||
help/search
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
(provide draw-honu)
|
||||
|
||||
(require scheme/class
|
||||
scheme/gui/base
|
||||
(require racket/class
|
||||
racket/gui/base
|
||||
"palaka.ss")
|
||||
|
||||
(define pi (atan 0 -1))
|
||||
|
|
|
|||
|
|
@ -1,8 +1,7 @@
|
|||
#lang scheme/unit
|
||||
(require string-constants
|
||||
"drsig.ss"
|
||||
mzlib/list
|
||||
mred)
|
||||
racket/gui/base)
|
||||
|
||||
|
||||
(import)
|
||||
|
|
|
|||
|
|
@ -2,7 +2,7 @@
|
|||
|
||||
(require typed/mred/mred
|
||||
typed/framework/framework
|
||||
scheme/class
|
||||
racket/class
|
||||
string-constants/string-constant)
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#lang mzscheme
|
||||
#lang racket/base
|
||||
(provide break-threads)
|
||||
(define super-cust (current-custodian))
|
||||
(define first-child (make-custodian))
|
||||
|
|
|
|||
|
|
@ -1,28 +1,28 @@
|
|||
#lang mzscheme
|
||||
(require mred
|
||||
mzlib/class)
|
||||
(provide (all-from-except mred frame%)
|
||||
(rename registering-frame% frame%)
|
||||
#lang racket/base
|
||||
(require racket/gui/base
|
||||
racket/class)
|
||||
(provide (except-out (all-from-out racket/gui/base) frame%)
|
||||
(rename-out [registering-frame% frame%])
|
||||
lookup-frame-name)
|
||||
|
||||
(define (lookup-frame-name frame)
|
||||
(semaphore-wait label-sema)
|
||||
(begin0
|
||||
(hash-table-get label-ht frame (λ () #f))
|
||||
(hash-ref label-ht frame (λ () #f))
|
||||
(semaphore-post label-sema)))
|
||||
|
||||
(define label-sema (make-semaphore 1))
|
||||
(define label-ht (make-hash-table 'weak))
|
||||
(define label-ht (make-weak-hasheq))
|
||||
|
||||
(define registering-frame%
|
||||
(class frame%
|
||||
(define/override (set-label x)
|
||||
(semaphore-wait label-sema)
|
||||
(hash-table-put! label-ht this x)
|
||||
(hash-set! label-ht this x)
|
||||
(semaphore-post label-sema)
|
||||
(super set-label x))
|
||||
(inherit get-label)
|
||||
(super-instantiate ())
|
||||
(semaphore-wait label-sema)
|
||||
(hash-table-put! label-ht this (get-label))
|
||||
(hash-set! label-ht this (get-label))
|
||||
(semaphore-post label-sema)))
|
||||
|
|
|
|||
|
|
@ -1,13 +1,13 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
(require scheme/unit
|
||||
mrlib/hierlist
|
||||
scheme/class
|
||||
scheme/contract
|
||||
scheme/string
|
||||
scheme/list
|
||||
racket/class
|
||||
racket/contract
|
||||
racket/string
|
||||
racket/list
|
||||
racket/gui/base
|
||||
"drsig.ss"
|
||||
string-constants
|
||||
mred
|
||||
framework
|
||||
setup/getinfo
|
||||
syntax/toplevel
|
||||
|
|
@ -1252,7 +1252,12 @@
|
|||
(message-box
|
||||
(string-constant drscheme)
|
||||
(format
|
||||
"The drscheme-language-position, drscheme-language-modules, drscheme-language-numbers, and drscheme-language-readers specifications aren't correct. Expected (listof (cons string (listof string))), (listof (listof string)), (listof (listof number)), (listof string), (listof string), and (listof module-spec) respectively, where the lengths of the outer lists are the same. Got ~e, ~e, ~e, ~e, ~e, and ~e"
|
||||
(string-append
|
||||
"The drscheme-language-position, drscheme-language-modules, drscheme-language-numbers,"
|
||||
" and drscheme-language-readers specifications aren't correct. Expected"
|
||||
" (listof (cons string (listof string))), (listof (listof string)), (listof (listof number)), (listof string),"
|
||||
" (listof string), and (listof module-spec) respectively, where the lengths of the outer lists are the same."
|
||||
" Got ~e, ~e, ~e, ~e, ~e, and ~e")
|
||||
lang-positions
|
||||
lang-modules
|
||||
numberss
|
||||
|
|
@ -1431,7 +1436,7 @@
|
|||
(let ([words #f])
|
||||
(λ ()
|
||||
(unless words
|
||||
(set! words (text:get-completions/manuals '(scheme/base scheme/contract))))
|
||||
(set! words (text:get-completions/manuals '(racket/base racket/contract))))
|
||||
words)))
|
||||
|
||||
(define get-all-manual-keywords
|
||||
|
|
|
|||
|
|
@ -1,14 +1,14 @@
|
|||
#reader scribble/reader
|
||||
#lang scheme/base
|
||||
(require (for-syntax scheme/base)
|
||||
#lang racket/base
|
||||
(require (for-syntax racket/base)
|
||||
scribble/srcdoc
|
||||
scheme/class
|
||||
scheme/gui/base
|
||||
scheme/contract
|
||||
racket/class
|
||||
racket/gui/base
|
||||
racket/contract
|
||||
"recon.ss")
|
||||
(require/doc scheme/base scribble/manual)
|
||||
(require/doc racket/base scribble/manual)
|
||||
|
||||
(require (for-meta 2 scheme/base))
|
||||
(require (for-meta 2 racket/base))
|
||||
|
||||
(provide language-object-abstraction)
|
||||
|
||||
|
|
|
|||
|
|
@ -9,17 +9,17 @@
|
|||
|
||||
;; NOTE: this module instantiates stacktrace itself, so we have
|
||||
;; to be careful to not mix that instantiation with the one
|
||||
;; drscheme/private/debug.ss does. errortrace-lib's is for the
|
||||
;; drracket/private/debug.ss does. errortrace-lib's is for the
|
||||
;; compilation handling, DrScheme's is for profiling and test coverage
|
||||
;; (which do not do compilation)
|
||||
(prefix-in el: errortrace/errortrace-lib)
|
||||
|
||||
mzlib/pconvert
|
||||
scheme/pretty
|
||||
racket/pretty
|
||||
mzlib/struct
|
||||
scheme/class
|
||||
scheme/file
|
||||
scheme/list
|
||||
racket/class
|
||||
racket/file
|
||||
racket/list
|
||||
compiler/embed
|
||||
launcher
|
||||
mred
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
|
||||
(provide startup)
|
||||
|
||||
(require scheme/file)
|
||||
(require racket/file)
|
||||
|
||||
(define (read-from-string s) (read (open-input-string s)))
|
||||
|
||||
|
|
|
|||
|
|
@ -1,9 +1,9 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
|
||||
(require scheme/gui/base "launcher-bootstrap.ss")
|
||||
(require racket/gui/base "launcher-bootstrap.ss")
|
||||
|
||||
(current-namespace (make-gui-empty-namespace))
|
||||
(namespace-require 'scheme/gui/base)
|
||||
(namespace-require 'scheme/class)
|
||||
(namespace-require 'racket/gui/base)
|
||||
(namespace-require 'racket/class)
|
||||
|
||||
(startup)
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
|
||||
(require "launcher-bootstrap.ss")
|
||||
|
||||
(current-namespace (make-base-empty-namespace))
|
||||
(namespace-require 'scheme/base)
|
||||
(namespace-require 'racket/base)
|
||||
|
||||
(startup)
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
(require scheme/unit
|
||||
"modes.ss"
|
||||
"font.ss"
|
||||
|
|
|
|||
|
|
@ -7,7 +7,7 @@
|
|||
framework
|
||||
mzlib/class
|
||||
mzlib/list
|
||||
scheme/path
|
||||
racket/path
|
||||
browser/external
|
||||
setup/plt-installer)
|
||||
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
#lang scheme/unit
|
||||
(require string-constants
|
||||
mzlib/class
|
||||
mzlib/list
|
||||
racket/class
|
||||
racket/list
|
||||
framework
|
||||
"drsig.ss")
|
||||
|
||||
|
|
@ -23,7 +23,7 @@
|
|||
|
||||
(define (not-a-language-language? l)
|
||||
(and (not (null? l))
|
||||
(equal? (car (last-pair l))
|
||||
(equal? (last l)
|
||||
(string-constant no-language-chosen))))
|
||||
|
||||
(define (add-initial-modes)
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
|
||||
(require mred
|
||||
scheme/class
|
||||
racket/class
|
||||
syntax/moddep
|
||||
syntax/toplevel
|
||||
framework/framework
|
||||
|
|
@ -9,7 +9,7 @@
|
|||
mrlib/graph
|
||||
"drsig.ss"
|
||||
scheme/unit
|
||||
scheme/async-channel
|
||||
racket/async-channel
|
||||
setup/private/lib-roots)
|
||||
|
||||
(define-struct req (filename key))
|
||||
|
|
|
|||
|
|
@ -1,12 +1,12 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
(provide module-language-tools@)
|
||||
(require mrlib/switchable-button
|
||||
mrlib/bitmap-label
|
||||
scheme/contract
|
||||
racket/contract
|
||||
framework
|
||||
scheme/unit
|
||||
scheme/class
|
||||
scheme/gui/base
|
||||
racket/class
|
||||
racket/gui/base
|
||||
"drsig.ss")
|
||||
|
||||
(define op (current-output-port))
|
||||
|
|
|
|||
|
|
@ -1,11 +1,11 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
|
||||
(provide module-language@)
|
||||
(require scheme/unit
|
||||
scheme/class
|
||||
scheme/list
|
||||
scheme/path
|
||||
scheme/contract
|
||||
racket/class
|
||||
racket/list
|
||||
racket/path
|
||||
racket/contract
|
||||
mred
|
||||
compiler/embed
|
||||
compiler/cm
|
||||
|
|
@ -382,7 +382,7 @@
|
|||
#:literal-expression
|
||||
(begin
|
||||
(parameterize ([current-namespace (make-base-empty-namespace)])
|
||||
(namespace-require 'scheme/base)
|
||||
(namespace-require 'racket/base)
|
||||
(compile
|
||||
`(namespace-require '',(string->symbol (path->string short-program-name))))))
|
||||
#:cmdline '("-U" "--")))))
|
||||
|
|
@ -672,7 +672,7 @@
|
|||
(raise-hopeless-syntax-error "bad syntax in name position of module"
|
||||
stx name))
|
||||
(when filename (check-filename-matches filename name* stx))
|
||||
(let* (;; rewrite the module to use the scheme/base version of `module'
|
||||
(let* (;; rewrite the module to use the racket/base version of `module'
|
||||
[mod (datum->syntax #'here 'module mod)]
|
||||
[expr (datum->syntax stx `(,mod ,name ,lang . ,body) stx stx)])
|
||||
(values name lang expr)))
|
||||
|
|
|
|||
|
|
@ -2,8 +2,8 @@
|
|||
(require framework
|
||||
mzlib/class
|
||||
mred
|
||||
scheme/file
|
||||
scheme/path
|
||||
racket/file
|
||||
racket/path
|
||||
mzlib/thread
|
||||
mzlib/async-channel
|
||||
string-constants
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
#lang mzscheme
|
||||
#lang racket/base
|
||||
(require mred
|
||||
mzlib/class
|
||||
racket/class
|
||||
framework)
|
||||
|
||||
(provide snip-class)
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
#lang scheme/base
|
||||
(require scheme/class scheme/gui/base)
|
||||
#lang racket/base
|
||||
(require racket/class racket/gui/base)
|
||||
(provide draw-palaka palaka-pattern-size)
|
||||
|
||||
(define scale 1)
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
|
||||
(require (for-syntax scheme/base)
|
||||
(require (for-syntax racket/base)
|
||||
framework/framework)
|
||||
|
||||
(provide (rename-out [-preferences:get preferences:get])
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
#lang scheme/base
|
||||
(require scheme/gui/base
|
||||
scheme/class
|
||||
#lang racket/base
|
||||
(require racket/gui/base
|
||||
racket/class
|
||||
profile/sampler
|
||||
profile/render-text
|
||||
profile/analyzer
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
#lang scheme/base
|
||||
(require (for-syntax scheme/base))
|
||||
#lang racket/base
|
||||
(require (for-syntax racket/base))
|
||||
(provide reconstitute)
|
||||
|
||||
(begin-for-syntax
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
|
||||
#|
|
||||
|
||||
|
|
@ -20,15 +20,15 @@ TODO
|
|||
;; user's io ports, to aid any debugging printouts.
|
||||
;; (esp. useful when debugging the users's io)
|
||||
|
||||
(require scheme/class
|
||||
scheme/path
|
||||
scheme/pretty
|
||||
(require racket/class
|
||||
racket/path
|
||||
racket/pretty
|
||||
scheme/unit
|
||||
scheme/list
|
||||
racket/list
|
||||
|
||||
string-constants
|
||||
setup/xref
|
||||
scheme/gui/base
|
||||
racket/gui/base
|
||||
framework
|
||||
browser/external
|
||||
"drsig.ss"
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
#lang mzscheme
|
||||
(require mzlib/class
|
||||
mzlib/pretty
|
||||
mred)
|
||||
#lang racket/base
|
||||
(require racket/class
|
||||
racket/pretty
|
||||
racket/gui/base)
|
||||
|
||||
(define head-size 40)
|
||||
(define small-bitmap-factor 1/2)
|
||||
|
|
|
|||
|
|
@ -1,9 +1,9 @@
|
|||
#lang scheme/unit
|
||||
|
||||
(require scheme/class
|
||||
scheme/list
|
||||
scheme/runtime-path
|
||||
scheme/contract
|
||||
(require racket/class
|
||||
racket/list
|
||||
racket/runtime-path
|
||||
racket/contract
|
||||
setup/getinfo
|
||||
mred
|
||||
framework
|
||||
|
|
@ -13,7 +13,7 @@
|
|||
mrlib/switchable-button
|
||||
string-constants)
|
||||
|
||||
(require (for-syntax scheme/base scheme/match))
|
||||
(require (for-syntax racket/base racket/match))
|
||||
|
||||
(import [prefix drscheme:frame: drscheme:frame^]
|
||||
[prefix drscheme:unit: drscheme:unit^]
|
||||
|
|
|
|||
|
|
@ -1,12 +1,12 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
|
||||
(require scheme/contract
|
||||
(require racket/contract
|
||||
scheme/unit
|
||||
scheme/class
|
||||
scheme/path
|
||||
scheme/port
|
||||
scheme/list
|
||||
scheme/gui/base
|
||||
racket/class
|
||||
racket/path
|
||||
racket/port
|
||||
racket/list
|
||||
racket/gui/base
|
||||
string-constants
|
||||
framework
|
||||
(prefix-in tr: trace/stacktrace)
|
||||
|
|
|
|||
|
|
@ -1,5 +1,4 @@
|
|||
#reader scribble/reader
|
||||
#lang scheme/base
|
||||
#lang at-exp racket/base
|
||||
|
||||
(require scribble/decode
|
||||
scribble/manual)
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
#|
|
||||
|
||||
closing:
|
||||
|
|
@ -11,12 +11,12 @@ module browser threading seems wrong.
|
|||
|
||||
|#
|
||||
|
||||
(require scheme/contract
|
||||
(require racket/contract
|
||||
scheme/unit
|
||||
scheme/class
|
||||
scheme/path
|
||||
scheme/port
|
||||
scheme/list
|
||||
racket/class
|
||||
racket/path
|
||||
racket/port
|
||||
racket/list
|
||||
string-constants
|
||||
framework
|
||||
mrlib/name-message
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
(require scheme/gui/base
|
||||
framework
|
||||
scheme/class)
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
(require scheme/class
|
||||
scheme/gui/base
|
||||
string-constants/string-constant)
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
#|
|
||||
|
||||
Check Syntax separates two classes of identifiers,
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#lang at-exp scheme/base
|
||||
#lang at-exp racket/base
|
||||
|
||||
#|
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,5 @@
|
|||
(module tool mzscheme
|
||||
(require "private/drsig.ss")
|
||||
(provide drscheme:tool^
|
||||
drscheme:tool-exports^))
|
||||
#lang racket/base
|
||||
(require "private/drsig.ss")
|
||||
(provide drscheme:tool^
|
||||
drscheme:tool-exports^)
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user