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

restore syntax-local-make-delta-introducer

Browse Source 
Closes #1965
This commit is contained in:
Matthew Flatt 2018-02-27 18:04:05 -07:00
parent e288df5e8e
commit bd231cd75d
6 changed files with 4290 additions and 4265 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 collection 'multi)
(define version "6.90.0.16") (define version "6.90.0.17")
(define deps `("racket-lib" (define deps `("racket-lib"
["racket" #:version ,version])) ["racket" #:version ,version]))

2
pkgs/racket-doc/scribblings/reference/stx-trans.scrbl
View File

@ -886,7 +886,7 @@ This function is intended for the implementation of
@defproc[(syntax-local-make-delta-introducer [id-stx identifier?]) procedure?]{ @defproc[(syntax-local-make-delta-introducer [id-stx identifier?]) procedure?]{
For (limited) backward compatibility only; raises @racket[exn:fail:supported]. For (limited) backward compatibility only; raises @racket[exn:fail:unsupported].
@history[#:changed "6.3" @elem{changed to raise @racket[exn:fail:supported].}]} @history[#:changed "6.3" @elem{changed to raise @racket[exn:fail:supported].}]}

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

@ -118,6 +118,7 @@
make-syntax-introducer make-syntax-introducer
make-syntax-delta-introducer make-syntax-delta-introducer
syntax-local-make-delta-introducer
syntax-local-value syntax-local-value
syntax-local-value/immediate syntax-local-value/immediate

9
racket/src/expander/expand/syntax-local.rkt
View File

@ -37,6 +37,7 @@
make-syntax-introducer make-syntax-introducer
make-syntax-delta-introducer make-syntax-delta-introducer
syntax-local-make-delta-introducer
syntax-local-value syntax-local-value
syntax-local-value/immediate syntax-local-value/immediate
@ -144,7 +145,13 @@
[(remove) (remove-scopes s delta-scs)] [(remove) (remove-scopes s delta-scs)]
[(flip) (flip-scopes s delta-scs)] [(flip) (flip-scopes s delta-scs)]
[else (raise-argument-error 'syntax-introducer "(or/c 'add 'remove 'flip)" mode)])))) [else (raise-argument-error 'syntax-introducer "(or/c 'add 'remove 'flip)" mode)]))))
(define (syntax-local-make-delta-introducer id-stx)
(check 'syntax-local-make-delta-introducer identifier? id-stx)
(raise
(exn:fail:unsupported "syntax-local-make-delta-introducer: not supported anymore"
(current-continuation-marks))))
;; ---------------------------------------- ;; ----------------------------------------
(define (do-syntax-local-value who id intdef failure-thunk (define (do-syntax-local-value who id intdef failure-thunk

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

@ -13,12 +13,12 @@
consistently.) consistently.)
*/ */
#define MZSCHEME_VERSION "6.90.0.16" #define MZSCHEME_VERSION "6.90.0.17"
#define MZSCHEME_VERSION_X 6 #define MZSCHEME_VERSION_X 6
#define MZSCHEME_VERSION_Y 90 #define MZSCHEME_VERSION_Y 90
#define MZSCHEME_VERSION_Z 0 #define MZSCHEME_VERSION_Z 0
#define MZSCHEME_VERSION_W 16 #define MZSCHEME_VERSION_W 17
#define MZSCHEME_VERSION_MAJOR ((MZSCHEME_VERSION_X * 100) + MZSCHEME_VERSION_Y) #define MZSCHEME_VERSION_MAJOR ((MZSCHEME_VERSION_X * 100) + MZSCHEME_VERSION_Y)
#define MZSCHEME_VERSION_MINOR ((MZSCHEME_VERSION_Z * 1000) + MZSCHEME_VERSION_W) #define MZSCHEME_VERSION_MINOR ((MZSCHEME_VERSION_Z * 1000) + MZSCHEME_VERSION_W)

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

File diff suppressed because it is too large Load Diff