remove uses of scheme/* in src
Fixes windows snapshot builds.
This commit is contained in:
parent
b20389e297
commit
5c462eee2b
|
@ -564,7 +564,7 @@ static Scheme_Object *utf16_pointer_to_ucs4_string(unsigned short *utf)
|
||||||
|
|
||||||
(define types null)
|
(define types null)
|
||||||
|
|
||||||
(require (for-syntax scheme/base))
|
(require (for-syntax racket/base))
|
||||||
|
|
||||||
(define (get-prop type prop)
|
(define (get-prop type prop)
|
||||||
(cadr (assq prop (cdr (assq type types)))))
|
(cadr (assq prop (cdr (assq type types)))))
|
||||||
|
|
|
@ -1,8 +1,8 @@
|
||||||
;; Preprocessor utilities for the .rktc file.
|
;; 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)
|
(provide maplines)
|
||||||
(define (maplines #:semicolons? [semi? #t] fun . ls)
|
(define (maplines #:semicolons? [semi? #t] fun . ls)
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang at-exp scheme/base
|
#lang at-exp racket/base
|
||||||
(require scheme/string)
|
(require racket/string)
|
||||||
|
|
||||||
(define (char->type c)
|
(define (char->type c)
|
||||||
(case c
|
(case c
|
||||||
|
|
|
@ -12,7 +12,7 @@
|
||||||
;; in the "Unicode" directory. The file schuchar.inc will be
|
;; in the "Unicode" directory. The file schuchar.inc will be
|
||||||
;; overwritten.
|
;; overwritten.
|
||||||
|
|
||||||
(require scheme/list)
|
(require racket/list)
|
||||||
|
|
||||||
(define mark-cats '("Mn" "Mc" "Me"))
|
(define mark-cats '("Mn" "Mc" "Me"))
|
||||||
(define letter-cats '("Lu" "Ll" "Lt" "Lm" "Lo"))
|
(define letter-cats '("Lu" "Ll" "Lt" "Lm" "Lo"))
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
#lang scheme/base
|
#lang racket/base
|
||||||
|
|
||||||
(define filename "stypes.h")
|
(define filename "stypes.h")
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
#lang scheme/base
|
#lang racket/base
|
||||||
|
|
||||||
(define to-zo? (member "--zo" (vector->list (current-command-line-arguments))))
|
(define to-zo? (member "--zo" (vector->list (current-command-line-arguments))))
|
||||||
|
|
||||||
|
|
|
@ -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 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")
|
(define includes "/I ../../racket/include /I . /I .. /I ../../mzcom")
|
||||||
|
|
Loading…
Reference in New Issue
Block a user