renamed drscheme collections files to .rkt
This commit is contained in:
Robby Findler
parent
72431fda2d
commit
975f6445f0
|
|
@ -1,5 +1,5 @@
|
|||
#lang racket/base
|
||||
(require scheme/gui/base "private/key.ss")
|
||||
(require scheme/gui/base "private/key.rkt")
|
||||
|
||||
(define debugging? (getenv "PLTDRDEBUG"))
|
||||
(define profiling? (getenv "PLTDRPROFILE"))
|
||||
|
|
@ -1,10 +1,10 @@
|
|||
#lang setup/infotab
|
||||
|
||||
(define tools '("syncheck.ss" #;"sprof.ss"))
|
||||
(define tools '("syncheck.rkt" #;"sprof.rkt"))
|
||||
(define tool-names '("Check Syntax" #;"Sampling Profiler"))
|
||||
|
||||
(define gracket-launcher-names '("DrRacket"))
|
||||
(define gracket-launcher-libraries '("drscheme.ss"))
|
||||
(define gracket-launcher-libraries '("drscheme.rkt"))
|
||||
|
||||
(define mred-launcher-names '("DrScheme"))
|
||||
(define mred-launcher-libraries '("drscheme.ss"))
|
||||
(define mred-launcher-libraries '("drscheme.rkt"))
|
||||
|
|
@ -14,7 +14,7 @@
|
|||
(define (install-variation variant)
|
||||
(parameterize ([current-launcher-variant variant])
|
||||
(make-mred-launcher
|
||||
(list "-ZmvqL" "drscheme.ss" "drscheme")
|
||||
(list "-ZmvqL" "drscheme.rkt" "drscheme")
|
||||
(mred-program-launcher-path "DrScheme")
|
||||
(cons
|
||||
`(exe-name . "DrScheme")
|
||||
2
collects/drscheme/main.rkt
Normal file
2
collects/drscheme/main.rkt
Normal file
|
|
@ -0,0 +1,2 @@
|
|||
#lang racket/base
|
||||
(require "drscheme.rkt")
|
||||
|
|
@ -1,2 +0,0 @@
|
|||
#lang racket/base
|
||||
(require "drscheme.ss")
|
||||
|
|
@ -6,8 +6,8 @@
|
|||
framework
|
||||
browser/external
|
||||
setup/getinfo
|
||||
"drsig.ss"
|
||||
"../acks.ss")
|
||||
"drsig.rkt"
|
||||
"../acks.rkt")
|
||||
|
||||
(import [prefix drscheme:unit: drscheme:unit^]
|
||||
[prefix drscheme:frame: drscheme:frame^]
|
||||
|
|
@ -286,7 +286,7 @@
|
|||
(string-constants accept-and-exit)
|
||||
(string-constants accept-and-quit))])
|
||||
(cond
|
||||
[(null? languages) (error 'app.ss ".1")]
|
||||
[(null? languages) (error 'app.rkt ".1")]
|
||||
[(equal? other-language (car languages))
|
||||
(values (car are-you-sures)
|
||||
(car cancels)
|
||||
|
|
@ -1,7 +1,7 @@
|
|||
#lang racket/base
|
||||
#|
|
||||
|
||||
CODE COPIED (with permission ...) from syntax-browser.ss
|
||||
CODE COPIED (with permission ...) from syntax-browser.rkt
|
||||
desperately seeking abstraction.
|
||||
|
||||
Marshalling (and hence the 'read' method of the snipclass omitted for fast prototyping
|
||||
|
|
@ -18,9 +18,9 @@ profile todo:
|
|||
string-constants
|
||||
framework
|
||||
framework/private/bday
|
||||
"embedded-snip-utils.ss"
|
||||
"drsig.ss"
|
||||
"bindings-browser.ss"
|
||||
"embedded-snip-utils.rkt"
|
||||
"drsig.rkt"
|
||||
"bindings-browser.rkt"
|
||||
net/sendurl
|
||||
net/url
|
||||
racket/match
|
||||
|
|
@ -7,12 +7,12 @@
|
|||
framework/private/bday
|
||||
framework/splash
|
||||
racket/file
|
||||
"eb.ss")
|
||||
"eb.rkt")
|
||||
|
||||
(define files-to-open (command-line #:args filenames filenames))
|
||||
|
||||
;; updates the command-line-arguments with only the files
|
||||
;; to open. See also main.ss.
|
||||
;; to open. See also main.rkt.
|
||||
(current-command-line-arguments (apply vector files-to-open))
|
||||
|
||||
(define-values (texas-independence-day? prince-kuhio-day? kamehameha-day? halloween? weekend?)
|
||||
|
|
@ -6,7 +6,7 @@
|
|||
racket/class
|
||||
syntax/toplevel
|
||||
framework
|
||||
"drsig.ss")
|
||||
"drsig.rkt")
|
||||
|
||||
;; to ensure this guy is loaded (and the snipclass installed) in the drscheme namespace & eventspace
|
||||
;; these things are for effect only!
|
||||
|
|
@ -180,13 +180,13 @@
|
|||
;; these module specs are copied over to each new user's namespace
|
||||
(define to-be-copied-module-specs
|
||||
(list 'mzscheme
|
||||
'(lib "mzlib/foreign.ss")
|
||||
'(lib "mred/mred.ss")
|
||||
'(lib "mrlib/cache-image-snip.ss")
|
||||
'(lib "mrlib/image-core.ss")
|
||||
'(lib "mrlib/matrix-snip.ss")
|
||||
'(lib "mzlib/pconvert-prop.ss")
|
||||
'(lib "planet/terse-info.ss")))
|
||||
'(lib "mzlib/foreign.rkt")
|
||||
'(lib "mred/mred.rkt")
|
||||
'(lib "mrlib/cache-image-snip.rkt")
|
||||
'(lib "mrlib/image-core.rkt")
|
||||
'(lib "mrlib/matrix-snip.rkt")
|
||||
'(lib "mzlib/pconvert-prop.rkt")
|
||||
'(lib "planet/terse-info.rkt")))
|
||||
|
||||
;; ensure that they are all here.
|
||||
(for-each (λ (x) (dynamic-require x #f)) to-be-copied-module-specs)
|
||||
|
|
@ -2,7 +2,7 @@
|
|||
(require scheme/unit
|
||||
racket/class
|
||||
racket/gui/base
|
||||
"drsig.ss"
|
||||
"drsig.rkt"
|
||||
framework
|
||||
string-constants)
|
||||
|
||||
|
|
@ -3,7 +3,7 @@
|
|||
racket/match
|
||||
racket/class
|
||||
racket/string
|
||||
"drsig.ss"
|
||||
"drsig.rkt"
|
||||
mred
|
||||
framework
|
||||
net/url
|
||||
|
|
@ -1,7 +1,7 @@
|
|||
#lang scheme/unit
|
||||
|
||||
(require racket/class
|
||||
"drsig.ss")
|
||||
"drsig.rkt")
|
||||
|
||||
(import [prefix drscheme:unit: drscheme:unit^]
|
||||
[prefix drscheme:frame: drscheme:frame^]
|
||||
|
|
@ -8,7 +8,7 @@
|
|||
setup/dirs
|
||||
help/search
|
||||
help/private/buginfo
|
||||
"drsig.ss")
|
||||
"drsig.rkt")
|
||||
|
||||
(import [prefix drscheme:frame: drscheme:frame^]
|
||||
[prefix drscheme:language-configuration: drscheme:language-configuration/internal^])
|
||||
|
|
@ -3,7 +3,7 @@
|
|||
|
||||
(require racket/class
|
||||
racket/gui/base
|
||||
"palaka.ss")
|
||||
"palaka.rkt")
|
||||
|
||||
(define pi (atan 0 -1))
|
||||
|
||||
|
|
@ -1,6 +1,6 @@
|
|||
#lang scheme/unit
|
||||
(require string-constants
|
||||
"drsig.ss"
|
||||
"drsig.rkt"
|
||||
racket/gui/base)
|
||||
|
||||
|
||||
|
|
@ -11,7 +11,7 @@
|
|||
([set-bm ((Instance Bitmap%) -> Void)])))
|
||||
|
||||
|
||||
(require/typed "bitmap-message.ss"
|
||||
(require/typed "bitmap-message.rkt"
|
||||
[bitmap-message% Bitmap-Message%])
|
||||
|
||||
(provide insert-large-letters)
|
||||
|
|
@ -6,7 +6,7 @@
|
|||
racket/string
|
||||
racket/list
|
||||
racket/gui/base
|
||||
"drsig.ss"
|
||||
"drsig.rkt"
|
||||
string-constants
|
||||
framework
|
||||
setup/getinfo
|
||||
|
|
@ -1498,7 +1498,7 @@
|
|||
(language-position position)
|
||||
(language-numbers numbers))))])
|
||||
(add-language
|
||||
(make-simple '(lib "lang/plt-pretty-big.ss")
|
||||
(make-simple '(lib "lang/plt-pretty-big.rkt")
|
||||
"plt:pretty-big"
|
||||
(list (string-constant legacy-languages)
|
||||
(string-constant pretty-big-scheme))
|
||||
|
|
@ -1507,7 +1507,7 @@
|
|||
(string-constant pretty-big-scheme-one-line-summary)
|
||||
(λ (%) (macro-stepper-mixin (assume-mixin (add-errortrace-key-mixin %))))))
|
||||
(add-language
|
||||
(make-simple '(lib "r5rs/lang.ss")
|
||||
(make-simple '(lib "r5rs/lang.rkt")
|
||||
"plt:r5rs"
|
||||
(list (string-constant legacy-languages)
|
||||
(string-constant r5rs-language-name))
|
||||
|
|
@ -1827,7 +1827,7 @@
|
|||
(new canvas-message% (parent panel2) (label (string-constant start-with-after))))))
|
||||
|
||||
;; get-text-pls : path -> (listof (list* string string (listof string))
|
||||
;; gets the questions from an info.ss file.
|
||||
;; gets the questions from an info.rkt file.
|
||||
(define (get-text-pls info-filename)
|
||||
(let ([proc (get-info/full info-filename)])
|
||||
(if proc
|
||||
|
|
@ -5,7 +5,7 @@
|
|||
racket/class
|
||||
racket/gui/base
|
||||
racket/contract
|
||||
"recon.ss")
|
||||
"recon.rkt")
|
||||
(require/doc racket/base scribble/manual)
|
||||
|
||||
(require (for-meta 2 racket/base))
|
||||
|
|
@ -4,12 +4,12 @@
|
|||
;; user's io ports, to aid any debugging printouts.
|
||||
;; (esp. useful when debugging the users's io)
|
||||
|
||||
(require "drsig.ss"
|
||||
(require "drsig.rkt"
|
||||
string-constants
|
||||
|
||||
;; NOTE: this module instantiates stacktrace itself, so we have
|
||||
;; to be careful to not mix that instantiation with the one
|
||||
;; drracket/private/debug.ss does. errortrace-lib's is for the
|
||||
;; drracket/private/debug.rkt 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)
|
||||
|
|
@ -27,7 +27,7 @@
|
|||
mrlib/syntax-browser
|
||||
compiler/distribute
|
||||
compiler/bundle-dist
|
||||
"rep.ss")
|
||||
"rep.rkt")
|
||||
|
||||
(import [prefix drscheme:debug: drscheme:debug^]
|
||||
[prefix drscheme:tools: drscheme:tools^]
|
||||
|
|
@ -942,7 +942,7 @@
|
|||
[else '()])]
|
||||
[pre-to-be-embedded-module-specs1
|
||||
(if gui?
|
||||
(cons '(lib "mred/mred.ss")
|
||||
(cons '(lib "mred/mred.rkt")
|
||||
pre-to-be-embedded-module-specs0)
|
||||
pre-to-be-embedded-module-specs0)]
|
||||
[pre-to-be-embedded-module-specs2
|
||||
|
|
@ -1123,8 +1123,8 @@
|
|||
(path->string
|
||||
(build-path (collection-path "drscheme" "private")
|
||||
(if gui?
|
||||
"launcher-mred-bootstrap.ss"
|
||||
"launcher-mz-bootstrap.ss")))
|
||||
"launcher-mred-bootstrap.rkt"
|
||||
"launcher-mz-bootstrap.rkt")))
|
||||
(condense-scheme-code-string (format "~s" init-code))
|
||||
(path->string program-filename)
|
||||
(format "~s" module-language-spec)
|
||||
|
|
@ -1,6 +1,6 @@
|
|||
#lang racket/base
|
||||
|
||||
(require racket/gui/base "launcher-bootstrap.ss")
|
||||
(require racket/gui/base "launcher-bootstrap.rkt")
|
||||
|
||||
(current-namespace (make-gui-empty-namespace))
|
||||
(namespace-require 'racket/gui/base)
|
||||
|
|
@ -1,6 +1,6 @@
|
|||
#lang racket/base
|
||||
|
||||
(require "launcher-bootstrap.ss")
|
||||
(require "launcher-bootstrap.rkt")
|
||||
|
||||
(current-namespace (make-base-empty-namespace))
|
||||
(namespace-require 'racket/base)
|
||||
|
|
@ -1,27 +1,27 @@
|
|||
#lang racket/base
|
||||
(require scheme/unit
|
||||
"modes.ss"
|
||||
"font.ss"
|
||||
"eval.ss"
|
||||
"module-browser.ss"
|
||||
"multi-file-search.ss"
|
||||
"debug.ss"
|
||||
"module-language.ss"
|
||||
"tools.ss"
|
||||
"language.ss"
|
||||
"language-configuration.ss"
|
||||
"drsig.ss"
|
||||
"init.ss"
|
||||
"text.ss"
|
||||
"app.ss"
|
||||
"main.ss"
|
||||
"rep.ss"
|
||||
"frame.ss"
|
||||
"unit.ss"
|
||||
"tracing.ss"
|
||||
"get-extend.ss"
|
||||
"help-desk.ss"
|
||||
"module-language-tools.ss")
|
||||
"modes.rkt"
|
||||
"font.rkt"
|
||||
"eval.rkt"
|
||||
"module-browser.rkt"
|
||||
"multi-file-search.rkt"
|
||||
"debug.rkt"
|
||||
"module-language.rkt"
|
||||
"tools.rkt"
|
||||
"language.rkt"
|
||||
"language-configuration.rkt"
|
||||
"drsig.rkt"
|
||||
"init.rkt"
|
||||
"text.rkt"
|
||||
"app.rkt"
|
||||
"main.rkt"
|
||||
"rep.rkt"
|
||||
"frame.rkt"
|
||||
"unit.rkt"
|
||||
"tracing.rkt"
|
||||
"get-extend.rkt"
|
||||
"help-desk.rkt"
|
||||
"module-language-tools.rkt")
|
||||
|
||||
(provide drscheme@)
|
||||
|
||||
|
|
@ -2,7 +2,7 @@
|
|||
|
||||
(require string-constants
|
||||
mzlib/contract
|
||||
"drsig.ss"
|
||||
"drsig.rkt"
|
||||
mred
|
||||
framework
|
||||
mzlib/class
|
||||
|
|
@ -84,8 +84,9 @@
|
|||
|
||||
(namespace-set-variable-value! 'help-desk:frame-mixin drscheme:frame:basics-mixin)
|
||||
|
||||
(finder:default-filters (list* '("Scheme (.ss)" "*.ss")
|
||||
'("Scheme (.scm)" "*.scm")
|
||||
(finder:default-filters (list* '("Racket (.rkt)" "*.rkt")
|
||||
'("Racket (.ss)" "*.ss")
|
||||
'("Racket (.scm)" "*.scm")
|
||||
(finder:default-filters)))
|
||||
(application:current-app-name (string-constant drscheme))
|
||||
|
||||
|
|
@ -444,7 +445,7 @@
|
|||
|
||||
;; if the unmarshaller returns #f, that will fail the
|
||||
;; test for this preference, reverting back to the default.
|
||||
;; In that case, the default is specified in the pref.ss file
|
||||
;; In that case, the default is specified in the pref.rkt file
|
||||
;; of the default collection and may not be the default
|
||||
;; specified above (of course).
|
||||
(preferences:set-un/marshall
|
||||
|
|
@ -609,7 +610,7 @@
|
|||
(loop (cdr files))
|
||||
(cons (car files) (loop (cdr files))))])))
|
||||
|
||||
;; NOTE: drscheme-normal.ss sets current-command-line-arguments to
|
||||
;; NOTE: drscheme-normal.rkt sets current-command-line-arguments to
|
||||
;; the list of files to open, after parsing out flags like -h
|
||||
(let* ([files-to-open
|
||||
(if (preferences:get 'drscheme:open-in-tabs)
|
||||
|
|
@ -3,7 +3,7 @@
|
|||
racket/class
|
||||
racket/list
|
||||
framework
|
||||
"drsig.ss")
|
||||
"drsig.rkt")
|
||||
|
||||
(import)
|
||||
(export drscheme:modes^)
|
||||
|
|
@ -7,7 +7,7 @@
|
|||
framework/framework
|
||||
string-constants
|
||||
mrlib/graph
|
||||
"drsig.ss"
|
||||
"drsig.rkt"
|
||||
scheme/unit
|
||||
racket/async-channel
|
||||
setup/private/lib-roots)
|
||||
|
|
@ -985,7 +985,8 @@
|
|||
(let ([tst (bytes->path (bytes-append (path->bytes str) ext))])
|
||||
(and (file-exists? tst)
|
||||
tst)))])
|
||||
(or (try #".ss")
|
||||
(or (try #".rkt")
|
||||
(try #".ss")
|
||||
(try #".scm")
|
||||
(try #"")
|
||||
str)))
|
||||
|
|
@ -7,7 +7,7 @@
|
|||
scheme/unit
|
||||
racket/class
|
||||
racket/gui/base
|
||||
"drsig.ss")
|
||||
"drsig.rkt")
|
||||
|
||||
(define op (current-output-port))
|
||||
(define (oprintf . args) (apply fprintf op args))
|
||||
|
|
@ -13,8 +13,8 @@
|
|||
framework
|
||||
string-constants
|
||||
planet/config
|
||||
"drsig.ss"
|
||||
"rep.ss")
|
||||
"drsig.rkt"
|
||||
"rep.rkt")
|
||||
|
||||
(define op (current-output-port))
|
||||
(define (oprintf . args) (apply fprintf op args))
|
||||
|
|
@ -745,7 +745,7 @@
|
|||
[filename-end (skip-to-whitespace filename-start)])
|
||||
(and (not (= filename-start end-module))
|
||||
(string-append (get-text filename-start filename-end)
|
||||
".ss")))))))
|
||||
".rkt")))))))
|
||||
|
||||
|
||||
(define/private (matches start string)
|
||||
|
|
@ -7,7 +7,7 @@
|
|||
mzlib/thread
|
||||
mzlib/async-channel
|
||||
string-constants
|
||||
"drsig.ss")
|
||||
"drsig.rkt")
|
||||
|
||||
(import [prefix drscheme:frame: drscheme:frame^]
|
||||
[prefix drscheme:unit: drscheme:unit^])
|
||||
|
|
@ -31,7 +31,7 @@ TODO
|
|||
racket/gui/base
|
||||
framework
|
||||
browser/external
|
||||
"drsig.ss"
|
||||
"drsig.rkt"
|
||||
|
||||
;; the dynamic-require below loads this module,
|
||||
;; so we make the dependency explicit here, even
|
||||
|
|
@ -1215,7 +1215,7 @@ TODO
|
|||
(cleanup))
|
||||
;; HACK: lock the interactions now; the reason for this
|
||||
;; is that `cleanup-interaction' invokes
|
||||
;; `enable-evaluation', and in "unit.ss" this is defined
|
||||
;; `enable-evaluation', and in "unit.rkt" this is defined
|
||||
;; to unlock the interactions which might make sense in
|
||||
;; that context.
|
||||
(lock #t))))))))
|
||||
|
|
@ -1,6 +1,6 @@
|
|||
#lang scheme/unit
|
||||
(require mzlib/class
|
||||
"drsig.ss"
|
||||
"drsig.rkt"
|
||||
framework)
|
||||
|
||||
(import)
|
||||
|
|
@ -21,7 +21,7 @@
|
|||
(not (string? (syntax-object->datum (syntax type))))
|
||||
(andmap (λ (x) (string? (syntax-object->datum x))) (syntax->list (syntax (strs ...)))))
|
||||
(make-ctc-binding (syntax name) (syntax type))]
|
||||
[else (raise-syntax-error 'tool-contract-language.ss "unknown case" stx case-stx)]))
|
||||
[else (raise-syntax-error 'tool-contract-language.rkt "unknown case" stx case-stx)]))
|
||||
|
||||
|
||||
(syntax-case stx ()
|
||||
|
|
@ -63,19 +63,19 @@
|
|||
(for-each
|
||||
(λ (str-stx)
|
||||
(when (string? (syntax-object->datum str-stx))
|
||||
(raise-syntax-error 'tool-contract-language.ss "expected type name specification"
|
||||
(raise-syntax-error 'tool-contract-language.rkt "expected type name specification"
|
||||
stx
|
||||
str-stx)))
|
||||
(syntax->list (syntax (type-names ...))))
|
||||
(for-each
|
||||
(λ (name)
|
||||
(unless (identifier? name)
|
||||
(raise-syntax-error 'tool-contract-language.ss "expected identifier" stx name)))
|
||||
(raise-syntax-error 'tool-contract-language.rkt "expected identifier" stx name)))
|
||||
(syntax->list (syntax (name ...))))
|
||||
(for-each
|
||||
(λ (str)
|
||||
(unless (string? (syntax-object->datum str))
|
||||
(raise-syntax-error 'tool-contract-language.ss "expected docs string" stx str)))
|
||||
(raise-syntax-error 'tool-contract-language.rkt "expected docs string" stx str)))
|
||||
(apply append (map syntax->list (syntax->list (syntax ((strs ...) ...)))))))]))
|
||||
|
||||
(define-syntax (-#%module-begin2 stx)
|
||||
|
|
@ -120,17 +120,17 @@
|
|||
(for-each
|
||||
(λ (str-stx)
|
||||
(when (string? (syntax-object->datum str-stx))
|
||||
(raise-syntax-error 'tool-contract-language.ss "expected type name specification"
|
||||
(raise-syntax-error 'tool-contract-language.rkt "expected type name specification"
|
||||
stx
|
||||
str-stx)))
|
||||
(syntax->list (syntax (type-names ...))))
|
||||
(for-each
|
||||
(λ (name)
|
||||
(unless (identifier? name)
|
||||
(raise-syntax-error 'tool-contract-language.ss "expected identifier" stx name)))
|
||||
(raise-syntax-error 'tool-contract-language.rkt "expected identifier" stx name)))
|
||||
(syntax->list (syntax (name ...))))
|
||||
(for-each
|
||||
(λ (str)
|
||||
(unless (string? (syntax-object->datum str))
|
||||
(raise-syntax-error 'tool-contract-language.ss "expected docs string" stx str)))
|
||||
(raise-syntax-error 'tool-contract-language.rkt "expected docs string" stx str)))
|
||||
(apply append (map syntax->list (syntax->list (syntax ((strs ...) ...)))))))]))
|
||||
|
|
@ -8,8 +8,8 @@
|
|||
mred
|
||||
framework
|
||||
framework/splash
|
||||
"drsig.ss"
|
||||
"language-object-contract.ss"
|
||||
"drsig.rkt"
|
||||
"language-object-contract.rkt"
|
||||
mrlib/switchable-button
|
||||
string-constants)
|
||||
|
||||
|
|
@ -312,7 +312,7 @@ string-constants)
|
|||
[(_ body tool-name)
|
||||
(let ()
|
||||
(define full-sexp
|
||||
(call-with-input-file (build-path (collection-path "drscheme") "tool-lib.ss")
|
||||
(call-with-input-file (build-path (collection-path "drscheme") "tool-lib.rkt")
|
||||
(λ (port)
|
||||
(parameterize ([read-accept-reader #t])
|
||||
(read port)))))
|
||||
|
|
@ -337,7 +337,7 @@ string-constants)
|
|||
[`(,a . ,b)
|
||||
(loop b)]
|
||||
[`()
|
||||
(error 'tcl.ss "did not find provide/doc: ~a" full-sexp)])))]))
|
||||
(error 'tools.rkt "did not find provide/doc: ~a" full-sexp)])))]))
|
||||
|
||||
;; invoke-tool : unit/sig string -> (values (-> void) (-> void))
|
||||
;; invokes the tools and returns the two phase thunks.
|
||||
|
|
@ -10,7 +10,7 @@
|
|||
string-constants
|
||||
framework
|
||||
(prefix-in tr: trace/stacktrace)
|
||||
"drsig.ss")
|
||||
"drsig.rkt")
|
||||
|
||||
(provide tracing@)
|
||||
|
||||
|
|
@ -30,10 +30,10 @@ module browser threading seems wrong.
|
|||
net/sendurl
|
||||
net/url
|
||||
|
||||
"drsig.ss"
|
||||
"auto-language.ss"
|
||||
"insert-large-letters.ss"
|
||||
(prefix-in drscheme:arrow: "../arrow.ss")
|
||||
"drsig.rkt"
|
||||
"auto-language.rkt"
|
||||
"insert-large-letters.rkt"
|
||||
(prefix-in drscheme:arrow: "../arrow.rkt")
|
||||
|
||||
mred
|
||||
(prefix-in mred: mred)
|
||||
|
|
@ -143,7 +143,7 @@ module browser threading seems wrong.
|
|||
(λ (x y)
|
||||
(send text find-position x y))))
|
||||
(send text get-text start end))]
|
||||
;; almost the same code as "search-help-desk" in "rep.ss"
|
||||
;; almost the same code as "search-help-desk" in "rep.rkt"
|
||||
[l (send text get-canvas)]
|
||||
[l (and l (send l get-top-level-window))]
|
||||
[l (and l (is-a? l -frame<%>) (send l get-definitions-text))]
|
||||
|
|
@ -787,7 +787,7 @@ module browser threading seems wrong.
|
|||
(set! really-modified? #f)
|
||||
;; HACK: click run; would be better to override on-execute and
|
||||
;; make it initialize a working repl, but the problem is that
|
||||
;; doing that in module-language.ss means that it'll either need
|
||||
;; doing that in module-language.rkt means that it'll either need
|
||||
;; to find if the current text is the auto-text and analyze it to
|
||||
;; get this initialization, or it will need to do that for all
|
||||
;; possible contents, which means that it'll work when opening
|
||||
|
|
@ -38,7 +38,7 @@ If the namespace does not, they are colored the unbound color.
|
|||
net/uri-codec
|
||||
browser/external
|
||||
(for-syntax scheme/base)
|
||||
"syncheck-drscheme-button.ss")
|
||||
"syncheck-drscheme-button.rkt")
|
||||
(provide tool@)
|
||||
|
||||
(define o (current-output-port))
|
||||
|
|
@ -2312,7 +2312,7 @@ If the namespace does not, they are colored the unbound color.
|
|||
;; possible-suffixes : (listof string)
|
||||
;; these are the suffixes that are checked for the reverse
|
||||
;; module-path mapping.
|
||||
(define possible-suffixes '(".ss" ".scm" ""))
|
||||
(define possible-suffixes '(".rkt" ".ss" ".scm" ""))
|
||||
|
||||
;; module-name-sym->filename : symbol -> (union #f string)
|
||||
(define (module-name-sym->filename sym)
|
||||
4617
src/racket/gc/libatomic_ops/configure
vendored
4617
src/racket/gc/libatomic_ops/configure
vendored
File diff suppressed because it is too large
Load Diff
|
|
@ -48,6 +48,9 @@
|
|||
/* Define to the one symbol short name of this package. */
|
||||
#undef PACKAGE_TARNAME
|
||||
|
||||
/* Define to the home page for this package. */
|
||||
#undef PACKAGE_URL
|
||||
|
||||
/* Define to the version of this package. */
|
||||
#undef PACKAGE_VERSION
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user