From 562c99e757932da79bcde48bce01bdf06f3c321e Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 14 Nov 2018 22:24:02 -0800 Subject: [PATCH] to racket/base --- pitfall/xenomorph/array.rkt | 4 +++- pitfall/xenomorph/base.rkt | 4 +++- pitfall/xenomorph/bitfield.rkt | 4 +++- pitfall/xenomorph/buffer.rkt | 4 +++- pitfall/xenomorph/enum.rkt | 4 +++- pitfall/xenomorph/lazy-array.rkt | 4 +++- pitfall/xenomorph/main.rkt | 4 +++- pitfall/xenomorph/number.rkt | 4 +++- pitfall/xenomorph/optional.rkt | 4 +++- pitfall/xenomorph/pointer.rkt | 4 +++- pitfall/xenomorph/private/array.rkt | 3 ++- pitfall/xenomorph/private/bitfield.rkt | 3 ++- pitfall/xenomorph/private/buffer.rkt | 3 ++- pitfall/xenomorph/private/enum.rkt | 3 ++- pitfall/xenomorph/private/lazy-array.rkt | 3 ++- pitfall/xenomorph/private/number.rkt | 3 ++- pitfall/xenomorph/private/optional.rkt | 3 ++- pitfall/xenomorph/private/pointer.rkt | 3 ++- pitfall/xenomorph/private/reserved.rkt | 3 ++- pitfall/xenomorph/private/sizes.rkt | 3 ++- pitfall/xenomorph/private/string.rkt | 3 ++- pitfall/xenomorph/private/struct.rkt | 3 ++- pitfall/xenomorph/private/utils.rkt | 3 ++- pitfall/xenomorph/private/versioned-struct.rkt | 3 ++- pitfall/xenomorph/private/~stream.rkt | 3 ++- pitfall/xenomorph/reserved.rkt | 4 +++- pitfall/xenomorph/string.rkt | 4 +++- pitfall/xenomorph/struct.rkt | 4 +++- pitfall/xenomorph/test/array-test.rkt | 3 ++- pitfall/xenomorph/test/bitfield-test.rkt | 3 ++- pitfall/xenomorph/test/buffer-test.rkt | 3 ++- pitfall/xenomorph/test/enum-test.rkt | 3 ++- pitfall/xenomorph/test/lazy-array-test.rkt | 3 ++- pitfall/xenomorph/test/main.rkt | 3 ++- pitfall/xenomorph/test/number-test.rkt | 3 ++- pitfall/xenomorph/test/optional-test.rkt | 3 ++- pitfall/xenomorph/test/pointer-test.rkt | 3 ++- pitfall/xenomorph/test/reserved-test.rkt | 3 ++- pitfall/xenomorph/test/string-test.rkt | 3 ++- pitfall/xenomorph/test/struct-test.rkt | 3 ++- pitfall/xenomorph/test/test.rkt | 3 ++- pitfall/xenomorph/test/versioned-struct-test.rkt | 3 ++- pitfall/xenomorph/versioned-struct.rkt | 4 +++- 43 files changed, 100 insertions(+), 43 deletions(-) diff --git a/pitfall/xenomorph/array.rkt b/pitfall/xenomorph/array.rkt index 5c79033e..25c57459 100644 --- a/pitfall/xenomorph/array.rkt +++ b/pitfall/xenomorph/array.rkt @@ -1,3 +1,5 @@ -#lang reader (submod "private/racket.rkt" reader) +#lang racket/base +(require "private/racket.rkt") + (r+p "private/array.rkt") \ No newline at end of file diff --git a/pitfall/xenomorph/base.rkt b/pitfall/xenomorph/base.rkt index b9cdd7be..0d371a01 100644 --- a/pitfall/xenomorph/base.rkt +++ b/pitfall/xenomorph/base.rkt @@ -1,3 +1,5 @@ -#lang reader (submod "private/racket.rkt" reader) +#lang racket/base +(require "private/racket.rkt") + (r+p "private/base.rkt") \ No newline at end of file diff --git a/pitfall/xenomorph/bitfield.rkt b/pitfall/xenomorph/bitfield.rkt index 53b7ccc2..a49e45e5 100644 --- a/pitfall/xenomorph/bitfield.rkt +++ b/pitfall/xenomorph/bitfield.rkt @@ -1,3 +1,5 @@ -#lang reader (submod "private/racket.rkt" reader) +#lang racket/base +(require "private/racket.rkt") + (r+p "private/bitfield.rkt") \ No newline at end of file diff --git a/pitfall/xenomorph/buffer.rkt b/pitfall/xenomorph/buffer.rkt index c3358fed..32ea13d0 100644 --- a/pitfall/xenomorph/buffer.rkt +++ b/pitfall/xenomorph/buffer.rkt @@ -1,3 +1,5 @@ -#lang reader (submod "private/racket.rkt" reader) +#lang racket/base +(require "private/racket.rkt") + (r+p "private/buffer.rkt") \ No newline at end of file diff --git a/pitfall/xenomorph/enum.rkt b/pitfall/xenomorph/enum.rkt index 351b3c4e..53412371 100644 --- a/pitfall/xenomorph/enum.rkt +++ b/pitfall/xenomorph/enum.rkt @@ -1,3 +1,5 @@ -#lang reader (submod "private/racket.rkt" reader) +#lang racket/base +(require "private/racket.rkt") + (r+p "private/enum.rkt") \ No newline at end of file diff --git a/pitfall/xenomorph/lazy-array.rkt b/pitfall/xenomorph/lazy-array.rkt index 3650b716..19bf6e5d 100644 --- a/pitfall/xenomorph/lazy-array.rkt +++ b/pitfall/xenomorph/lazy-array.rkt @@ -1,3 +1,5 @@ -#lang reader (submod "private/racket.rkt" reader) +#lang racket/base +(require "private/racket.rkt") + (r+p "private/lazy-array.rkt") \ No newline at end of file diff --git a/pitfall/xenomorph/main.rkt b/pitfall/xenomorph/main.rkt index a484b07c..8d8f0700 100644 --- a/pitfall/xenomorph/main.rkt +++ b/pitfall/xenomorph/main.rkt @@ -1,4 +1,6 @@ -#lang reader (submod "private/racket.rkt" reader) +#lang racket/base +(require "private/racket.rkt") + (r+p "array.rkt" "base.rkt" diff --git a/pitfall/xenomorph/number.rkt b/pitfall/xenomorph/number.rkt index 8053d6c4..13b63b6f 100644 --- a/pitfall/xenomorph/number.rkt +++ b/pitfall/xenomorph/number.rkt @@ -1,3 +1,5 @@ -#lang reader (submod "private/racket.rkt" reader) +#lang racket/base +(require "private/racket.rkt") + (r+p "private/number.rkt") \ No newline at end of file diff --git a/pitfall/xenomorph/optional.rkt b/pitfall/xenomorph/optional.rkt index 66b76cc1..f4e69df5 100644 --- a/pitfall/xenomorph/optional.rkt +++ b/pitfall/xenomorph/optional.rkt @@ -1,3 +1,5 @@ -#lang reader (submod "private/racket.rkt" reader) +#lang racket/base +(require "private/racket.rkt") + (r+p "private/optional.rkt") \ No newline at end of file diff --git a/pitfall/xenomorph/pointer.rkt b/pitfall/xenomorph/pointer.rkt index f4dae86a..03954b81 100644 --- a/pitfall/xenomorph/pointer.rkt +++ b/pitfall/xenomorph/pointer.rkt @@ -1,3 +1,5 @@ -#lang reader (submod "private/racket.rkt" reader) +#lang racket/base +(require "private/racket.rkt") + (r+p "private/pointer.rkt") \ No newline at end of file diff --git a/pitfall/xenomorph/private/array.rkt b/pitfall/xenomorph/private/array.rkt index b67c7a7c..8ca49704 100644 --- a/pitfall/xenomorph/private/array.rkt +++ b/pitfall/xenomorph/private/array.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") (require "number.rkt" "utils.rkt") (provide (all-defined-out)) diff --git a/pitfall/xenomorph/private/bitfield.rkt b/pitfall/xenomorph/private/bitfield.rkt index b99d3258..c476c778 100644 --- a/pitfall/xenomorph/private/bitfield.rkt +++ b/pitfall/xenomorph/private/bitfield.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") (provide (all-defined-out)) #| diff --git a/pitfall/xenomorph/private/buffer.rkt b/pitfall/xenomorph/private/buffer.rkt index ecfe49df..99877914 100644 --- a/pitfall/xenomorph/private/buffer.rkt +++ b/pitfall/xenomorph/private/buffer.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") (require "number.rkt" "utils.rkt") (provide (all-defined-out)) diff --git a/pitfall/xenomorph/private/enum.rkt b/pitfall/xenomorph/private/enum.rkt index 423e4493..eea9f68d 100644 --- a/pitfall/xenomorph/private/enum.rkt +++ b/pitfall/xenomorph/private/enum.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") (provide (all-defined-out)) #| diff --git a/pitfall/xenomorph/private/lazy-array.rkt b/pitfall/xenomorph/private/lazy-array.rkt index f5b52981..c60b22e1 100644 --- a/pitfall/xenomorph/private/lazy-array.rkt +++ b/pitfall/xenomorph/private/lazy-array.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") (require "utils.rkt" "array.rkt" "number.rkt") (provide (all-defined-out)) diff --git a/pitfall/xenomorph/private/number.rkt b/pitfall/xenomorph/private/number.rkt index 6bf44193..0516265f 100644 --- a/pitfall/xenomorph/private/number.rkt +++ b/pitfall/xenomorph/private/number.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") (require "sizes.rkt" (for-syntax "sizes.rkt" racket/match)) (provide (all-defined-out)) diff --git a/pitfall/xenomorph/private/optional.rkt b/pitfall/xenomorph/private/optional.rkt index 94acbc4a..c319560b 100644 --- a/pitfall/xenomorph/private/optional.rkt +++ b/pitfall/xenomorph/private/optional.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") (provide (all-defined-out)) #| diff --git a/pitfall/xenomorph/private/pointer.rkt b/pitfall/xenomorph/private/pointer.rkt index 35753a49..59a365e5 100644 --- a/pitfall/xenomorph/private/pointer.rkt +++ b/pitfall/xenomorph/private/pointer.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") (require racket/undefined) (provide (all-defined-out)) diff --git a/pitfall/xenomorph/private/reserved.rkt b/pitfall/xenomorph/private/reserved.rkt index 0acfbdbe..3cc478f1 100644 --- a/pitfall/xenomorph/private/reserved.rkt +++ b/pitfall/xenomorph/private/reserved.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") (require "utils.rkt") (provide (all-defined-out)) diff --git a/pitfall/xenomorph/private/sizes.rkt b/pitfall/xenomorph/private/sizes.rkt index 82a72012..ccdea446 100644 --- a/pitfall/xenomorph/private/sizes.rkt +++ b/pitfall/xenomorph/private/sizes.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") (provide type-sizes get-type-size) (define-values (int-keys byte-values) (for*/lists (int-keys byte-values) diff --git a/pitfall/xenomorph/private/string.rkt b/pitfall/xenomorph/private/string.rkt index 1166390c..ca1e452f 100644 --- a/pitfall/xenomorph/private/string.rkt +++ b/pitfall/xenomorph/private/string.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") (require "number.rkt" "utils.rkt") (provide (all-defined-out)) diff --git a/pitfall/xenomorph/private/struct.rkt b/pitfall/xenomorph/private/struct.rkt index b9a2ac35..8d9e93af 100644 --- a/pitfall/xenomorph/private/struct.rkt +++ b/pitfall/xenomorph/private/struct.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") (require racket/dict racket/private/generic-methods racket/struct) (provide (all-defined-out) ref* ref*-set! (all-from-out racket/dict)) (require (prefix-in d: racket/dict)) diff --git a/pitfall/xenomorph/private/utils.rkt b/pitfall/xenomorph/private/utils.rkt index 36fd58b9..32f90ba8 100644 --- a/pitfall/xenomorph/private/utils.rkt +++ b/pitfall/xenomorph/private/utils.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") (provide (all-defined-out)) (require "number.rkt") diff --git a/pitfall/xenomorph/private/versioned-struct.rkt b/pitfall/xenomorph/private/versioned-struct.rkt index b2fb0853..a5ca65a5 100644 --- a/pitfall/xenomorph/private/versioned-struct.rkt +++ b/pitfall/xenomorph/private/versioned-struct.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") (require racket/dict "struct.rkt") (provide (all-defined-out)) diff --git a/pitfall/xenomorph/private/~stream.rkt b/pitfall/xenomorph/private/~stream.rkt index af6a8720..94b12cfa 100644 --- a/pitfall/xenomorph/private/~stream.rkt +++ b/pitfall/xenomorph/private/~stream.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") (require racket/generic racket/private/generic-methods) (provide (all-defined-out)) diff --git a/pitfall/xenomorph/reserved.rkt b/pitfall/xenomorph/reserved.rkt index 23afbc43..117976dc 100644 --- a/pitfall/xenomorph/reserved.rkt +++ b/pitfall/xenomorph/reserved.rkt @@ -1,3 +1,5 @@ -#lang reader (submod "private/racket.rkt" reader) +#lang racket/base +(require "private/racket.rkt") + (r+p "private/reserved.rkt") \ No newline at end of file diff --git a/pitfall/xenomorph/string.rkt b/pitfall/xenomorph/string.rkt index 8e5d4334..b2586b2b 100644 --- a/pitfall/xenomorph/string.rkt +++ b/pitfall/xenomorph/string.rkt @@ -1,3 +1,5 @@ -#lang reader (submod "private/racket.rkt" reader) +#lang racket/base +(require "private/racket.rkt") + (r+p "private/string.rkt") \ No newline at end of file diff --git a/pitfall/xenomorph/struct.rkt b/pitfall/xenomorph/struct.rkt index c9546f0a..85ff4ae7 100644 --- a/pitfall/xenomorph/struct.rkt +++ b/pitfall/xenomorph/struct.rkt @@ -1,3 +1,5 @@ -#lang reader (submod "private/racket.rkt" reader) +#lang racket/base +(require "private/racket.rkt") + (r+p "private/struct.rkt") \ No newline at end of file diff --git a/pitfall/xenomorph/test/array-test.rkt b/pitfall/xenomorph/test/array-test.rkt index c2cde6cc..b80f0340 100644 --- a/pitfall/xenomorph/test/array-test.rkt +++ b/pitfall/xenomorph/test/array-test.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") #| approximates diff --git a/pitfall/xenomorph/test/bitfield-test.rkt b/pitfall/xenomorph/test/bitfield-test.rkt index 0bfedcff..64c3f829 100644 --- a/pitfall/xenomorph/test/bitfield-test.rkt +++ b/pitfall/xenomorph/test/bitfield-test.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") (require racket/match) #| diff --git a/pitfall/xenomorph/test/buffer-test.rkt b/pitfall/xenomorph/test/buffer-test.rkt index 9859a8e5..d9925cc7 100644 --- a/pitfall/xenomorph/test/buffer-test.rkt +++ b/pitfall/xenomorph/test/buffer-test.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") #| diff --git a/pitfall/xenomorph/test/enum-test.rkt b/pitfall/xenomorph/test/enum-test.rkt index 3692fa53..f1b1a230 100644 --- a/pitfall/xenomorph/test/enum-test.rkt +++ b/pitfall/xenomorph/test/enum-test.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") #| approximates diff --git a/pitfall/xenomorph/test/lazy-array-test.rkt b/pitfall/xenomorph/test/lazy-array-test.rkt index 3278d3cf..3df99125 100644 --- a/pitfall/xenomorph/test/lazy-array-test.rkt +++ b/pitfall/xenomorph/test/lazy-array-test.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") #| approximates diff --git a/pitfall/xenomorph/test/main.rkt b/pitfall/xenomorph/test/main.rkt index 6e723183..7d8f9aa5 100644 --- a/pitfall/xenomorph/test/main.rkt +++ b/pitfall/xenomorph/test/main.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") (require "array-test.rkt" "bitfield-test.rkt" diff --git a/pitfall/xenomorph/test/number-test.rkt b/pitfall/xenomorph/test/number-test.rkt index 8d4edb7c..ef2a0a7e 100644 --- a/pitfall/xenomorph/test/number-test.rkt +++ b/pitfall/xenomorph/test/number-test.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") #| diff --git a/pitfall/xenomorph/test/optional-test.rkt b/pitfall/xenomorph/test/optional-test.rkt index 7b48392b..a1345c03 100644 --- a/pitfall/xenomorph/test/optional-test.rkt +++ b/pitfall/xenomorph/test/optional-test.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") #| approximates diff --git a/pitfall/xenomorph/test/pointer-test.rkt b/pitfall/xenomorph/test/pointer-test.rkt index 22fa359e..5a9c6d32 100644 --- a/pitfall/xenomorph/test/pointer-test.rkt +++ b/pitfall/xenomorph/test/pointer-test.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") #| approximates diff --git a/pitfall/xenomorph/test/reserved-test.rkt b/pitfall/xenomorph/test/reserved-test.rkt index 6d19cd45..752c80f4 100644 --- a/pitfall/xenomorph/test/reserved-test.rkt +++ b/pitfall/xenomorph/test/reserved-test.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") #| approximates diff --git a/pitfall/xenomorph/test/string-test.rkt b/pitfall/xenomorph/test/string-test.rkt index 5ba7d324..a8bf4f94 100644 --- a/pitfall/xenomorph/test/string-test.rkt +++ b/pitfall/xenomorph/test/string-test.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") #| diff --git a/pitfall/xenomorph/test/struct-test.rkt b/pitfall/xenomorph/test/struct-test.rkt index 72d5560d..96976c9c 100644 --- a/pitfall/xenomorph/test/struct-test.rkt +++ b/pitfall/xenomorph/test/struct-test.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") #| approximates diff --git a/pitfall/xenomorph/test/test.rkt b/pitfall/xenomorph/test/test.rkt index e139ccf9..0a6b5b35 100644 --- a/pitfall/xenomorph/test/test.rkt +++ b/pitfall/xenomorph/test/test.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") (define Person (make-object Struct diff --git a/pitfall/xenomorph/test/versioned-struct-test.rkt b/pitfall/xenomorph/test/versioned-struct-test.rkt index 4359a8a8..b02beea3 100644 --- a/pitfall/xenomorph/test/versioned-struct-test.rkt +++ b/pitfall/xenomorph/test/versioned-struct-test.rkt @@ -1,4 +1,5 @@ -#lang reader (submod "racket.rkt" reader) +#lang racket/base +(require "racket.rkt") #| approximates diff --git a/pitfall/xenomorph/versioned-struct.rkt b/pitfall/xenomorph/versioned-struct.rkt index bce8d99f..08dd65cf 100644 --- a/pitfall/xenomorph/versioned-struct.rkt +++ b/pitfall/xenomorph/versioned-struct.rkt @@ -1,3 +1,5 @@ -#lang reader (submod "private/racket.rkt" reader) +#lang racket/base +(require "private/racket.rkt") + (r+p "private/versioned-struct.rkt") \ No newline at end of file