Skip to content

Instantly share code, notes, and snippets.

@pnwamk
Created May 22, 2018 15:31
Show Gist options
  • Select an option

  • Save pnwamk/716badac9a7c9f21b43790df413e3a01 to your computer and use it in GitHub Desktop.

Select an option

Save pnwamk/716badac9a7c9f21b43790df413e3a01 to your computer and use it in GitHub Desktop.
12a13,157
> (module (lazy-snip-typed #%contract-defs-names) ....
> (require (for-template (submod "..")))
> (provide)
> '#<void>
> (begin-for-all
> (define #0=(.get-syntax-literal! pos)
> ....
> (let (((scope:0 (deserialize-scope 'module))
> (scope:1 (deserialize-scope 'module))
> (mutable:2 (make-hasheqv))
> (mutable:3 (make-hasheqv))
> (mutable:4 (deserialize-representative-scope 'module '0))
> (mutable:5 (deserialize-representative-scope 'module '-1))
> (mutable:6 (deserialize-representative-scope 'module '-2))))
> (let* (((shared:7 (seteq scope:0 scope:1))
> (shared:8
> (deserialize-multi-scope 'lazy-snip-typed mutable:2))
> (shared:9
> (deserialize-shifted-multi-scope
> '0
> (deserialize-multi-scope '#%contract-defs-names mutable:3)))
> (shared:10 '#hasheq())
> (shared:11 (vector shared:10 shared:10 '()))
> (shared:12 '#hasheq())
> (shared:13 (seteq scope:0 mutable:4))
> (shared:14 '#hasheq())))
> (begin
> (hash-set! mutable:2 '-2 mutable:6)
> (hash-set! mutable:2 '-1 mutable:5)
> (hash-set! mutable:2 '0 mutable:4))
> (begin)
> (deserialize-representative-scope-fill!
> mutable:4
> (deserialize-table-with-bulk-bindings
> shared:12
> (list
> (deserialize-bulk-binding-at
> shared:13
> (deserialize-bulk-binding
> '#f
> shared:14
> (vector-ref .mpi-vector 2)
> '0
> '0
> .bulk-binding-registry))
> (deserialize-bulk-binding-at
> shared:13
> (deserialize-bulk-binding
> '#f
> shared:14
> (vector-ref .mpi-vector 3)
> '0
> '0
> .bulk-binding-registry))
> (deserialize-bulk-binding-at
> shared:13
> (deserialize-bulk-binding
> '#f
> shared:14
> (vector-ref .mpi-vector 4)
> '0
> '0
> .bulk-binding-registry))))
> shared:8)
> (deserialize-representative-scope-fill!
> mutable:5
> (deserialize-table-with-bulk-bindings
> shared:12
> (cons
> (deserialize-bulk-binding-at
> (seteq scope:0 mutable:5)
> (deserialize-bulk-binding
> '#f
> shared:14
> (vector-ref .mpi-vector 4)
> '1
> '0
> .bulk-binding-registry))
> '()))
> shared:8)
> (deserialize-representative-scope-fill!
> mutable:6
> (deserialize-table-with-bulk-bindings
> shared:12
> (cons
> (deserialize-bulk-binding-at
> (seteq scope:0 mutable:6)
> (deserialize-bulk-binding
> '#f
> shared:14
> (vector-ref .mpi-vector 4)
> '2
> '0
> .bulk-binding-registry))
> '()))
> shared:8)
> (vector
> (deserialize-syntax
> (vector
> (deserialize-syntax
> '#f
> (vector
> shared:7
> (seteq (deserialize-shifted-multi-scope '0 shared:8) shared:9)
> '())
> '#f
> #f
> #f
> .inspector)
> (deserialize-syntax
> '#f
> (vector shared:10 (seteq shared:9) '())
> '#f
> #f
> #f
> .inspector)
> (deserialize-syntax
> 'typed-racket/base-env/extra-env-lang
> (vector
> shared:7
> (seteq (deserialize-shifted-multi-scope '-1 shared:8) shared:9)
> (list
> (cons (vector-ref .mpi-vector 5) (vector-ref .mpi-vector 0))
> (cons (vector-ref .mpi-vector 6) (vector-ref .mpi-vector 1))
> (cons (vector-ref .mpi-vector 7) (vector-ref .mpi-vector 6))))
> (srcloc
> '#<path:/home/pnwamk/Repos/plt/reduce-expansion/racket/share/pkgs/plot-gui-lib/plot/private/gui/compiled/lazy-snip-typed.rkt>
> '1
> '12
> '13
> '36)
> #f
> #f
> .inspector)
> (deserialize-syntax '#f shared:11 '#f #f #f .inspector)
> (deserialize-syntax '#hasheqv() shared:11 '#f #f #f .inspector)
> (deserialize-syntax 'root-frame shared:11 '#f #f #f .inspector)
> (deserialize-syntax '0 shared:11 '#f #f #f .inspector))
> shared:11
> '#f
> #f
> #f
> .inspector))))
> .
> #1=(....))))
25c170
< (let ((local55 (.get-syntax-literal! '0)))
---
> (let ((local57 (.get-syntax-literal! '0)))
29c174
< (#%sfs-clear local55)
---
> (#%sfs-clear local57)
31c176
< (let ((local63 (.get-syntax-literal! '2)))
---
> (let ((local65 (.get-syntax-literal! '2)))
35c180
< (#%sfs-clear local63)
---
> (#%sfs-clear local65)
37c182
< (let ((local71 (.get-syntax-literal! '4)))
---
> (let ((local73 (.get-syntax-literal! '4)))
41c186
< (#%sfs-clear local71)
---
> (#%sfs-clear local73)
45c190
< (define (.get-syntax-literal! pos)
---
> (define #0#
75c220
< '#<path:/home/pnwamk/Repos/plt/snap-22may/share/pkgs/plot-gui-lib/plot/private/gui/compiled/lazy-snip-typed.rkt>)
---
> '#<path:/home/pnwamk/Repos/plt/reduce-expansion/racket/share/pkgs/plot-gui-lib/plot/private/gui/compiled/lazy-snip-typed.rkt>)
196c341,488
< ....))))
---
> .
> #1#)))
> (module (lazy-snip-typed #%contract-defs) ....
> (require (submod ".."))
> (provide)
> '#<void>
> (begin-for-all
> (define #0#
> ....
> (let (((scope:0 (deserialize-scope 'module))
> (scope:1 (deserialize-scope 'module))
> (mutable:2 (make-hasheqv))
> (mutable:3 (make-hasheqv))
> (mutable:4 (deserialize-representative-scope 'module '0))
> (mutable:5 (deserialize-representative-scope 'module '-1))
> (mutable:6 (deserialize-representative-scope 'module '-2))))
> (let* (((shared:7 (seteq scope:0 scope:1))
> (shared:8
> (deserialize-multi-scope 'lazy-snip-typed mutable:2))
> (shared:9
> (deserialize-shifted-multi-scope
> '0
> (deserialize-multi-scope '#%contract-defs mutable:3)))
> (shared:10
> (seteq
> (deserialize-shifted-multi-scope '0 shared:8)
> shared:9))
> (shared:11 '#hasheq())
> (shared:12 (vector shared:11 shared:11 '()))
> (shared:13 '#hasheq())
> (shared:14 (seteq scope:0 mutable:4))
> (shared:15 '#hasheq())))
> (begin
> (hash-set! mutable:2 '-2 mutable:6)
> (hash-set! mutable:2 '-1 mutable:5)
> (hash-set! mutable:2 '0 mutable:4))
> (begin)
> (deserialize-representative-scope-fill!
> mutable:4
> (deserialize-table-with-bulk-bindings
> shared:13
> (list
> (deserialize-bulk-binding-at
> shared:14
> (deserialize-bulk-binding
> '#f
> shared:15
> (vector-ref .mpi-vector 2)
> '0
> '0
> .bulk-binding-registry))
> (deserialize-bulk-binding-at
> shared:14
> (deserialize-bulk-binding
> '#f
> shared:15
> (vector-ref .mpi-vector 3)
> '0
> '0
> .bulk-binding-registry))
> (deserialize-bulk-binding-at
> shared:14
> (deserialize-bulk-binding
> '#f
> shared:15
> (vector-ref .mpi-vector 4)
> '0
> '0
> .bulk-binding-registry))))
> shared:8)
> (deserialize-representative-scope-fill!
> mutable:5
> (deserialize-table-with-bulk-bindings
> shared:13
> (cons
> (deserialize-bulk-binding-at
> (seteq scope:0 mutable:5)
> (deserialize-bulk-binding
> '#f
> shared:15
> (vector-ref .mpi-vector 4)
> '1
> '0
> .bulk-binding-registry))
> '()))
> shared:8)
> (deserialize-representative-scope-fill!
> mutable:6
> (deserialize-table-with-bulk-bindings
> shared:13
> (cons
> (deserialize-bulk-binding-at
> (seteq scope:0 mutable:6)
> (deserialize-bulk-binding
> '#f
> shared:15
> (vector-ref .mpi-vector 4)
> '2
> '0
> .bulk-binding-registry))
> '()))
> shared:8)
> (vector
> (deserialize-syntax
> (vector
> (deserialize-syntax
> '#f
> (vector shared:7 shared:10 '())
> '#f
> #f
> #f
> .inspector)
> (deserialize-syntax
> '#f
> (vector shared:11 (seteq shared:9) '())
> '#f
> #f
> #f
> .inspector)
> (deserialize-syntax
> 'typed-racket/base-env/extra-env-lang
> (vector
> shared:7
> shared:10
> (list
> (cons (vector-ref .mpi-vector 5) (vector-ref .mpi-vector 0))
> (cons (vector-ref .mpi-vector 6) (vector-ref .mpi-vector 1))
> (cons (vector-ref .mpi-vector 7) (vector-ref .mpi-vector 6))))
> (srcloc
> '#<path:/home/pnwamk/Repos/plt/reduce-expansion/racket/share/pkgs/plot-gui-lib/plot/private/gui/compiled/lazy-snip-typed.rkt>
> '1
> '12
> '13
> '36)
> #f
> #f
> .inspector)
> (deserialize-syntax '#f shared:12 '#f #f #f .inspector)
> (deserialize-syntax '#hasheqv() shared:12 '#f #f #f .inspector)
> (deserialize-syntax 'root-frame shared:12 '#f #f #f .inspector)
> (deserialize-syntax '0 shared:12 '#f #f #f .inspector))
> shared:12
> '#f
> #f
> #f
> .inspector))))
> .
> #1#))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment