diff --git a/racket/src/foreign/foreign.rktc b/racket/src/foreign/foreign.rktc index 371b4e9a37..14b44dc080 100755 --- a/racket/src/foreign/foreign.rktc +++ b/racket/src/foreign/foreign.rktc @@ -564,7 +564,7 @@ static Scheme_Object *utf16_pointer_to_ucs4_string(unsigned short *utf) (define types null) -(require (for-syntax scheme/base)) +(require (for-syntax racket/base)) (define (get-prop type prop) (cadr (assq prop (cdr (assq type types))))) diff --git a/racket/src/foreign/rktc-utils.rkt b/racket/src/foreign/rktc-utils.rkt index 3e322f7860..bac68469b2 100644 --- a/racket/src/foreign/rktc-utils.rkt +++ b/racket/src/foreign/rktc-utils.rkt @@ -1,8 +1,8 @@ ;; Preprocessor utilities for the .rktc file. -#lang at-exp scheme/base +#lang at-exp racket/base -(require (for-syntax scheme/base) scheme/list scribble/text/output) +(require (for-syntax racket/base) racket/list scribble/text/output) (provide maplines) (define (maplines #:semicolons? [semi? #t] fun . ls) diff --git a/racket/src/racket/src/gen-jit-ts.rkt b/racket/src/racket/src/gen-jit-ts.rkt index 5a86884af4..42412aaebe 100644 --- a/racket/src/racket/src/gen-jit-ts.rkt +++ b/racket/src/racket/src/gen-jit-ts.rkt @@ -1,5 +1,5 @@ -#lang at-exp scheme/base -(require scheme/string) +#lang at-exp racket/base +(require racket/string) (define (char->type c) (case c diff --git a/racket/src/racket/src/mk-uchar.rkt b/racket/src/racket/src/mk-uchar.rkt index 03925e9fcf..839e99d7cd 100644 --- a/racket/src/racket/src/mk-uchar.rkt +++ b/racket/src/racket/src/mk-uchar.rkt @@ -12,7 +12,7 @@ ;; in the "Unicode" directory. The file schuchar.inc will be ;; overwritten. -(require scheme/list) +(require racket/list) (define mark-cats '("Mn" "Mc" "Me")) (define letter-cats '("Lu" "Ll" "Lt" "Lm" "Lo")) diff --git a/racket/src/racket/src/renumber.rkt b/racket/src/racket/src/renumber.rkt index 57f9659021..182cb58666 100644 --- a/racket/src/racket/src/renumber.rkt +++ b/racket/src/racket/src/renumber.rkt @@ -1,4 +1,4 @@ -#lang scheme/base +#lang racket/base (define filename "stypes.h") diff --git a/racket/src/racket/src/sstoinc.rkt b/racket/src/racket/src/sstoinc.rkt index 0643fb9418..8fd2bbef77 100644 --- a/racket/src/racket/src/sstoinc.rkt +++ b/racket/src/racket/src/sstoinc.rkt @@ -1,5 +1,5 @@ -#lang scheme/base +#lang racket/base (define to-zo? (member "--zo" (vector->list (current-command-line-arguments)))) diff --git a/racket/src/worksp/mzcom/xform.rkt b/racket/src/worksp/mzcom/xform.rkt index 410b586782..0ef4a30cfd 100644 --- a/racket/src/worksp/mzcom/xform.rkt +++ b/racket/src/worksp/mzcom/xform.rkt @@ -1,4 +1,4 @@ -#lang scheme/base +#lang racket/base (define cpp-flags "/D _CRT_SECURE_NO_DEPRECATE /D WIN32 /D _USE_DECLSPECS_FOR_SAL=0 /D _USE_ATTRIBUTES_FOR_SAL=0") (define includes "/I ../../racket/include /I . /I .. /I ../../mzcom")