suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix `exn:fail:filesystem:missing-module-path'

Browse Source
This commit is contained in:
Matthew Flatt 2013-04-23 15:06:26 -06:00
parent 8c7632c025
commit 3779cf6192
4 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/racket/private/kernstruct.rkt
View File

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

2
src/racket/src/makeexn
View File

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

2
src/racket/src/schexn.h
View File

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

4
src/racket/src/schvers.h
View File

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