diff --git a/pkgs/base/info.rkt b/pkgs/base/info.rkt index d1bbdd1a86..4e544dd865 100644 --- a/pkgs/base/info.rkt +++ b/pkgs/base/info.rkt @@ -12,7 +12,7 @@ (define collection 'multi) -(define version "7.6.0.4") +(define version "7.6.0.5") (define deps `("racket-lib" ["racket" #:version ,version])) diff --git a/racket/src/cs/compile-file.ss b/racket/src/cs/compile-file.ss index 49626e6cd3..bacf11265c 100644 --- a/racket/src/cs/compile-file.ss +++ b/racket/src/cs/compile-file.ss @@ -2,7 +2,7 @@ ;; Check to make we're using a build of Chez Scheme ;; that has all the features we need. (define-values (need-maj need-min need-sub need-dev) - (values 9 5 3 13)) + (values 9 5 3 14)) (unless (guard (x [else #f]) (eval 'scheme-fork-version-number)) (error 'compile-file diff --git a/racket/src/cs/linklet.sls b/racket/src/cs/linklet.sls index 66dcc4d4c2..3e91975a4b 100644 --- a/racket/src/cs/linklet.sls +++ b/racket/src/cs/linklet.sls @@ -1238,4 +1238,14 @@ (enable-arithmetic-left-associative #t) (expand-omit-library-invocations #t) - (enable-error-source-expression #f)) + (enable-error-source-expression #f) + + ;; Since the schemify layer inserts `|#%app|` any time the rator of + ;; an application might not be a procedure, we can avoid redundant + ;; checks for other applications by enabling unsafe mode. But do that + ;; only if we're compiling the primitive layer in unsafe mode. + (meta-cond + [(>= (optimize-level) 3) + (enable-unsafe-application #t)] + [else + (void)])) diff --git a/racket/src/racket/src/schvers.h b/racket/src/racket/src/schvers.h index f7d3c60fa7..77c8d3a5f0 100644 --- a/racket/src/racket/src/schvers.h +++ b/racket/src/racket/src/schvers.h @@ -16,7 +16,7 @@ #define MZSCHEME_VERSION_X 7 #define MZSCHEME_VERSION_Y 6 #define MZSCHEME_VERSION_Z 0 -#define MZSCHEME_VERSION_W 4 +#define MZSCHEME_VERSION_W 5 /* A level of indirection makes `#` work as needed: */ #define AS_a_STR_HELPER(x) #x