Remove/replace some dependencies on scheme-lib
This commit is contained in:
Asumu Takikawa
parent
09920bd8ce
commit
dfe51373dd
|
|
@ -2,8 +2,7 @@
|
|||
|
||||
(define collection 'multi)
|
||||
|
||||
(define build-deps '("scheme-lib"
|
||||
"gui-doc"
|
||||
(define build-deps '("gui-doc"
|
||||
"pict-doc"
|
||||
"at-exp-lib"
|
||||
"base"
|
||||
|
|
|
|||
|
|
@ -1,12 +1,12 @@
|
|||
#readerscribble/reader
|
||||
(module blurbs scheme/base
|
||||
(module blurbs racket/base
|
||||
(require scribble/struct
|
||||
scribble/manual
|
||||
scribble/scheme
|
||||
scribble/decode
|
||||
(for-label racket/draw
|
||||
scheme/base)
|
||||
(for-syntax scheme/base))
|
||||
racket/base)
|
||||
(for-syntax racket/base))
|
||||
|
||||
(provide (all-defined-out))
|
||||
|
||||
|
|
|
|||
|
|
@ -2,7 +2,6 @@
|
|||
|
||||
(define collection 'multi)
|
||||
(define deps '("base"
|
||||
"scheme-lib"
|
||||
"rackunit-lib"))
|
||||
|
||||
(define pkg-desc "Testing framework")
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
#lang racket/base
|
||||
|
||||
(require scheme/match scheme/list scheme/string rackunit/log
|
||||
(for-syntax scheme/base scheme/match))
|
||||
(require racket/match racket/list racket/string rackunit/log
|
||||
(for-syntax racket/base racket/match))
|
||||
|
||||
(define-syntax (safe stx)
|
||||
(syntax-case stx ()
|
||||
|
|
|
|||
|
|
@ -2,7 +2,7 @@
|
|||
|
||||
@(require scribble/manual
|
||||
scribble/bnf
|
||||
(for-label scheme
|
||||
(for-label racket
|
||||
errortrace
|
||||
errortrace/errortrace-lib
|
||||
errortrace/stacktrace))
|
||||
|
|
|
|||
|
|
@ -1,7 +1,6 @@
|
|||
#lang info
|
||||
(define collection 'multi)
|
||||
(define build-deps '("scheme-lib"
|
||||
"racket-doc"
|
||||
(define build-deps '("racket-doc"
|
||||
"base"
|
||||
"errortrace-lib"
|
||||
"scribble-lib"))
|
||||
|
|
|
|||
|
|
@ -13,5 +13,4 @@
|
|||
"net-lib"
|
||||
"racket-test"
|
||||
"rackunit-lib"
|
||||
"scheme-lib"
|
||||
"web-server-lib"))
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme
|
||||
#lang racket
|
||||
(require net/cgi (only-in net/uri-codec current-alist-separator-mode)
|
||||
tests/eli-tester)
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme
|
||||
#lang racket
|
||||
(require net/cookie tests/eli-tester)
|
||||
|
||||
;; cookie tests --- JBM, 2006-12-01
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme
|
||||
#lang racket
|
||||
(require net/base64 net/qp tests/eli-tester)
|
||||
|
||||
(define tricky-strings
|
||||
|
|
@ -83,7 +83,7 @@
|
|||
|
||||
#|
|
||||
Use this to compare base64 encode/decode against the unix utilities
|
||||
(require net/base64 scheme/system)
|
||||
(require net/base64 racket/system)
|
||||
(define (base64-encode* bstr)
|
||||
(let ([o (open-output-bytes)])
|
||||
(parameterize ([current-output-port o]
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme
|
||||
#lang racket
|
||||
(require net/head tests/eli-tester)
|
||||
|
||||
;; a few tests of head.rkt -- JBC, 2006-07-31
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme
|
||||
#lang racket
|
||||
(require net/uri-codec tests/eli-tester)
|
||||
|
||||
(provide tests)
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
(module reader scheme/base
|
||||
(module reader racket/base
|
||||
(require syntax/module-reader
|
||||
(only-in scribble/reader make-at-readtable))
|
||||
|
||||
|
|
|
|||
|
|
@ -1,8 +1,7 @@
|
|||
#lang info
|
||||
|
||||
(define collection 'multi)
|
||||
(define deps '("scheme-lib"
|
||||
"base"))
|
||||
(define deps '("base"))
|
||||
|
||||
(define pkg-desc "Libraries for @-expressions")
|
||||
|
||||
|
|
|
|||
|
|
@ -1,9 +1,9 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
(require (prefix-in scribble: scribble/reader)
|
||||
(rename-in syntax/module-reader
|
||||
[#%module-begin #%reader-module-begin]))
|
||||
(provide (rename-out [module-begin #%module-begin])
|
||||
(except-out (all-from-out scheme/base)
|
||||
(except-out (all-from-out racket/base)
|
||||
#%module-begin)
|
||||
scribble-base-info
|
||||
scribble-base-reader-info
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
;; ============================================================================
|
||||
;; Implements the @-reader macro for embedding text in Scheme code.
|
||||
;; Implements the @-reader macro for embedding text in Racket code.
|
||||
|
||||
#lang scheme/base
|
||||
#lang racket/base
|
||||
|
||||
(require syntax/readerr)
|
||||
|
||||
|
|
@ -391,7 +391,7 @@
|
|||
(cond [(not xs) xs]
|
||||
[(or (null? xs) (not (null? (cdr xs))))
|
||||
(read-error line col pos
|
||||
"a ~a|...| form in Scheme mode must have ~a"
|
||||
"a ~a|...| form in Racket mode must have ~a"
|
||||
ch:command
|
||||
"exactly one escaped expression")]
|
||||
[else (car xs)]))
|
||||
|
|
@ -478,7 +478,7 @@
|
|||
stx ; no cmd part => just a parenthesized expression
|
||||
cmd ; no datums/lines => simple expression (no parens)
|
||||
;; impossible: either we saw []s or {}s, or we read a
|
||||
;; scheme expression
|
||||
;; racket expression
|
||||
(internal-error 'dispatcher))]
|
||||
[(stx) (let ([ds (and datums (length datums))]
|
||||
[ls (and lines (length lines))])
|
||||
|
|
@ -552,7 +552,7 @@
|
|||
(define at-rt
|
||||
(make-readtable readtable command-char 'non-terminating-macro dispatcher))
|
||||
(define cmd-rt
|
||||
;; similar to plain Scheme (scribble, actually), but with `@' as usual and
|
||||
;; similar to plain Racket (scribble, actually), but with `@' as usual and
|
||||
;; and `|' as a terminating macro characters (otherwise it behaves the
|
||||
;; same; the only difference is that `a|b|c' is three symbols)
|
||||
(make-readtable readtable
|
||||
|
|
|
|||
|
|
@ -10,5 +10,4 @@
|
|||
(define build-deps '("racket-doc"
|
||||
"rackunit-gui"
|
||||
"rackunit-lib"
|
||||
"scheme-lib"
|
||||
"scribble-lib"))
|
||||
|
|
|
|||
|
|
@ -1,11 +1,11 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
|
||||
(require
|
||||
scribble/eval
|
||||
scribble/manual
|
||||
|
||||
(for-label scheme/base
|
||||
scheme/contract
|
||||
(for-label racket/base
|
||||
racket/contract
|
||||
rackunit
|
||||
rackunit/text-ui
|
||||
rackunit/gui))
|
||||
|
|
@ -13,8 +13,8 @@
|
|||
(provide
|
||||
(all-from-out scribble/eval
|
||||
scribble/manual)
|
||||
(for-label (all-from-out scheme/base
|
||||
scheme/contract
|
||||
(for-label (all-from-out racket/base
|
||||
racket/contract
|
||||
rackunit
|
||||
rackunit/text-ui
|
||||
rackunit/gui)))
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
|
||||
(require rackunit
|
||||
"file.rkt")
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
|
||||
(define (my-+ a b)
|
||||
(if (zero? a)
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user