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

expander: fix provide of prop:exn:missing-module

Browse Source
This commit is contained in:
Matthew Flatt 2018-03-04 07:21:18 -07:00
parent 983a35a024
commit c6579bbdcf
5 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/base/info.rkt
View File

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

2
racket/src/expander/boot/core-primitive.rkt
View File

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

10
racket/src/expander/expand/missing-module.rkt
View File

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

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

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

13
racket/src/racket/src/startup.inc
View File

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