unbreak a6nt configuration

original commit: 5be41b6f56a10ad3fbb9bfdbc8d1fe23fdfca957
This commit is contained in:
Matthew Flatt 2020-07-25 16:47:30 -06:00
parent aa9bba9328
commit 0659cc333b
2 changed files with 5 additions and 2 deletions

View File

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

View File

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