remove uses of scheme/* in src

Fixes windows snapshot builds.
This commit is contained in:
Ryan Culpepper 2013-08-28 21:29:05 -04:00
parent b20389e297
commit 5c462eee2b
7 changed files with 9 additions and 9 deletions

View File

@ -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)))))

View File

@ -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)

View File

@ -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

View File

@ -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"))

View File

@ -1,4 +1,4 @@
#lang scheme/base
#lang racket/base
(define filename "stypes.h")

View File

@ -1,5 +1,5 @@
#lang scheme/base
#lang racket/base
(define to-zo? (member "--zo" (vector->list (current-command-line-arguments))))

View File

@ -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")