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

Some random ".ss" -> ".rkt"s

Browse Source 
original commit: 939af28a4c94c283f46eb121574e4131f12cba53
This commit is contained in:
Eli Barzilay 2010-05-17 05:27:03 -04:00
parent d1e2ad29b7
commit bc4b4c6168
22 changed files with 53 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mzlib/a-signature.rkt
View File

@ -1,11 +1,11 @@
(module a-signature mzscheme
(require-for-syntax "private/unit-compiletime.ss"
"private/unit-syntax.ss")
(require "unit.ss")
(require-for-syntax "private/unit-compiletime.rkt"
"private/unit-syntax.rkt")
(require "unit.rkt")
(provide (rename module-begin #%module-begin)
(all-from-except mzscheme #%module-begin)
(all-from "unit.ss"))
(all-from "unit.rkt"))
(define-for-syntax (make-name s)
(string->symbol

4
collects/mzlib/a-unit.rkt
View File

@ -1,10 +1,10 @@
(module a-unit mzscheme
(require "unit.ss")
(require "unit.rkt")
(require-for-syntax syntax/kerncase)
(provide (rename module-begin #%module-begin)
(all-from-except mzscheme #%module-begin)
(all-from "unit.ss"))
(all-from "unit.rkt"))
(define-for-syntax (make-name s)
(string->symbol

14
collects/mzlib/contract.rkt
View File

@ -5,23 +5,23 @@
;; provide arrow contracts from our local copy
;;
(require "private/contract-arrow.ss")
(provide (all-from-out "private/contract-arrow.ss"))
(require "private/contract-arrow.rkt")
(provide (all-from-out "private/contract-arrow.rkt"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; provide contracts for objects
;;
(require "private/contract-object.ss")
(provide (all-from-out "private/contract-object.ss"))
(require "private/contract-object.rkt")
(provide (all-from-out "private/contract-object.rkt"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; old-style define/contract
;;
(require "private/contract-define.ss")
(provide (all-from-out "private/contract-define.ss"))
(require "private/contract-define.rkt")
(provide (all-from-out "private/contract-define.rkt"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
@ -38,7 +38,7 @@
racket/contract/private/basic-opters)
(provide
opt/c define-opt/c ;(all-from "private/contract-opt.ss")
opt/c define-opt/c ;(all-from "private/contract-opt.rkt")
(except-out (all-from-out racket/contract/private/ds)
lazy-depth-to-look)

2
collects/mzlib/date.rkt
View File

@ -1,7 +1,7 @@
(module date mzscheme
(require "list.ss")
(require "list.rkt")
(provide date->string
date-display-format

2
collects/mzlib/deflate.rkt
View File

@ -12,7 +12,7 @@
(provide deflate gzip-through-ports gzip)
(require "unit200.ss")
(require "unit200.rkt")
(define (vector-ref* v i)
(let ([r (vector-ref v i)])

2
collects/mzlib/defmacro.rkt
View File

@ -1,7 +1,7 @@
(module defmacro mzscheme
(require-for-syntax syntax/stx
"private/dmhelp.ss")
"private/dmhelp.rkt")
(provide define-macro
defmacro)

4
collects/mzlib/etc.rkt
View File

@ -10,13 +10,13 @@
build-vector
compose)
(rename scheme/base base-else else)
"kw.ss")
"kw.rkt")
(require-for-syntax syntax/kerncase
syntax/stx
syntax/name
setup/main-collects
"private/stxset.ss")
"private/stxset.rkt")
(provide boolean=? symbol=?
identity

4
collects/mzlib/include.rkt
View File

@ -1,8 +1,8 @@
(module include mzscheme
(require-for-syntax syntax/stx
"private/increader.ss"
"cm-accomplice.ss")
"private/increader.rkt"
"cm-accomplice.rkt")
(require mzlib/etc)
(define-for-syntax (resolve-path-spec fn loc stx build-path-stx)

2
collects/mzlib/port.rkt
View File

@ -3,7 +3,7 @@
(require (for-syntax racket/base)
racket/contract/base
mzlib/list
"private/port.ss")
"private/port.rkt")
(define (input-port-with-progress-evts? ip)
(and (input-port? ip)

2
collects/mzlib/private/contract-arr-obj-helpers.rkt
View File

@ -5,7 +5,7 @@
(require (for-syntax scheme/base))
(require (for-template scheme/base)
(for-template racket/contract/private/guts)
(for-template "contract-arr-checks.ss"))
(for-template "contract-arr-checks.rkt"))
(provide make-/proc ->/h ->*/h ->d/h ->d*/h ->r/h
->pp/h ->pp-rest/h

4
collects/mzlib/private/contract-arrow.rkt
View File

@ -2,11 +2,11 @@
(require racket/contract/private/guts
racket/contract/private/opt
"contract-arr-checks.ss")
"contract-arr-checks.rkt")
(require (for-syntax racket/base)
(for-syntax racket/contract/private/opt-guts)
(for-syntax racket/contract/private/helpers)
(for-syntax "contract-arr-obj-helpers.ss")
(for-syntax "contract-arr-obj-helpers.rkt")
(for-syntax syntax/stx)
(for-syntax syntax/name))

8
collects/mzlib/private/contract-object.rkt
View File

@ -1,12 +1,12 @@
#lang racket/base
(require "contract-arrow.ss"
(require "contract-arrow.rkt"
racket/contract/private/guts
racket/private/class-internal
"contract-arr-checks.ss")
"contract-arr-checks.rkt")
(require (for-syntax racket/base
racket/contract/private/helpers
"contract-arr-obj-helpers.ss"))
"contract-arr-obj-helpers.rkt"))
(provide mixin-contract
make-mixin-contract
@ -26,7 +26,7 @@
(define (obj->pp-rest/proc stx) (make-/proc #t ->pp-rest/h stx))
(define (obj-case->/proc stx) (make-case->/proc #t stx stx select/h))
;; WARNING: select/h is copied from contract-arrow.ss. I'm not sure how
;; WARNING: select/h is copied from contract-arrow.rkt. I'm not sure how
;; I can avoid this duplication -robby
(define (select/h stx err-name ctxt-stx)
(syntax-case stx (-> ->* ->d ->d* ->r ->pp ->pp-rest)

8
collects/mzlib/private/sigutil.rkt
View File

@ -1,15 +1,15 @@
(module sigutil mzscheme
;; Used by unitsig.ss
;; Used by unitsig.rkt
;; (needs an overhaul, too)
(require syntax/stx
syntax/struct
syntax/context)
(require "sigmatch.ss")
(require "../unit200.ss")
(require "../list.ss")
(require "sigmatch.rkt")
(require "../unit200.rkt")
(require "../list.rkt")
(define-struct signature (name ; sym
src ; sym

2
collects/mzlib/private/stxset.rkt
View File

@ -5,7 +5,7 @@
(provide finish-syntax-set)
;; Used in the expansion of `define-syntax-set' from "etc.ss"
;; Used in the expansion of `define-syntax-set' from "etc.rkt"
(define-syntax (finish-syntax-set stx)
(syntax-case stx ()
[(_ stx)

2
collects/mzlib/runtime-path.rkt
View File

@ -5,7 +5,7 @@
setup/dirs
scheme/list
scheme/string
(only-in "private/runtime-path-table.ss" table)
(only-in "private/runtime-path-table.rkt" table)
(for-syntax scheme/base))
(provide define-runtime-path

2
collects/mzlib/struct.rkt
View File

@ -6,7 +6,7 @@
define-struct/properties
make-->vector)
(require-for-syntax syntax/struct
"list.ss"
"list.rkt"
syntax/stx)
;; ------------------------------------------------------------

2
collects/mzlib/thread.rkt
View File

@ -1,6 +1,6 @@
(module thread mzscheme
(require "kw.ss" "contract.ss")
(require "kw.rkt" "contract.rkt")
(provide run-server
consumer-thread)

4
collects/mzlib/unit-exptime.rkt
View File

@ -1,7 +1,7 @@
#lang scheme/base
(require "private/unit-syntax.ss"
"private/unit-compiletime.ss")
(require "private/unit-syntax.rkt"
"private/unit-compiletime.rkt")
(provide unit-static-signatures
signature-members)

14
collects/mzlib/unit.rkt
View File

@ -11,18 +11,18 @@
scheme/struct-info
syntax/stx
unstable/location
"private/unit-contract-syntax.ss"
"private/unit-compiletime.ss"
"private/unit-syntax.ss"))
"private/unit-contract-syntax.rkt"
"private/unit-compiletime.rkt"
"private/unit-syntax.rkt"))
(require mzlib/etc
racket/contract/base
scheme/stxparam
unstable/location
"private/unit-contract.ss"
"private/unit-keywords.ss"
"private/unit-runtime.ss"
"private/unit-utils.ss"
"private/unit-contract.rkt"
"private/unit-keywords.rkt"
"private/unit-runtime.rkt"
"private/unit-utils.rkt"
(rename-in racket/private/struct [struct struct~]))
(provide define-signature-form struct struct/ctc open

4
collects/mzlib/unit200.rkt
View File

@ -6,8 +6,8 @@
syntax/stx
syntax/name
syntax/context
"list.ss"
"private/unitidmap.ss")
"list.rkt"
"private/unitidmap.rkt")
;; ----------------------------------------------------------------------
;; Structures and helpers

8
collects/mzlib/unitsig200.rkt
View File

@ -5,11 +5,11 @@
;; compile-time information). It's in dire need of an overhaul.
(module unitsig200 mzscheme
(require "unit200.ss")
(require "private/sigmatch.ss")
(require "unit200.rkt")
(require "private/sigmatch.rkt")
(require-for-syntax "private/sigutil.ss")
(require-for-syntax "private/sigmatch.ss")
(require-for-syntax "private/sigutil.rkt")
(require-for-syntax "private/sigmatch.rkt")
(require-for-syntax syntax/kerncase)
(define-struct signed-unit (unit imports exports))

4
collects/racket/private/old-ds.rkt
View File

@ -1,8 +1,8 @@
(module old-ds '#%kernel
(#%require "define-struct.ss"
(#%require "define-struct.rkt"
(for-syntax '#%kernel
"stxcase-scheme.ss"))
"stxcase-scheme.rkt"))
(#%provide define-struct let-struct datum)