diff --git a/pkgs/base/info.rkt b/pkgs/base/info.rkt index e543419070..4958cd69be 100644 --- a/pkgs/base/info.rkt +++ b/pkgs/base/info.rkt @@ -12,7 +12,7 @@ (define collection 'multi) -(define version "6.90.0.17") +(define version "6.90.0.18") (define deps `("racket-lib" ["racket" #:version ,version])) diff --git a/racket/src/expander/boot/core-primitive.rkt b/racket/src/expander/boot/core-primitive.rkt index 26e6c92740..bb3c07a881 100644 --- a/racket/src/expander/boot/core-primitive.rkt +++ b/racket/src/expander/boot/core-primitive.rkt @@ -91,7 +91,7 @@ exn:fail:syntax:unbound? current-module-path-for-load - prop:missing-module + prop:exn:missing-module exn:missing-module? exn:missing-module-accessor struct:exn:fail:filesystem:missing-module diff --git a/racket/src/expander/expand/missing-module.rkt b/racket/src/expander/expand/missing-module.rkt index 68dc7bc0a3..797deddfba 100644 --- a/racket/src/expander/expand/missing-module.rkt +++ b/racket/src/expander/expand/missing-module.rkt @@ -6,7 +6,7 @@ (provide current-module-path-for-load maybe-raise-missing-module - prop:missing-module + prop:exn:missing-module exn:missing-module? exn:missing-module-accessor @@ -15,12 +15,12 @@ (struct-out exn:fail:syntax:missing-module) make-exn:fail:syntax:missing-module) -(define-values (prop:missing-module exn:missing-module? exn:missing-module-accessor) +(define-values (prop:exn:missing-module exn:missing-module? exn:missing-module-accessor) (make-struct-type-property 'missing-module (lambda (v info) (unless (and (procedure? v) (procedure-arity-includes? v 1)) - (raise-argument-error 'guard-for-prop:missing-module + (raise-argument-error 'guard-for-prop:exn:missing-module "(procedure-arity-includes/c 1)" v)) v))) @@ -28,11 +28,11 @@ (struct exn:fail:filesystem:missing-module exn:fail:filesystem (path) #:extra-constructor-name make-exn:fail:filesystem:missing-module #:transparent - #:property prop:missing-module (lambda (e) (exn:fail:filesystem:missing-module-path e))) + #:property prop:exn:missing-module (lambda (e) (exn:fail:filesystem:missing-module-path e))) (struct exn:fail:syntax:missing-module exn:fail:syntax (path) #:extra-constructor-name make-exn:fail:syntax:missing-module #:transparent - #:property prop:missing-module (lambda (e) (exn:fail:syntax:missing-module-path e))) + #:property prop:exn:missing-module (lambda (e) (exn:fail:syntax:missing-module-path e))) (define current-module-path-for-load (make-parameter #f diff --git a/racket/src/racket/src/schvers.h b/racket/src/racket/src/schvers.h index 8d1fe0f97d..4c83bbd7ae 100644 --- a/racket/src/racket/src/schvers.h +++ b/racket/src/racket/src/schvers.h @@ -13,12 +13,12 @@ consistently.) */ -#define MZSCHEME_VERSION "6.90.0.17" +#define MZSCHEME_VERSION "6.90.0.18" #define MZSCHEME_VERSION_X 6 #define MZSCHEME_VERSION_Y 90 #define MZSCHEME_VERSION_Z 0 -#define MZSCHEME_VERSION_W 17 +#define MZSCHEME_VERSION_W 18 #define MZSCHEME_VERSION_MAJOR ((MZSCHEME_VERSION_X * 100) + MZSCHEME_VERSION_Y) #define MZSCHEME_VERSION_MINOR ((MZSCHEME_VERSION_Z * 1000) + MZSCHEME_VERSION_W) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 70f43890ee..926c6c1bbf 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -56794,14 +56794,15 @@ static const char *startup_source = "((temp3_9)(substitute-module-declare-name name_71)))" "(declare-module!58.1 #f #f in-ns1_0 temp2_6 temp3_9))))))" "(define-values" -"(1/prop:missing-module 1/exn:missing-module? 1/exn:missing-module-accessor)" +"(prop:exn:missing-module 1/exn:missing-module? 1/exn:missing-module-accessor)" "(make-struct-type-property" " 'missing-module" "(lambda(v_27 info_6)" "(begin" "(if(if(procedure? v_27)(procedure-arity-includes? v_27 1) #f)" "(void)" -" (let-values () (raise-argument-error 'guard-for-prop:missing-module \"(procedure-arity-includes/c 1)\" v_27)))" +"(let-values()" +" (raise-argument-error 'guard-for-prop:exn:missing-module \"(procedure-arity-includes/c 1)\" v_27)))" " v_27))))" "(define-values" "(1/struct:exn:fail:filesystem:missing-module" @@ -56818,7 +56819,7 @@ static const char *startup_source = " 0" " #f" "(list" -"(cons 1/prop:missing-module(lambda(e_85)(1/exn:fail:filesystem:missing-module-path e_85))))" +"(cons prop:exn:missing-module(lambda(e_85)(1/exn:fail:filesystem:missing-module-path e_85))))" " #f" " #f" " '(0)" @@ -56839,7 +56840,7 @@ static const char *startup_source = " 1" " 0" " #f" -"(list(cons 1/prop:missing-module(lambda(e_72)(1/exn:fail:syntax:missing-module-path e_72))))" +"(list(cons prop:exn:missing-module(lambda(e_72)(1/exn:fail:syntax:missing-module-path e_72))))" " #f" " #f" " '(0)" @@ -57737,7 +57738,7 @@ static const char *startup_source = " 'make-exn:fail:syntax:unbound" " 'exn:fail:syntax:unbound?" " 'current-module-path-for-load" -" 'prop:missing-module" +" 'prop:exn:missing-module" " 'exn:missing-module?" " 'exn:missing-module-accessor" " 'struct:exn:fail:filesystem:missing-module" @@ -57872,7 +57873,7 @@ static const char *startup_source = "(add-core-primitive! 'make-exn:fail:syntax:unbound make-exn:fail:syntax:unbound$1)" "(add-core-primitive! 'exn:fail:syntax:unbound? 1/exn:fail:syntax:unbound?)" "(add-core-primitive! 'current-module-path-for-load 1/current-module-path-for-load)" -"(add-core-primitive! 'prop:missing-module 1/prop:missing-module)" +"(add-core-primitive! 'prop:exn:missing-module prop:exn:missing-module)" "(add-core-primitive! 'exn:missing-module? 1/exn:missing-module?)" "(add-core-primitive! 'exn:missing-module-accessor 1/exn:missing-module-accessor)" "(add-core-primitive! 'struct:exn:fail:filesystem:missing-module 1/struct:exn:fail:filesystem:missing-module)"