diff --git a/rktboot/make-boot.rkt b/rktboot/make-boot.rkt index 299d46ac8a..f7d36dde9d 100644 --- a/rktboot/make-boot.rkt +++ b/rktboot/make-boot.rkt @@ -43,7 +43,7 @@ (build-path scheme-dir "s")))]) (status (format "Use ~a" dir)) (for/fold ([d d]) ([f (in-list (directory-list dir))] - #:when (regexp-match? #rx"[.](?:rkt|ss|sls)$" f)) + #:when (regexp-match? #rx"[.](?:rkt|ss|sls|def)$" f)) (max d (file-or-directory-modify-seconds (build-path dir f)))))) (status (format "Check ~a" out-subdir)) @@ -348,7 +348,7 @@ (status "Load most front.ss declarations") (call-with-expressions (build-path scheme-dir "s/front.ss") - (lambda (e) + (lambda (e)< ;; Skip `package-stubs`, which would undo "syntax.ss" definitions (let loop ([e e]) (match e diff --git a/s/nt.def b/s/nt.def index 4bdfcab1d0..34887c2d1a 100644 --- a/s/nt.def +++ b/s/nt.def @@ -10,4 +10,7 @@ "unsigned long long int" "unsigned long")) +(define-constant typedef-i64 "long long") +(define-constant typedef-u64 "unsigned long long") + (define-constant long-bits 32)