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

fix unmarshal of top-level "root" scope

Browse Source 
Closes #9
This commit is contained in:
Matthew Flatt 2016-01-03 06:40:14 -07:00
parent cfc28ee82a
commit 423feb1e21
1 changed files with 51 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
zo-lib/compiler/zo-parse.rkt
View File

@ -1175,7 +1175,7 @@
(struct-copy prefix p [stxs (map walk s)])] (struct-copy prefix p [stxs (map walk s)])]
[(req rs _) [(req rs _)
(struct-copy req p (struct-copy req p
[reqs (map walk rs)])] [reqs (walk rs)])]
[(? mod?) [(? mod?)
(struct-copy mod p (struct-copy mod p
[prefix (walk (mod-prefix p))] [prefix (walk (mod-prefix p))]
@ -1298,6 +1298,9 @@
[_ (error 'decode-wrap "bad shift")])))) [_ (error 'decode-wrap "bad shift")]))))
(define (decode-scope s ht) (define (decode-scope s ht)
(or
(and (eq? s root-scope)
s)
(hash-ref ht s (hash-ref ht s
(lambda () (lambda ()
(unless (encoded-scope? s) (unless (encoded-scope? s)
@ -1344,7 +1347,7 @@
(decode-binding (cdr p) ht))) (decode-binding (cdr p) ht)))
(loop (+ i 2)))]))) (loop (+ i 2)))])))
(set-scope-bindings! sc bindings)) (set-scope-bindings! sc bindings))
sc))) sc))))
(define (decode-scope-set l ht) (define (decode-scope-set l ht)
(decode-map decode-scope l ht)) (decode-map decode-scope l ht))