From 3779cf6192254ec18d0b06b9f1e90fe40cab0dfa Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 23 Apr 2013 15:06:26 -0600 Subject: [PATCH] fix `exn:fail:filesystem:missing-module-path' --- collects/racket/private/kernstruct.rkt | 2 +- src/racket/src/makeexn | 2 +- src/racket/src/schexn.h | 2 +- src/racket/src/schvers.h | 4 ++-- 4 files changed, 5 insertions(+), 5 deletions(-) diff --git a/collects/racket/private/kernstruct.rkt b/collects/racket/private/kernstruct.rkt index fb15bf1e37..c1487e39c3 100644 --- a/collects/racket/private/kernstruct.rkt +++ b/collects/racket/private/kernstruct.rkt @@ -376,7 +376,7 @@ (quote-syntax make-exn:fail:filesystem:missing-module) (quote-syntax exn:fail:filesystem:missing-module?) (list - (quote-syntax exn:fail:filesystem:missing-module--path) + (quote-syntax exn:fail:filesystem:missing-module-path) (quote-syntax exn-continuation-marks) (quote-syntax exn-message)) '(#f #f #f) diff --git a/src/racket/src/makeexn b/src/racket/src/makeexn index f5ba26431c..2a48d17193 100755 --- a/src/racket/src/makeexn +++ b/src/racket/src/makeexn @@ -66,7 +66,7 @@ propeties (the latter in curly braces), strings are contracts/comments. (errno "pair of symbol and number" "system error code")] "error with system error code") (missing-module [module_path_field_check_2 - (-path "module path" "module path") + (path "module path" "module path") {exn:module-path scheme_module_path_property |scheme_make_prim(extract_module_path_2)|}] "error resolving a module path")) (network [] "TCP and UDP errors" diff --git a/src/racket/src/schexn.h b/src/racket/src/schexn.h index aa5d8e2821..4027cee647 100644 --- a/src/racket/src/schexn.h +++ b/src/racket/src/schexn.h @@ -115,7 +115,7 @@ static exn_rec *exn_table; static const char *MZEXN_FAIL_SYNTAX_MISSING_MODULE_FIELDS[1] = { "path" }; static const char *MZEXN_FAIL_READ_FIELDS[1] = { "srclocs" }; static const char *MZEXN_FAIL_FILESYSTEM_ERRNO_FIELDS[1] = { "errno" }; - static const char *MZEXN_FAIL_FILESYSTEM_MISSING_MODULE_FIELDS[1] = { "-path" }; + static const char *MZEXN_FAIL_FILESYSTEM_MISSING_MODULE_FIELDS[1] = { "path" }; static const char *MZEXN_FAIL_NETWORK_ERRNO_FIELDS[1] = { "errno" }; static const char *MZEXN_BREAK_FIELDS[1] = { "continuation" }; #endif diff --git a/src/racket/src/schvers.h b/src/racket/src/schvers.h index 7361949f52..796567ae3a 100644 --- a/src/racket/src/schvers.h +++ b/src/racket/src/schvers.h @@ -13,12 +13,12 @@ consistently.) */ -#define MZSCHEME_VERSION "5.3.4.4" +#define MZSCHEME_VERSION "5.3.4.5" #define MZSCHEME_VERSION_X 5 #define MZSCHEME_VERSION_Y 3 #define MZSCHEME_VERSION_Z 4 -#define MZSCHEME_VERSION_W 4 +#define MZSCHEME_VERSION_W 5 #define MZSCHEME_VERSION_MAJOR ((MZSCHEME_VERSION_X * 100) + MZSCHEME_VERSION_Y) #define MZSCHEME_VERSION_MINOR ((MZSCHEME_VERSION_Z * 1000) + MZSCHEME_VERSION_W)