From 79981af50b76b21f009ef7b34d595f7d2bdac70c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 26 Nov 2019 08:09:38 -0700 Subject: [PATCH] cs: fix build-time arity check Bootstrap properly to avoid problems on updates and version changes. --- racket/src/cs/c/Makefile.in | 4 +++- racket/src/cs/known.rkt | 1 + 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/racket/src/cs/c/Makefile.in b/racket/src/cs/c/Makefile.in index 13412a5148..f11de0cd19 100644 --- a/racket/src/cs/c/Makefile.in +++ b/racket/src/cs/c/Makefile.in @@ -470,8 +470,10 @@ macos-install-gracket: # ---------------------------------------- # Check +CHECK_BOOT = -O 'info@compiler/cm' -l- setup --boot $(srcdir)/../../setup-go.rkt $(builddir)/compiled/cs ignored $(builddir)/ignored.d + check-racketcs: - ./racketcs $(srcdir)/../known.rkt $(srcdir)/.. + ./racketcs $(CHECK_BOOT) $(srcdir)/../known.rkt $(srcdir)/.. # ---------------------------------------- # Reconfigure diff --git a/racket/src/cs/known.rkt b/racket/src/cs/known.rkt index 56bd693d51..8b3c365e8f 100644 --- a/racket/src/cs/known.rkt +++ b/racket/src/cs/known.rkt @@ -68,6 +68,7 @@ (command-line #:args (dir) + (printf "Checking primitive arity information\n") (parameterize ([current-directory dir]) (define prim-knowns (get-prim-knowns)) (define primitives (get-primitives))