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

fix marshaling of a compiled top-level begin-for-syntax

Browse Source 
Closes #1174
This commit is contained in:
Matthew Flatt 2015-12-19 09:37:00 -07:00
parent 2fad028fd5
commit 7d2b538293
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pkgs/racket-test-core/tests/racket/syntax.rktl
View File

@ -1952,6 +1952,15 @@
procedure? procedure?
(eval (datum->syntax #'here '(lambda () (sort '(1))) (list 'a #f #f #f #f))))) (eval (datum->syntax #'here '(lambda () (sort '(1))) (list 'a #f #f #f #f)))))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Check marshaling of a top-level `begin-for-syntax`:
(parameterize ([current-namespace (make-base-namespace)])
(eval '(require (for-syntax racket/base)))
(write (compile '(begin-for-syntax
(require racket/match)))
(open-output-bytes)))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(report-errs) (report-errs)

2
racket/src/racket/src/marshal.c
View File

@ -463,7 +463,7 @@ static Scheme_Object *read_begin_for_syntax(Scheme_Object *obj)
static Scheme_Object *write_begin_for_syntax(Scheme_Object *obj) static Scheme_Object *write_begin_for_syntax(Scheme_Object *obj)
{ {
return write_define_values(obj); return scheme_clone_vector(obj, 0, 0);
} }
static Scheme_Object *read_set_bang(Scheme_Object *obj) static Scheme_Object *read_set_bang(Scheme_Object *obj)