Skip to content

Instantly share code, notes, and snippets.

@pnwamk

pnwamk/vector_rkt-NIGHTLY.zo

Created May 2, 2018 14:25
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save pnwamk/dda3597990f4009696f958544cb8d821 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save pnwamk/dda3597990f4009696f958544cb8d821 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
vector_rkt-NIGHTLY.zo
(module vector ....
(require (lib "typed/racket/base.rkt")
(lib "racket/list.rkt")
(lib "racket/unsafe/ops.rkt")
(lib "typed/racket/base.rkt")
(lib "racket/list.rkt")
(lib "racket/unsafe/ops.rkt")
(for-syntax
(lib "typed-racket/utils/redirect-contract.rkt")
(submod "." #%contract-defs-reference)))
(provide exact-polygon2d exact-vector2d exact-vector2d-sublists)
(define-values
(blame1.1)
(module-name-fixup
(variable-reference->module-source/submod (#%variable-reference))
'()))
(define-values () (values))
(define-values
(exact-vector2d)
(#%closed
exact-vector2d56
(lambda (arg0-62)
'#(exact-vector2d
#<path:/Users/pnwamk/Repos/plt/nightly/share/pkgs/plot-lib/plot/private/plot2d/compiled/vector.rkt>
11
0
251
331
#f)
'(flags: preserves-marks single-result)
(if (unsafe-fx= (unsafe-vector-length arg0-62) '2)
(let ((local66 (unsafe-vector-ref arg0-62 '0)))
(let ((local69 (unsafe-vector-ref arg0-62 '1)))
(if (rational? local66)
(if (rational? local69)
(vector (inexact->exact local66) (inexact->exact local69))
'#f)
'#f)))
'#f))))
(define-values () (values))
(define-values
(sublists)
(lambda (arg0-78)
'#(sublists
#<path:/Users/pnwamk/Repos/plt/nightly/share/pkgs/plot-lib/plot/private/plot2d/compiled/vector.rkt>
22
0
650
302
#f)
'(flags: preserves-marks single-result)
'(captures: (val/ref #%globals) (check-list))
(begin
(check-list arg0-78)
(let ((local80
(let ((local81 (list '())))
(if (pair? arg0-78)
(let ((local84 (unsafe-car arg0-78)))
(let ((local86
(if local84
(cons
(cons (#%sfs-clear local84) (unsafe-car local81))
(unsafe-cdr (#%sfs-clear local81)))
(begin
(#%sfs-clear local84)
(if (null? (unsafe-car local81))
(#%sfs-clear local81)
(cons '() (#%sfs-clear local81)))))))
(let ((local97 (unsafe-cdr (#%sfs-clear arg0-78))))
(if (pair? local97)
(let ((local100 (unsafe-car local97)))
(let ((local102
(if local100
(cons
(cons
(#%sfs-clear local100)
(unsafe-car local86))
(unsafe-cdr (#%sfs-clear local86)))
(begin
(#%sfs-clear local100)
(if (null? (unsafe-car local86))
(#%sfs-clear local86)
(cons '() (#%sfs-clear local86)))))))
(let ((local113
(unsafe-cdr (#%sfs-clear local97))))
(if (pair? local113)
(let ((local116 (unsafe-car local113)))
((#%closed
for-loop53
(lambda (arg0-120 arg1-121)
'#(for-loop
#<path:/Users/pnwamk/Repos/plt/nightly/share/pkgs/plot-lib/plot/private/plot2d/compiled/vector.rkt>
24
4
690
200
#f)
'(flags: preserves-marks single-result)
(if (pair? arg1-121)
(let ((local123
(unsafe-car arg1-121)))
(let ((local125
(if local123
(cons
(cons
(#%sfs-clear local123)
(unsafe-car arg0-120))
(unsafe-cdr
(#%sfs-clear arg0-120)))
(begin
(#%sfs-clear local123)
(if (null?
(unsafe-car
arg0-120))
(#%sfs-clear arg0-120)
(cons
'()
(#%sfs-clear
arg0-120)))))))
(let ((local136
(unsafe-cdr
(#%sfs-clear arg1-121))))
(if (pair? local136)
(let ((local139
(unsafe-car
local136)))
(let ((local141
(if local139
(cons
(cons
(#%sfs-clear
local139)
(unsafe-car
local125))
(unsafe-cdr
(#%sfs-clear
local125)))
(begin
(#%sfs-clear
local139)
(if (null?
(unsafe-car
local125))
(#%sfs-clear
local125)
(cons
'()
(#%sfs-clear
local125)))))))
(let ((local152
(unsafe-cdr
(#%sfs-clear
local136))))
(if (pair? local152)
(let ((local155
(unsafe-car
local152)))
(for-loop53
(if local155
(cons
(cons
(#%sfs-clear
local155)
(unsafe-car
local141))
(unsafe-cdr
(#%sfs-clear
local141)))
(begin
(#%sfs-clear
local155)
(if (null?
(unsafe-car
local141))
(#%sfs-clear
local141)
(cons
'()
(#%sfs-clear
local141)))))
(unsafe-cdr
(#%sfs-clear
local152))))
local141))))
local125))))
arg0-120)))
(if local116
(cons
(cons
(#%sfs-clear local116)
(unsafe-car local102))
(unsafe-cdr (#%sfs-clear local102)))
(begin
(#%sfs-clear local116)
(if (null? (unsafe-car local102))
(#%sfs-clear local102)
(cons '() (#%sfs-clear local102)))))
(unsafe-cdr (#%sfs-clear local113))))
local102))))
local86))))
local81))))
(if (null? (car local80)) (unsafe-cdr local80) local80)))))
(define-values () (values))
(define-values
(exact-vector2d-sublists)
(lambda (arg0-184)
'#(exact-vector2d-sublists
#<path:/Users/pnwamk/Repos/plt/nightly/share/pkgs/plot-lib/plot/private/plot2d/compiled/vector.rkt>
32
0
1046
74
#f)
'(flags: preserves-marks single-result)
'(captures: (val/ref #%globals) (gen-map sublists exact-vector2d))
(sublists
(if (list? arg0-184)
((#%closed
loop54
(lambda (arg0-188)
'loop
'(flags: preserves-marks single-result)
(if (null? arg0-188)
'()
(let ((local190 (cdr arg0-188)))
(cons
(let ((local194 (unsafe-car (#%sfs-clear arg0-188))))
(if (unsafe-fx= (unsafe-vector-length local194) '2)
(let ((local199 (unsafe-vector-ref local194 '0)))
(let ((local202 (unsafe-vector-ref local194 '1)))
(if (rational? local199)
(if (rational? local202)
(vector
(inexact->exact local199)
(inexact->exact local202))
'#f)
'#f)))
'#f))
(if (null? local190)
'()
(let ((local212 (cdr local190)))
(cons
(let ((local216 (unsafe-car (#%sfs-clear local190))))
(if (unsafe-fx= (unsafe-vector-length local216) '2)
(let ((local221 (unsafe-vector-ref local216 '0)))
(let ((local224 (unsafe-vector-ref local216 '1)))
(if (rational? local221)
(if (rational? local224)
(vector
(inexact->exact local221)
(inexact->exact local224))
'#f)
'#f)))
'#f))
(if (null? local212)
'()
(let ((local234 (cdr local212)))
(cons
(let ((local238
(unsafe-car (#%sfs-clear local212))))
(if (unsafe-fx=
(unsafe-vector-length local238)
'2)
(let ((local243
(unsafe-vector-ref local238 '0)))
(let ((local246
(unsafe-vector-ref local238 '1)))
(if (rational? local243)
(if (rational? local246)
(vector
(inexact->exact local243)
(inexact->exact local246))
'#f)
'#f)))
'#f))
(loop54 (#%sfs-clear local234)))))))))))))
(#%sfs-clear arg0-184))
(gen-map exact-vector2d (list (#%sfs-clear arg0-184)))))))
(define-values () (values))
(define-values
(exact-polygon2d)
(lambda (arg0-259 arg1-260)
'#(exact-polygon2d
#<path:/Users/pnwamk/Repos/plt/nightly/share/pkgs/plot-lib/plot/private/plot2d/compiled/vector.rkt>
38
0
1310
662
#f)
'(captures: (val/ref #%globals) (check-list last reverse))
(if (null? arg0-259)
(begin (#%sfs-clear arg1-260) (#%sfs-clear arg0-259) (values '() '()))
(begin
(check-list arg0-259)
(check-list arg1-260)
(let ((localv266 ?) (localv267 ?) (localv268 ?))
(begin
(set!-values (localv266 localv267 localv268)
(let ((local269 (last arg0-259)))
(if (if (pair? arg0-259) (pair? arg1-260) '#f)
(let ((local273 (unsafe-car arg0-259)))
(let ((local275 (unsafe-cdr (#%sfs-clear arg0-259))))
(let ((local277 (unsafe-car arg1-260)))
(let ((local279 (unsafe-cdr (#%sfs-clear arg1-260))))
(let ((localv281 ?) (localv282 ?) (localv283 ?))
(begin
(set!-values (localv281 localv282 localv283)
(if (equal? (#%sfs-clear local269) local273)
(begin
(#%sfs-clear local277)
(values '() '() (#%sfs-clear local273)))
(let ((local289
(if (unsafe-fx=
(unsafe-vector-length local273)
'2)
(let ((local293
(unsafe-vector-ref
local273
'0)))
(let ((local296
(unsafe-vector-ref
local273
'1)))
(if (rational? local293)
(if (rational? local296)
(vector
(inexact->exact local293)
(inexact->exact local296))
'#f)
'#f)))
'#f)))
(if local289
(values
(cons local289 '())
(cons local277 '())
local273)
(values '() '() local273)))))
(if (if (pair? local275) (pair? local279) '#f)
(let ((local317 (unsafe-car local275)))
(let ((local319
(unsafe-cdr (#%sfs-clear local275))))
(let ((local321 (unsafe-car local279)))
(let ((local323
(unsafe-cdr
(#%sfs-clear local279))))
(let ((localv325 ?)
(localv326 ?)
(localv327 ?))
(begin
(set!-values (localv325
localv326
localv327)
(if (equal?
(#%sfs-clear localv283)
local317)
(begin
(#%sfs-clear local321)
(values
(#%sfs-clear localv281)
(#%sfs-clear localv282)
(#%sfs-clear local317)))
(let ((local333
(if (unsafe-fx=
(unsafe-vector-length
local317)
'2)
(let ((local337
(unsafe-vector-ref
local317
'0)))
(let ((local340
(unsafe-vector-ref
local317
'1)))
(if (rational?
local337)
(if (rational?
local340)
(vector
(inexact->exact
local337)
(inexact->exact
local340))
'#f)
'#f)))
'#f)))
(if local333
(values
(cons local333 localv281)
(cons local321 localv282)
local317)
(values
localv281
localv282
local317)))))
((#%closed
for-loop55
(lambda (arg0-364
arg1-365
arg2-366
arg3-367
arg4-368)
'#(for-loop
#<path:/Users/pnwamk/Repos/plt/nightly/share/pkgs/plot-lib/plot/private/plot2d/compiled/vector.rkt>
43
7
1442
478
#f)
(if (if (pair? arg3-367)
(pair? arg4-368)
'#f)
(let ((local371
(unsafe-car
arg3-367)))
(let ((local373
(unsafe-cdr
(#%sfs-clear
arg3-367))))
(let ((local375
(unsafe-car
arg4-368)))
(let ((local377
(unsafe-cdr
(#%sfs-clear
arg4-368))))
(let ((localv379 ?)
(localv380 ?)
(localv381 ?))
(begin
(set!-values (localv379
localv380
localv381)
(if (equal?
(#%sfs-clear
arg2-366)
local371)
(begin
(#%sfs-clear
local375)
(values
(#%sfs-clear
arg0-364)
(#%sfs-clear
arg1-365)
(#%sfs-clear
local371)))
(let ((local387
(if (unsafe-fx=
(unsafe-vector-length
local371)
'2)
(let ((local391
(unsafe-vector-ref
local371
'0)))
(let ((local394
(unsafe-vector-ref
local371
'1)))
(if (rational?
local391)
(if (rational?
local394)
(vector
(inexact->exact
local391)
(inexact->exact
local394))
'#f)
'#f)))
'#f)))
(if local387
(values
(cons
local387
arg0-364)
(cons
local375
arg1-365)
local371)
(values
arg0-364
arg1-365
local371)))))
(if (if (pair?
local373)
(pair?
local377)
'#f)
(let ((local415
(unsafe-car
local373)))
(let ((local417
(unsafe-cdr
(#%sfs-clear
local373))))
(let ((local419
(unsafe-car
local377)))
(let ((local421
(unsafe-cdr
(#%sfs-clear
local377))))
(let ((localv423
?)
(localv424
?)
(localv425
?))
(begin
(set!-values (localv423
localv424
localv425)
(if (equal?
(#%sfs-clear
localv381)
local415)
(begin
(#%sfs-clear
local419)
(values
(#%sfs-clear
localv379)
(#%sfs-clear
localv380)
(#%sfs-clear
local415)))
(let ((local431
(if (unsafe-fx=
(unsafe-vector-length
local415)
'2)
(let ((local435
(unsafe-vector-ref
local415
'0)))
(let ((local438
(unsafe-vector-ref
local415
'1)))
(if (rational?
local435)
(if (rational?
local438)
(vector
(inexact->exact
local435)
(inexact->exact
local438))
'#f)
'#f)))
'#f)))
(if local431
(values
(cons
local431
localv379)
(cons
local419
localv380)
local415)
(values
localv379
localv380
local415)))))
(if (if (pair?
local417)
(pair?
local421)
'#f)
(let ((local459
(unsafe-car
local417)))
(let ((local461
(unsafe-cdr
(#%sfs-clear
local417))))
(let ((local463
(unsafe-car
local421)))
(let ((local465
(unsafe-cdr
(#%sfs-clear
local421))))
(let ((localv467
?)
(localv468
?)
(localv469
?))
(begin
(set!-values (localv467
localv468
localv469)
(if (equal?
(#%sfs-clear
localv425)
local459)
(values
localv423
localv424
local459)
(let ((local475
(if (unsafe-fx=
(unsafe-vector-length
local459)
'2)
(let ((local479
(unsafe-vector-ref
local459
'0)))
(let ((local482
(unsafe-vector-ref
local459
'1)))
(if (rational?
local479)
(if (rational?
local482)
(vector
(inexact->exact
local479)
(inexact->exact
local482))
'#f)
'#f)))
'#f)))
(if local475
(values
(cons
local475
localv423)
(cons
local463
localv424)
local459)
(values
localv423
localv424
local459)))))
(for-loop55
localv467
localv468
localv469
local461
local465)))))))
(begin
(#%sfs-clear
local417)
(#%sfs-clear
local421)
(values
(#%sfs-clear
localv423)
(#%sfs-clear
localv424)
(#%sfs-clear
localv425))))))))))
(begin
(#%sfs-clear
local373)
(#%sfs-clear
local377)
(values
(#%sfs-clear
localv379)
(#%sfs-clear
localv380)
(#%sfs-clear
localv381))))))))))
(begin
(#%sfs-clear arg4-368)
(#%sfs-clear arg3-367)
(values
(#%sfs-clear arg0-364)
(#%sfs-clear arg1-365)
(#%sfs-clear
arg2-366))))))
(#%sfs-clear localv325)
(#%sfs-clear localv326)
(#%sfs-clear localv327)
(#%sfs-clear local319)
(#%sfs-clear local323))))))))
(begin
(#%sfs-clear local275)
(#%sfs-clear local279)
(values
localv281
localv282
localv283)))))))))
(begin
(#%sfs-clear arg1-260)
(#%sfs-clear arg0-259)
(values '() '() local269)))))
(begin
(#%sfs-clear localv268)
(values
(reverse (#%sfs-clear localv266))
(reverse (#%sfs-clear localv267))))))))))
'#<void>
(begin-for-syntax
(add-mod! (variable-reference->module-path-index (#%variable-reference)))
(define-values
(make-redirect2.1)
(make-make-redirect-to-contract contract-defs-submod)))
(define-syntaxes
exact-polygon2d.1
(let ((local528 (make-redirect2.1 (.get-syntax-literal! '0))))
(#%sfs-clear local528)))
(define-syntaxes
exact-polygon2d.2
(let ((local533
(make-typed-renaming
(.get-syntax-literal! '1)
(.get-syntax-literal! '2))))
(#%sfs-clear local533)))
(define-syntaxes
exact-vector2d.1
(let ((local540 (make-redirect2.1 (.get-syntax-literal! '3))))
(#%sfs-clear local540)))
(define-syntaxes
exact-vector2d.2
(let ((local545
(make-typed-renaming
(.get-syntax-literal! '4)
(.get-syntax-literal! '5))))
(#%sfs-clear local545)))
(define-syntaxes
exact-vector2d-sublists.1
(let ((local552 (make-redirect2.1 (.get-syntax-literal! '6))))
(#%sfs-clear local552)))
(define-syntaxes
exact-vector2d-sublists.2
(let ((local557
(make-typed-renaming
(.get-syntax-literal! '7)
(.get-syntax-literal! '8))))
(#%sfs-clear local557)))
(begin-for-syntax '#<void>)
(module (vector #%contract-defs-reference) ....
(require (lib "racket/base.rkt")
(lib "racket/runtime-path.rkt")
(for-syntax (lib "racket/base.rkt")))
(provide contract-defs-submod)
(define-values
(contract-defs-submod)
(apply
values
(resolve-paths
(#%variable-reference)
void
(list
(list
'module
'(submod ".." #%contract-defs)
(#%variable-reference))))))
'#<void>
(begin-for-syntax
(register-ext-files
(#%variable-reference)
(list
(list 'module '(submod ".." #%contract-defs) (#%variable-reference))))
'#<void>)
(module (vector #%contract-defs-reference configure-runtime) ....
(require '#%kernel (lib "racket/runtime-config.rkt"))
(provide)
(print-as-expression '#t)
'#<void>))
(module (vector configure-runtime) ....
(require '#%kernel (lib "racket/runtime-config.rkt"))
(provide)
(print-as-expression '#t)
'#<void>)
(module (vector #%type-decl) ....
(require (for-template (submod ".."))
(lib "typed-racket/types/numeric-tower.rkt")
(lib "typed-racket/env/type-name-env.rkt")
(lib "typed-racket/env/global-env.rkt")
(lib "typed-racket/env/type-alias-env.rkt")
(lib "typed-racket/types/struct-table.rkt")
(lib "typed-racket/types/abbrev.rkt")
(lib "racket/private/sort.rkt"))
(provide)
(define-values (g85595.1) (make-Vector -Real))
(let ((local582 (.get-syntax-literal! '0)))
(let ((local584
(let ((local585 (list 'L)))
(let ((local587
(make-Fun
(list
(let ((local590
(list
(make-Listof g85595.1)
(make-Listof (make-F 'L)))))
(let ((local596
(make-Values
(list
(-result (make-Listof g85595.1))
(-result (make-Listof (make-F 'L)))))))
(-Arrow28.1
'#f
'#f
'#f
'#f
'#f
'#f
'#f
'#f
(#%sfs-clear local590)
(#%sfs-clear local596))))))))
(Poly*164.1
'#f
'#f
(#%sfs-clear local585)
(#%sfs-clear local587))))))
(idY256.1
lifted/1.1
the-mapping
(#%sfs-clear local582)
(#%sfs-clear local584))))
(let ((local623 (.get-syntax-literal! '1)))
(idY256.1
lifted/1.1
the-mapping
(#%sfs-clear local623)
(simple->
(list g85595.1)
(Union-fmap
(#%closed
...rep/type-rep.rkt:855:1457
(lambda (arg0-635)
'...rep/type-rep.rkt:855:14
'(flags: preserves-marks single-result)
arg0-635))
-Bottom
(list -False g85595.1)))))
(let ((local638 (.get-syntax-literal! '2)))
(idY256.1
lifted/1.1
the-mapping
(#%sfs-clear local638)
(simple->
(list (make-Listof g85595.1))
(make-Listof (make-Listof g85595.1)))))
(let ((local650 (.get-syntax-literal! '3)))
(let ((local652
(let ((local653 (list 'A)))
(let ((local655
(simple->
(list
(make-Listof
(Union-fmap
(#%closed
...rep/type-rep.rkt:855:1458
(lambda (arg0-663)
'...rep/type-rep.rkt:855:14
'(flags: preserves-marks single-result)
arg0-663))
-Bottom
(list -False (make-F 'A)))))
(make-Listof (make-Listof (make-F 'A))))))
(Poly*164.1
'#f
'#f
(#%sfs-clear local653)
(#%sfs-clear local655))))))
(idY256.1
lifted/1.1
the-mapping
(#%sfs-clear local650)
(#%sfs-clear local652))))
'#<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 '0))
(mutable:6 (deserialize-representative-scope 'module '-1))))
(let* (((shared:7 (deserialize-multi-scope 'vector mutable:2))
(shared:8 (deserialize-multi-scope '#%type-decl mutable:3))
(shared:9
(vector
(seteq scope:0 scope:1)
(seteq
(deserialize-shifted-multi-scope '-1 shared:7)
(deserialize-shifted-multi-scope '0 shared:8))
(list
(cons
(vector-ref .mpi-vector 19)
(vector-ref .mpi-vector 10))
(cons
(vector-ref .mpi-vector 20)
(vector-ref .mpi-vector 11))
(cons
(vector-ref .mpi-vector 21)
(vector-ref .mpi-vector 20)))))
(shared:10
'#<path:/Users/pnwamk/Repos/plt/nightly/share/pkgs/plot-lib/plot/private/plot2d/compiled/vector.rkt>)
(shared:11 '#hasheq())
(shared:12 (seteq scope:0 mutable:5))
(shared:13 '#hasheq())))
(begin
(hash-set! mutable:2 '-1 mutable:6)
(hash-set! mutable:2 '0 mutable:5))
(begin (hash-set! mutable:3 '0 mutable:4))
(deserialize-representative-scope-fill!
mutable:4
shared:11
shared:8)
(deserialize-representative-scope-fill!
mutable:5
(deserialize-table-with-bulk-bindings
(hasheq
'exact-polygon2d
(hash
shared:12
(deserialize-simple-module-binding
(vector-ref .mpi-vector 20)
'exact-polygon2d
'0
(vector-ref .mpi-vector 20)))
'exact-vector2d
(hash
shared:12
(deserialize-simple-module-binding
(vector-ref .mpi-vector 20)
'exact-vector2d
'0
(vector-ref .mpi-vector 20)))
'exact-vector2d-sublists
(hash
shared:12
(deserialize-simple-module-binding
(vector-ref .mpi-vector 20)
'exact-vector2d-sublists
'0
(vector-ref .mpi-vector 20)))
'sublists
(hash
shared:12
(deserialize-simple-module-binding
(vector-ref .mpi-vector 20)
'sublists
'0
(vector-ref .mpi-vector 20)))
'unsafe-vector-ref
(hash
shared:12
(deserialize-simple-module-binding
(vector-ref .mpi-vector 22)
'unsafe-vector-ref
'0
(vector-ref .mpi-vector 23))))
(list
(deserialize-bulk-binding-at
shared:12
(deserialize-bulk-binding
'#f
shared:13
(vector-ref .mpi-vector 24)
'0
'0
.bulk-binding-registry))
(deserialize-bulk-binding-at
shared:12
(deserialize-bulk-binding
'#f
shared:13
(vector-ref .mpi-vector 24)
'0
'0
.bulk-binding-registry))
(deserialize-bulk-binding-at
shared:12
(deserialize-bulk-binding
'#f
shared:13
(vector-ref .mpi-vector 25)
'0
'0
.bulk-binding-registry))))
shared:7)
(deserialize-representative-scope-fill!
mutable:6
(deserialize-table-with-bulk-bindings
shared:11
(cons
(deserialize-bulk-binding-at
(seteq scope:0 mutable:6)
(deserialize-bulk-binding
'#f
shared:13
(vector-ref .mpi-vector 25)
'1
'0
.bulk-binding-registry))
'()))
shared:7)
(vector
(deserialize-syntax
'exact-polygon2d
shared:9
(srcloc shared:10 '35 '3 '1125 '15)
#f
#f
.inspector)
(deserialize-syntax
'exact-vector2d
shared:9
(srcloc shared:10 '10 '3 '191 '14)
#f
#f
.inspector)
(deserialize-syntax
'exact-vector2d-sublists
shared:9
(srcloc shared:10 '31 '3 '957 '23)
#f
#f
.inspector)
(deserialize-syntax
'sublists
shared:9
(srcloc shared:10 '21 '3 '587 '8)
#f
#f
.inspector))))
.
#1=(....))))
(module (vector #%contract-defs) ....
(require (submod "..")
(submod (lib "typed-racket/private/type-contract.rkt") predicates)
(lib "typed-racket/utils/utils.rkt")
(lib "typed-racket/utils/any-wrap.rkt")
(lib "typed-racket/utils/struct-type-c.rkt")
(lib "typed-racket/utils/opaque-object.rkt")
(lib "typed-racket/utils/evt-contract.rkt")
(lib "typed-racket/utils/hash-contract.rkt")
(lib "typed-racket/utils/sealing-contract.rkt")
(lib "typed-racket/utils/promise-not-name-contract.rkt")
(lib "typed-racket/utils/simple-result-arrow.rkt")
(lib "racket/sequence.rkt")
(lib "racket/contract/parametric.rkt")
(for-syntax (lib "typed-racket/utils/utils.rkt")))
(provide exact-polygon2d exact-vector2d exact-vector2d-sublists)
(define-values (g7.1) (flat-named-contract 'Real real?))
(define-values (g8.1) (vectorof/proc.1 g7.1))
(define-values (g9.1) (listof/proc.1 g8.1))
(define-values (g10.1) list?)
(define-values (g11.1) any/c/proc.1)
(define-values
(generated-contract3.1)
(build-->
'->*
(list g9.1 list?)
'()
'()
'()
'()
'()
'#f
'#f
(list g9.1 any/c/proc.1)
'#f
(lambda (arg0-700 arg1-701 arg2-702 arg3-703 arg4-704 arg5-705)
'...ow-val-first.rkt:405:10
'(captures:
(val/ref #%globals)
(contract-continuation-mark-key wrong-number-of-results-blame))
(values
(procedure-specialize
(lambda (arg0-710 arg1-711 arg2-712)
'...ow-val-first.rkt:388:18
'(captures:
(val/ref arg5-705)
(val/ref arg4-704)
(val/ref arg3-703)
(val/ref arg2-702)
(val/ref arg1-701)
(val/ref arg0-700)
(val/ref #%globals)
(contract-continuation-mark-key wrong-number-of-results-blame))
(let ((local713 (cons arg0-700 arg0-710)))
(let ((localv716 ?) (localv717 ?) (localv718 ?))
(begin
(set!-values (localv716 localv717 localv718)
(#%apply-values
(case-lambda
((arg0-719 arg1-720) (values '#f arg0-719 arg1-720))
(rest724 (values rest724 '#f '#f)))
(let ((localv728 ?) (localv729 ?))
(begin
(set!-values (localv728 localv729)
(with-continuation-mark
contract-continuation-mark-key
local713
(values
((#%sfs-clear arg2-702)
(#%sfs-clear arg1-711)
arg0-710)
((#%sfs-clear arg3-703)
(#%sfs-clear arg2-712)
arg0-710))))
(arg1-701
(#%sfs-clear localv728)
(#%sfs-clear localv729))))))
(if localv716
(begin
(#%sfs-clear arg4-704)
(#%sfs-clear arg5-705)
(#%sfs-clear localv718)
(#%sfs-clear localv717)
(with-continuation-mark
contract-continuation-mark-key
(#%sfs-clear local713)
(wrong-number-of-results-blame
(#%sfs-clear arg0-700)
(#%sfs-clear arg0-710)
(#%sfs-clear arg1-701)
(#%sfs-clear localv716)
'2)))
(begin
(#%sfs-clear arg0-700)
(#%sfs-clear arg1-701)
(#%sfs-clear localv716)
(with-continuation-mark
contract-continuation-mark-key
(#%sfs-clear local713)
(values
((#%sfs-clear arg4-704)
(#%sfs-clear localv717)
arg0-710)
((#%sfs-clear arg5-705)
(#%sfs-clear localv718)
(#%sfs-clear arg0-710)))))))))))
(procedure-specialize
(begin0
(lambda (arg0-750 arg1-751 arg2-752)
'...ow-val-first.rkt:388:18
'(captures:
(val/ref arg5-705)
(val/ref arg4-704)
(val/ref arg3-703)
(val/ref arg2-702)
(val/ref arg1-701)
(val/ref arg0-700)
(val/ref #%globals)
(contract-continuation-mark-key))
(let ((local753 (cons (#%sfs-clear arg0-700) arg0-750)))
(let ((localv756 ?) (localv757 ?))
(begin
(set!-values (localv756 localv757)
(with-continuation-mark
contract-continuation-mark-key
local753
(values
((#%sfs-clear arg2-702)
(#%sfs-clear arg1-751)
arg0-750)
((#%sfs-clear arg3-703)
(#%sfs-clear arg2-752)
arg0-750))))
(let ((localv764 ?) (localv765 ?))
(begin
(set!-values (localv764 localv765)
((#%sfs-clear arg1-701)
(#%sfs-clear localv756)
(#%sfs-clear localv757)))
(with-continuation-mark
contract-continuation-mark-key
(#%sfs-clear local753)
(values
((#%sfs-clear arg4-704)
(#%sfs-clear localv764)
arg0-750)
((#%sfs-clear arg5-705)
(#%sfs-clear localv765)
(#%sfs-clear arg0-750))))))))))
(#%sfs-clear arg5-705)
(#%sfs-clear arg4-704)
(#%sfs-clear arg3-703)
(#%sfs-clear arg2-702)
(#%sfs-clear arg1-701)
(#%sfs-clear arg0-700)))
'2))
(lambda (arg0-774
arg1-775
arg2-776
arg3-777
arg4-778
arg5-779
arg6-780
arg7-781
arg8-782
arg9-783)
'...higher-order.rkt:42:6
'(captures:
(val/ref #%globals)
(contract-continuation-mark-key
arity-checking-wrapper
bad-number-of-results17.1
tail-marks-match?
tail-contract-key
tail-contract-key))
(let ((local784 (cons arg0-774 arg2-776)))
(arity-checking-wrapper
arg1-775
arg0-774
arg2-776
local784
(lambda (arg0-805 arg1-806)
'...higher-order.rkt:345:46
'(flags: single-result)
'(captures:
(val/ref arg9-783)
(val/ref arg8-782)
(val/ref arg7-781)
(val/ref arg6-780)
(val/ref arg5-779)
(val/ref arg3-777)
(val/ref arg2-776)
(val/ref arg1-775)
(val/ref arg0-774)
(val/ref local784)
(val/ref #%globals)
(contract-continuation-mark-key
bad-number-of-results17.1
tail-marks-match?
tail-contract-key))
(with-continuation-mark
contract-continuation-mark-key
local784
(#%call-with-immediate-continuation-mark
tail-contract-key
(lambda (cmval807)
(if (tail-marks-match?
(#%sfs-clear cmval807)
(#%sfs-clear arg5-779)
(#%sfs-clear arg3-777)
arg2-776
(cons arg0-774 arg2-776))
(begin
(#%sfs-clear local784)
(#%sfs-clear arg0-774)
(#%sfs-clear arg1-775)
(#%sfs-clear arg8-782)
(#%sfs-clear arg9-783)
(values
((#%sfs-clear arg6-780) (#%sfs-clear arg0-805) arg2-776)
((#%sfs-clear arg7-781)
(#%sfs-clear arg1-806)
(#%sfs-clear arg2-776))))
(values
(begin0
(case-lambda
((arg0-824 arg1-825)
'(captures:
(val/ref arg9-783)
(val/ref arg8-782)
(val/ref arg2-776)
(val/ref local784)
(val/ref #%globals)
(contract-continuation-mark-key))
(with-continuation-mark
contract-continuation-mark-key
(#%sfs-clear local784)
(values
((#%sfs-clear arg8-782)
(#%sfs-clear arg0-824)
arg2-776)
((#%sfs-clear arg9-783)
(#%sfs-clear arg1-825)
(#%sfs-clear arg2-776)))))
(rest832
'(flags: sfs-clear-rest-args)
'(captures:
(val/ref arg2-776)
(val/ref arg1-775)
(val/ref arg0-774)
(val/ref #%globals)
(bad-number-of-results17.1))
(bad-number-of-results17.1
(#%sfs-clear arg2-776)
'#t
(#%sfs-clear arg0-774)
(#%sfs-clear arg1-775)
'2
(#%sfs-clear rest832)
'#f
'#f)))
(#%sfs-clear arg0-774)
(#%sfs-clear arg1-775)
(#%sfs-clear local784)
(#%sfs-clear arg8-782)
(#%sfs-clear arg9-783))
((#%sfs-clear arg6-780) (#%sfs-clear arg0-805) arg2-776)
((#%sfs-clear arg7-781)
(#%sfs-clear arg1-806)
(#%sfs-clear arg2-776)))))
'#f)))
(lambda (arg0-845 arg1-846)
'...higher-order.rkt:351:33
'(captures:
(val/ref arg9-783)
(val/ref arg8-782)
(val/ref arg7-781)
(val/ref arg6-780)
(val/ref arg2-776)
(val/ref arg1-775)
(val/ref arg0-774)
(val/ref local784)
(val/ref #%globals)
(contract-continuation-mark-key bad-number-of-results17.1))
(with-continuation-mark
contract-continuation-mark-key
local784
(values
(begin0
(case-lambda
((arg0-850 arg1-851)
'(captures:
(val/ref arg9-783)
(val/ref arg8-782)
(val/ref arg2-776)
(val/ref local784)
(val/ref #%globals)
(contract-continuation-mark-key))
(with-continuation-mark
contract-continuation-mark-key
(#%sfs-clear local784)
(values
((#%sfs-clear arg8-782) (#%sfs-clear arg0-850) arg2-776)
((#%sfs-clear arg9-783)
(#%sfs-clear arg1-851)
(#%sfs-clear arg2-776)))))
(rest858
'(flags: sfs-clear-rest-args)
'(captures:
(val/ref arg2-776)
(val/ref arg1-775)
(val/ref arg0-774)
(val/ref #%globals)
(bad-number-of-results17.1))
(bad-number-of-results17.1
(#%sfs-clear arg2-776)
'#t
(#%sfs-clear arg0-774)
(#%sfs-clear arg1-775)
'2
(#%sfs-clear rest858)
'#f
'#f)))
(#%sfs-clear arg0-774)
(#%sfs-clear arg1-775)
(#%sfs-clear local784)
(#%sfs-clear arg8-782)
(#%sfs-clear arg9-783))
((#%sfs-clear arg6-780) (#%sfs-clear arg0-845) arg2-776)
((#%sfs-clear arg7-781)
(#%sfs-clear arg1-846)
(#%sfs-clear arg2-776)))))
(lambda (arg0-871 arg1-872)
'...higher-order.rkt:357:33
'(flags: preserves-marks single-result)
'(captures:
(val/ref arg9-783)
(val/ref arg8-782)
(val/ref arg7-781)
(val/ref arg6-780)
(val/ref arg5-779)
(val/ref arg3-777)
(val/ref arg2-776)
(val/ref arg1-775)
(val/ref arg0-774)
(val/ref local784)
(val/ref #%globals)
(contract-continuation-mark-key
bad-number-of-results17.1
tail-marks-match?
tail-contract-key
tail-contract-key))
(#%call-with-immediate-continuation-mark
tail-contract-key
(lambda (cmval873)
(if (tail-marks-match?
(#%sfs-clear cmval873)
arg5-779
arg3-777
arg2-776
(cons arg0-774 arg2-776))
(begin
(#%sfs-clear arg0-774)
(#%sfs-clear arg3-777)
(#%sfs-clear arg5-779)
(#%sfs-clear arg8-782)
(#%sfs-clear arg9-783)
(let ((localv881 ?) (localv882 ?))
(begin
(set!-values (localv881 localv882)
(with-continuation-mark
contract-continuation-mark-key
(#%sfs-clear local784)
(values
((#%sfs-clear arg6-780)
(#%sfs-clear arg0-871)
arg2-776)
((#%sfs-clear arg7-781)
(#%sfs-clear arg1-872)
(#%sfs-clear arg2-776)))))
((#%sfs-clear arg1-775)
(#%sfs-clear localv881)
(#%sfs-clear localv882)))))
(#%apply-values
(begin0
(case-lambda
((arg0-891 arg1-892)
'(captures:
(val/ref arg9-783)
(val/ref arg8-782)
(val/ref arg2-776)
(val/ref local784)
(val/ref #%globals)
(contract-continuation-mark-key))
(with-continuation-mark
contract-continuation-mark-key
(#%sfs-clear local784)
(values
((#%sfs-clear arg8-782)
(#%sfs-clear arg0-891)
arg2-776)
((#%sfs-clear arg9-783)
(#%sfs-clear arg1-892)
(#%sfs-clear arg2-776)))))
(rest899
'(flags: sfs-clear-rest-args)
'(captures:
(val/ref arg2-776)
(val/ref arg1-775)
(val/ref arg0-774)
(val/ref #%globals)
(bad-number-of-results17.1))
(bad-number-of-results17.1
(#%sfs-clear arg2-776)
'#t
(#%sfs-clear arg0-774)
(#%sfs-clear arg1-775)
'2
(#%sfs-clear rest899)
'#f
'#f)))
(#%sfs-clear arg0-774)
(#%sfs-clear arg8-782)
(#%sfs-clear arg9-783))
(with-continuation-mark
tail-contract-key
(list*
arg2-776
(#%sfs-clear arg3-777)
(#%sfs-clear arg5-779))
(let ((localv911 ?) (localv912 ?))
(begin
(set!-values (localv911 localv912)
(with-continuation-mark
contract-continuation-mark-key
(#%sfs-clear local784)
(values
((#%sfs-clear arg6-780)
(#%sfs-clear arg0-871)
arg2-776)
((#%sfs-clear arg7-781)
(#%sfs-clear arg1-872)
(#%sfs-clear arg2-776)))))
((#%sfs-clear arg1-775)
(#%sfs-clear localv911)
(#%sfs-clear localv912))))))))
'#f))
(begin0
(lambda (arg0-921 arg1-922)
'...higher-order.rkt:361:33
'(flags: preserves-marks single-result)
'(captures:
(val/ref arg9-783)
(val/ref arg8-782)
(val/ref arg7-781)
(val/ref arg6-780)
(val/ref arg5-779)
(val/ref arg3-777)
(val/ref arg2-776)
(val/ref arg1-775)
(val/ref arg0-774)
(val/ref local784)
(val/ref #%globals)
(contract-continuation-mark-key
tail-marks-match?
tail-contract-key
tail-contract-key))
(#%call-with-immediate-continuation-mark
tail-contract-key
(lambda (cmval923)
(if (tail-marks-match?
(#%sfs-clear cmval923)
arg5-779
arg3-777
arg2-776
(cons (#%sfs-clear arg0-774) arg2-776))
(begin
(#%sfs-clear arg3-777)
(#%sfs-clear arg5-779)
(#%sfs-clear arg8-782)
(#%sfs-clear arg9-783)
(let ((localv931 ?) (localv932 ?))
(begin
(set!-values (localv931 localv932)
(with-continuation-mark
contract-continuation-mark-key
(#%sfs-clear local784)
(values
((#%sfs-clear arg6-780)
(#%sfs-clear arg0-921)
arg2-776)
((#%sfs-clear arg7-781)
(#%sfs-clear arg1-922)
(#%sfs-clear arg2-776)))))
((#%sfs-clear arg1-775)
(#%sfs-clear localv931)
(#%sfs-clear localv932)))))
(let ((localv941 ?) (localv942 ?))
(begin
(set!-values (localv941 localv942)
(with-continuation-mark
tail-contract-key
(list*
arg2-776
(#%sfs-clear arg3-777)
(#%sfs-clear arg5-779))
(let ((localv946 ?) (localv947 ?))
(begin
(set!-values (localv946 localv947)
(with-continuation-mark
contract-continuation-mark-key
local784
(values
((#%sfs-clear arg6-780)
(#%sfs-clear arg0-921)
arg2-776)
((#%sfs-clear arg7-781)
(#%sfs-clear arg1-922)
arg2-776))))
((#%sfs-clear arg1-775)
(#%sfs-clear localv946)
(#%sfs-clear localv947))))))
(with-continuation-mark
contract-continuation-mark-key
(#%sfs-clear local784)
(values
((#%sfs-clear arg8-782)
(#%sfs-clear localv941)
arg2-776)
((#%sfs-clear arg9-783)
(#%sfs-clear localv942)
(#%sfs-clear arg2-776))))))))
'#f))
(#%sfs-clear arg5-779)
(#%sfs-clear arg3-777)
(#%sfs-clear arg0-774))
(begin0
(lambda (arg0-962 arg1-963)
'...higher-order.rkt:365:33
'(captures:
(val/ref arg9-783)
(val/ref arg8-782)
(val/ref arg7-781)
(val/ref arg6-780)
(val/ref arg2-776)
(val/ref arg1-775)
(val/ref local784)
(val/ref #%globals)
(contract-continuation-mark-key))
(let ((localv964 ?) (localv965 ?))
(begin
(set!-values (localv964 localv965)
(with-continuation-mark
contract-continuation-mark-key
local784
(values
((#%sfs-clear arg6-780) (#%sfs-clear arg0-962) arg2-776)
((#%sfs-clear arg7-781)
(#%sfs-clear arg1-963)
arg2-776))))
(let ((localv972 ?) (localv973 ?))
(begin
(set!-values (localv972 localv973)
((#%sfs-clear arg1-775)
(#%sfs-clear localv964)
(#%sfs-clear localv965)))
(with-continuation-mark
contract-continuation-mark-key
(#%sfs-clear local784)
(values
((#%sfs-clear arg8-782)
(#%sfs-clear localv972)
arg2-776)
((#%sfs-clear arg9-783)
(#%sfs-clear localv973)
(#%sfs-clear arg2-776)))))))))
(#%sfs-clear arg9-783)
(#%sfs-clear arg8-782)
(#%sfs-clear arg7-781)
(#%sfs-clear arg6-780)
(#%sfs-clear arg2-776)
(#%sfs-clear arg1-775)
(#%sfs-clear local784))
'2
void
void
'2
'2
'()
'()
'#f
(#%sfs-clear arg4-778))))
'#f))
(define-values
(idZ3.1)
(values
(coerce-contract
'define-module-boundary-contract
generated-contract3.1)))
(define-values (g13.1) '#f)
(define-values (g14.1) (or/c-name '#f g8.1))
(define-values
(generated-contract4.1)
(build-->
'->*
(list g8.1)
'()
'()
'()
'()
'()
'#f
'#f
(list g14.1)
'#f
popular-plus-one-key-id3.1
popular-chaperone-key-id42.1
'#f))
(define-values
(idZ7.1)
(values
(coerce-contract
'define-module-boundary-contract
generated-contract4.1)))
(define-values (g16.1) (listof/proc.1 g9.1))
(define-values
(generated-contract5.1)
(build-->
'->*
(list g9.1)
'()
'()
'()
'()
'()
'#f
'#f
(list g16.1)
'#f
popular-plus-one-key-id3.1
popular-chaperone-key-id42.1
'#f))
(define-values
(idZ11.1)
(values
(coerce-contract
'define-module-boundary-contract
generated-contract5.1)))
(define-values
(idX1.1 idB4.1)
(do-partial-app
idZ3.1
exact-polygon2d
'exact-polygon2d
blame1.1
(vector
'#<path:/Users/pnwamk/Repos/plt/nightly/share/pkgs/plot-lib/plot/private/plot2d/compiled/vector.rkt>
'8
'9
'170
'15)))
(define-values
(idX5.1 idB8.1)
(do-partial-app
idZ7.1
exact-vector2d
'exact-vector2d
blame1.1
(vector
'#<path:/Users/pnwamk/Repos/plt/nightly/share/pkgs/plot-lib/plot/private/plot2d/compiled/vector.rkt>
'6
'9
'113
'14)))
(define-values
(idX9.1 idB12.1)
(do-partial-app
idZ11.1
exact-vector2d-sublists
'exact-vector2d-sublists
blame1.1
(vector
'#<path:/Users/pnwamk/Repos/plt/nightly/share/pkgs/plot-lib/plot/private/plot2d/compiled/vector.rkt>
'7
'9
'137
'23)))
'#<void>
(define-syntaxes
exact-polygon2d.1
(let ((local1056
(make-provide/contract-transformer
(.get-syntax-literal! '0)
(.get-syntax-literal! '1)
(.get-syntax-literal! '2)
'#f
'#f
(.get-syntax-literal! '3)
(.get-syntax-literal! '4))))
(#%sfs-clear local1056)))
(define-syntaxes
exact-vector2d.1
(let ((local1071
(make-provide/contract-transformer
(.get-syntax-literal! '5)
(.get-syntax-literal! '6)
(.get-syntax-literal! '7)
'#f
'#f
(.get-syntax-literal! '8)
(.get-syntax-literal! '9))))
(#%sfs-clear local1071)))
(define-syntaxes
exact-vector2d-sublists.1
(let ((local1086
(make-provide/contract-transformer
(.get-syntax-literal! '10)
(.get-syntax-literal! '11)
(.get-syntax-literal! '12)
'#f
'#f
(.get-syntax-literal! '13)
(.get-syntax-literal! '14))))
(#%sfs-clear local1086)))
(begin-for-syntax '#<void>)
(begin-for-all
(define #0#
....
(let (((scope:0 (deserialize-scope 'module))
(scope:1 (deserialize-scope 'macro))
(scope:2 (deserialize-scope 'module))
(mutable:3 (make-hasheqv))
(mutable:4 (make-hasheqv))
(scope:5 (deserialize-scope 'macro))
(scope:6 (deserialize-scope 'macro))
(scope:7 (deserialize-scope 'macro))
(scope:8 (deserialize-scope 'macro))
(scope:9 (deserialize-scope 'macro))
(scope:10 (deserialize-scope 'macro))
(scope:11 (deserialize-scope 'macro))
(scope:12 (deserialize-scope 'macro))
(scope:13 (deserialize-scope 'macro))
(scope:14 (deserialize-scope 'macro))
(scope:15 (deserialize-scope 'macro))
(scope:16 (deserialize-scope 'macro))
(scope:17 (deserialize-scope 'macro))
(scope:18 (deserialize-scope 'macro))
(mutable:19 (deserialize-representative-scope 'module '0))
(mutable:20 (deserialize-representative-scope 'module '0))
(mutable:21 (deserialize-representative-scope 'module '-1))
(mutable:22 (deserialize-representative-scope 'module '-1))
(mutable:23 (deserialize-representative-scope 'module '-2))))
(let* (((shared:24 (deserialize-multi-scope 'vector mutable:3))
(shared:25
(deserialize-multi-scope '#%contract-defs mutable:4))
(shared:26 (deserialize-shifted-multi-scope '0 shared:25))
(shared:27
(seteq
(deserialize-shifted-multi-scope '0 shared:24)
shared:26))
(shared:28
(list
(cons
(vector-ref .mpi-vector 26)
(vector-ref .mpi-vector 13))
(cons
(vector-ref .mpi-vector 27)
(vector-ref .mpi-vector 12))
(cons
(vector-ref .mpi-vector 28)
(vector-ref .mpi-vector 27))))
(shared:29
'#<path:/Users/pnwamk/Repos/plt/nightly/share/pkgs/plot-lib/plot/private/plot2d/compiled/vector.rkt>)
(srcloc:30 (srcloc shared:29 '8 '9 '170 '15))
(shared:31 (seteq shared:26))
(shared:32
(vector (seteq scope:0 scope:2) shared:27 shared:28))
(srcloc:33 (srcloc shared:29 '6 '9 '113 '14))
(srcloc:34 (srcloc shared:29 '7 '9 '137 '23))
(shared:35 (seteq scope:0 mutable:20))
(shared:36 '#hasheq())
(shared:37 '#hasheq())))
(begin
(hash-set! mutable:3 '-2 mutable:23)
(hash-set! mutable:3 '-1 mutable:22)
(hash-set! mutable:3 '0 mutable:20))
(begin
(hash-set! mutable:4 '-1 mutable:21)
(hash-set! mutable:4 '0 mutable:19))
(deserialize-scope-fill!
scope:6
(hasheq
'idZ3
(hash
(seteq mutable:19 scope:5 scope:6)
(deserialize-full-module-binding
(vector-ref .mpi-vector 13)
'idZ3.1
'0
(vector-ref .mpi-vector 13)
'0
'idZ3
'0
'#f
'#f
'()))))
(deserialize-scope-fill!
scope:7
(hasheq
'idX1
(hash
(seteq mutable:19 scope:5 scope:7)
(deserialize-full-module-binding
(vector-ref .mpi-vector 13)
'idX1.1
'0
(vector-ref .mpi-vector 13)
'0
'idX1
'0
'#f
'#f
'()))))
(deserialize-scope-fill!
scope:8
(hasheq
'idB4
(hash
(seteq mutable:19 scope:5 scope:8)
(deserialize-full-module-binding
(vector-ref .mpi-vector 13)
'idB4.1
'0
(vector-ref .mpi-vector 13)
'0
'idB4
'0
'#f
'#f
'()))))
(deserialize-scope-fill!
scope:11
(hasheq
'idZ7
(hash
(seteq mutable:19 scope:10 scope:11)
(deserialize-full-module-binding
(vector-ref .mpi-vector 13)
'idZ7.1
'0
(vector-ref .mpi-vector 13)
'0
'idZ7
'0
'#f
'#f
'()))))
(deserialize-scope-fill!
scope:12
(hasheq
'idX5
(hash
(seteq mutable:19 scope:10 scope:12)
(deserialize-full-module-binding
(vector-ref .mpi-vector 13)
'idX5.1
'0
(vector-ref .mpi-vector 13)
'0
'idX5
'0
'#f
'#f
'()))))
(deserialize-scope-fill!
scope:13
(hasheq
'idB8
(hash
(seteq mutable:19 scope:10 scope:13)
(deserialize-full-module-binding
(vector-ref .mpi-vector 13)
'idB8.1
'0
(vector-ref .mpi-vector 13)
'0
'idB8
'0
'#f
'#f
'()))))
(deserialize-scope-fill!
scope:16
(hasheq
'idZ11
(hash
(seteq mutable:19 scope:15 scope:16)
(deserialize-full-module-binding
(vector-ref .mpi-vector 13)
'idZ11.1
'0
(vector-ref .mpi-vector 13)
'0
'idZ11
'0
'#f
'#f
'()))))
(deserialize-scope-fill!
scope:17
(hasheq
'idX9
(hash
(seteq mutable:19 scope:15 scope:17)
(deserialize-full-module-binding
(vector-ref .mpi-vector 13)
'idX9.1
'0
(vector-ref .mpi-vector 13)
'0
'idX9
'0
'#f
'#f
'()))))
(deserialize-scope-fill!
scope:18
(hasheq
'idB12
(hash
(seteq mutable:19 scope:15 scope:18)
(deserialize-full-module-binding
(vector-ref .mpi-vector 13)
'idB12.1
'0
(vector-ref .mpi-vector 13)
'0
'idB12
'0
'#f
'#f
'()))))
(deserialize-representative-scope-fill!
mutable:19
(hasheq
'exact-polygon2d
(hash
(seteq scope:0 mutable:20 scope:1 scope:2 mutable:19)
(deserialize-full-module-binding
(vector-ref .mpi-vector 13)
'exact-polygon2d.1
'0
(vector-ref .mpi-vector 13)
'0
'exact-polygon2d
'0
'#f
'#f
'()))
'exact-vector2d
(hash
(seteq scope:0 mutable:20 scope:9 scope:2 mutable:19)
(deserialize-full-module-binding
(vector-ref .mpi-vector 13)
'exact-vector2d.1
'0
(vector-ref .mpi-vector 13)
'0
'exact-vector2d
'0
'#f
'#f
'()))
'exact-vector2d-sublists
(hash
(seteq scope:0 mutable:20 scope:14 scope:2 mutable:19)
(deserialize-full-module-binding
(vector-ref .mpi-vector 13)
'exact-vector2d-sublists.1
'0
(vector-ref .mpi-vector 13)
'0
'exact-vector2d-sublists
'0
'#f
'#f
'())))
shared:25)
(deserialize-representative-scope-fill!
mutable:20
(deserialize-table-with-bulk-bindings
(hasheq
'exact-polygon2d
(hash
shared:35
(deserialize-simple-module-binding
(vector-ref .mpi-vector 27)
'exact-polygon2d
'0
(vector-ref .mpi-vector 27)))
'exact-vector2d
(hash
shared:35
(deserialize-simple-module-binding
(vector-ref .mpi-vector 27)
'exact-vector2d
'0
(vector-ref .mpi-vector 27)))
'exact-vector2d-sublists
(hash
shared:35
(deserialize-simple-module-binding
(vector-ref .mpi-vector 27)
'exact-vector2d-sublists
'0
(vector-ref .mpi-vector 27)))
'sublists
(hash
shared:35
(deserialize-simple-module-binding
(vector-ref .mpi-vector 27)
'sublists
'0
(vector-ref .mpi-vector 27)))
'unsafe-vector-ref
(hash
shared:35
(deserialize-simple-module-binding
(vector-ref .mpi-vector 29)
'unsafe-vector-ref
'0
(vector-ref .mpi-vector 30))))
(list
(deserialize-bulk-binding-at
shared:35
(deserialize-bulk-binding
'#f
shared:36
(vector-ref .mpi-vector 31)
'0
'0
.bulk-binding-registry))
(deserialize-bulk-binding-at
shared:35
(deserialize-bulk-binding
'#f
shared:36
(vector-ref .mpi-vector 31)
'0
'0
.bulk-binding-registry))
(deserialize-bulk-binding-at
shared:35
(deserialize-bulk-binding
'#f
shared:36
(vector-ref .mpi-vector 32)
'0
'0
.bulk-binding-registry))))
shared:24)
(deserialize-representative-scope-fill!
mutable:21
shared:37
shared:25)
(deserialize-representative-scope-fill!
mutable:22
(deserialize-table-with-bulk-bindings
shared:37
(cons
(deserialize-bulk-binding-at
(seteq scope:0 mutable:22)
(deserialize-bulk-binding
'#f
shared:36
(vector-ref .mpi-vector 32)
'1
'0
.bulk-binding-registry))
'()))
shared:24)
(deserialize-representative-scope-fill!
mutable:23
shared:37
shared:24)
(vector
(deserialize-syntax
'exact-polygon2d
(vector (seteq scope:0 scope:1 scope:2) shared:27 shared:28)
srcloc:30
#f
#f
.inspector)
(deserialize-syntax
'idZ3
(vector (seteq scope:5 scope:6) shared:31 '())
'#f
#f
#f
.inspector)
(deserialize-syntax
'exact-polygon2d
shared:32
srcloc:30
#f
#f
.inspector)
(deserialize-syntax
'idX1
(vector (seteq scope:5 scope:7) shared:31 '())
'#f
#f
#f
.inspector)
(deserialize-syntax
'idB4
(vector (seteq scope:5 scope:8) shared:31 '())
'#f
#f
#f
.inspector)
(deserialize-syntax
'exact-vector2d
(vector (seteq scope:0 scope:9 scope:2) shared:27 shared:28)
srcloc:33
#f
#f
.inspector)
(deserialize-syntax
'idZ7
(vector (seteq scope:10 scope:11) shared:31 '())
'#f
#f
#f
.inspector)
(deserialize-syntax
'exact-vector2d
shared:32
srcloc:33
#f
#f
.inspector)
(deserialize-syntax
'idX5
(vector (seteq scope:10 scope:12) shared:31 '())
'#f
#f
#f
.inspector)
(deserialize-syntax
'idB8
(vector (seteq scope:10 scope:13) shared:31 '())
'#f
#f
#f
.inspector)
(deserialize-syntax
'exact-vector2d-sublists
(vector (seteq scope:0 scope:14 scope:2) shared:27 shared:28)
srcloc:34
#f
#f
.inspector)
(deserialize-syntax
'idZ11
(vector (seteq scope:15 scope:16) shared:31 '())
'#f
#f
#f
.inspector)
(deserialize-syntax
'exact-vector2d-sublists
shared:32
srcloc:34
#f
#f
.inspector)
(deserialize-syntax
'idX9
(vector (seteq scope:15 scope:17) shared:31 '())
'#f
#f
#f
.inspector)
(deserialize-syntax
'idB12
(vector (seteq scope:15 scope:18) shared:31 '())
'#f
#f
#f
.inspector))))
.
#1#)))
(begin-for-all
(define #0#
....
(let (((scope:0 (deserialize-scope 'module))
(scope:1 (deserialize-scope 'macro))
(mutable:2 (make-hasheqv))
(scope:3 (deserialize-scope 'macro))
(scope:4 (deserialize-scope 'macro))
(scope:5 (deserialize-scope 'macro))
(scope:6 (deserialize-scope 'macro))
(scope:7 (deserialize-scope 'macro))
(mutable:8 (make-hasheq))
(mutable:9 (make-hasheq))
(scope:10 (deserialize-scope 'macro))
(scope:11 (deserialize-scope 'macro))
(mutable:12 (deserialize-representative-scope 'module '-1))
(scope:13 (deserialize-scope 'macro))
(mutable:14 (deserialize-representative-scope 'module '0))
(scope:15 (deserialize-scope 'macro))
(scope:16 (deserialize-scope 'macro))
(scope:17 (deserialize-scope 'macro))))
(let* (((shared:18 (deserialize-multi-scope 'vector mutable:2))
(shared:19
(seteq (deserialize-shifted-multi-scope '0 shared:18)))
(shared:20
(cons
(cons (vector-ref .mpi-vector 13) (vector-ref .mpi-vector 10))
'()))
(shared:21
'#<path:/Users/pnwamk/Repos/plt/nightly/share/pkgs/plot-lib/plot/private/plot2d/compiled/vector.rkt>)
(srcloc:22 (srcloc shared:21 '8 '9 '170 '15))
(shared:23 (seteq scope:0))
(shared:24 (vector shared:23 shared:19 shared:20))
(shared:25 (vector (seteq scope:0 scope:3) shared:19 shared:20))
(srcloc:26 (srcloc shared:21 '6 '9 '113 '14))
(shared:27 (vector (seteq scope:0 scope:5) shared:19 shared:20))
(srcloc:28 (srcloc shared:21 '7 '9 '137 '23))
(shared:29 (vector (seteq scope:0 scope:7) shared:19 shared:20))
(shared:30 '#hasheq())
(shared:31 (vector shared:30 shared:30 '()))
(shared:32 '#hasheq())
(shared:33 '#hasheq())
(shared:34 (seteq scope:0 mutable:14))))
(begin
(hash-set! mutable:2 '-1 mutable:12)
(hash-set! mutable:2 '0 mutable:14))
(deserialize-scope-fill!
scope:3
(hasheq
'exact-polygon2d
(hash
(seteq scope:0 mutable:14 scope:3)
(deserialize-full-module-binding
(vector-ref .mpi-vector 10)
'exact-polygon2d.1
'0
(vector-ref .mpi-vector 10)
'0
'exact-polygon2d
'0
'#f
'#f
'()))))
(deserialize-scope-fill!
scope:5
(hasheq
'exact-vector2d
(hash
(seteq scope:0 mutable:14 scope:5)
(deserialize-full-module-binding
(vector-ref .mpi-vector 10)
'exact-vector2d.1
'0
(vector-ref .mpi-vector 10)
'0
'exact-vector2d
'0
'#f
'#f
'()))))
(deserialize-scope-fill!
scope:7
(hasheq
'exact-vector2d-sublists
(hash
(seteq scope:0 mutable:14 scope:7)
(deserialize-full-module-binding
(vector-ref .mpi-vector 10)
'exact-vector2d-sublists.1
'0
(vector-ref .mpi-vector 10)
'0
'exact-vector2d-sublists
'0
'#f
'#f
'()))))
(begin
(hash-set!
mutable:8
'blame1.1
(deserialize-syntax
'blame1
(vector (seteq scope:10 scope:17) shared:19 '())
'#f
'#f
'armed
.inspector))
(hash-set!
mutable:8
'exact-polygon2d
(deserialize-syntax
'exact-polygon2d
shared:24
(srcloc shared:21 '38 '9 '1319 '15)
'#f
'armed
.inspector))
(hash-set!
mutable:8
'exact-polygon2d.1
(deserialize-syntax
'exact-polygon2d
shared:25
srcloc:22
'#f
'armed
.inspector))
(hash-set!
mutable:8
'exact-polygon2d.2
(deserialize-syntax
'exact-polygon2d
(vector (seteq scope:0 scope:16) shared:19 shared:20)
srcloc:22
'#f
'armed
.inspector))
(hash-set!
mutable:8
'exact-vector2d
(deserialize-syntax
'exact-vector2d
shared:24
(srcloc shared:21 '11 '9 '260 '14)
'#f
'armed
.inspector))
(hash-set!
mutable:8
'exact-vector2d-sublists
(deserialize-syntax
'exact-vector2d-sublists
shared:24
(srcloc shared:21 '32 '9 '1055 '23)
'#f
'armed
.inspector))
(hash-set!
mutable:8
'exact-vector2d-sublists.1
(deserialize-syntax
'exact-vector2d-sublists
shared:29
srcloc:28
'#f
'armed
.inspector))
(hash-set!
mutable:8
'exact-vector2d-sublists.2
(deserialize-syntax
'exact-vector2d-sublists
(vector (seteq scope:0 scope:15) shared:19 shared:20)
srcloc:28
'#f
'armed
.inspector))
(hash-set!
mutable:8
'exact-vector2d.1
(deserialize-syntax
'exact-vector2d
shared:27
srcloc:26
'#f
'armed
.inspector))
(hash-set!
mutable:8
'exact-vector2d.2
(deserialize-syntax
'exact-vector2d
(vector (seteq scope:0 scope:13) shared:19 shared:20)
srcloc:26
'#f
'armed
.inspector))
(hash-set!
mutable:8
'sublists
(deserialize-syntax
'sublists
shared:24
(srcloc shared:21 '22 '9 '659 '8)
'#f
'armed
.inspector)))
(begin
(hash-set!
mutable:9
'make-redirect2.1
(deserialize-syntax
'make-redirect2
(vector (seteq scope:10 scope:11) shared:19 '())
'#f
'#f
'armed
.inspector)))
(deserialize-scope-fill! scope:10 shared:32)
(deserialize-scope-fill!
scope:11
(hasheq
'make-redirect2
(hash
(seteq mutable:12 scope:10 scope:11)
(deserialize-full-module-binding
(vector-ref .mpi-vector 10)
'make-redirect2.1
'1
(vector-ref .mpi-vector 10)
'1
'make-redirect2
'0
'#f
'#f
'()))))
(deserialize-representative-scope-fill!
mutable:12
(deserialize-table-with-bulk-bindings
shared:32
(cons
(deserialize-bulk-binding-at
(seteq scope:0 mutable:12)
(deserialize-bulk-binding
'#f
shared:33
(vector-ref .mpi-vector 11)
'1
'0
.bulk-binding-registry))
'()))
shared:18)
(deserialize-scope-fill!
scope:13
(hasheq
'exact-vector2d
(hash
(seteq scope:0 mutable:14 scope:13)
(deserialize-full-module-binding
(vector-ref .mpi-vector 10)
'exact-vector2d.2
'0
(vector-ref .mpi-vector 10)
'0
'exact-vector2d
'0
'#f
'#f
'()))))
(deserialize-representative-scope-fill!
mutable:14
(deserialize-table-with-bulk-bindings
(hasheq
'exact-polygon2d
(hash
shared:34
(deserialize-simple-module-binding
(vector-ref .mpi-vector 10)
'exact-polygon2d
'0
(vector-ref .mpi-vector 10)))
'exact-vector2d
(hash
shared:34
(deserialize-simple-module-binding
(vector-ref .mpi-vector 10)
'exact-vector2d
'0
(vector-ref .mpi-vector 10)))
'exact-vector2d-sublists
(hash
shared:34
(deserialize-simple-module-binding
(vector-ref .mpi-vector 10)
'exact-vector2d-sublists
'0
(vector-ref .mpi-vector 10)))
'sublists
(hash
shared:34
(deserialize-simple-module-binding
(vector-ref .mpi-vector 10)
'sublists
'0
(vector-ref .mpi-vector 10)))
'unsafe-vector-ref
(hash
shared:34
(deserialize-simple-module-binding
(vector-ref .mpi-vector 14)
'unsafe-vector-ref
'0
(vector-ref .mpi-vector 12))))
(list
(deserialize-bulk-binding-at
shared:34
(deserialize-bulk-binding
'#f
shared:33
(vector-ref .mpi-vector 3)
'0
'0
.bulk-binding-registry))
(deserialize-bulk-binding-at
shared:34
(deserialize-bulk-binding
'#f
shared:33
(vector-ref .mpi-vector 3)
'0
'0
.bulk-binding-registry))
(deserialize-bulk-binding-at
shared:34
(deserialize-bulk-binding
'#f
shared:33
(vector-ref .mpi-vector 11)
'0
'0
.bulk-binding-registry))))
shared:18)
(deserialize-scope-fill!
scope:15
(hasheq
'exact-vector2d-sublists
(hash
(seteq scope:0 mutable:14 scope:15)
(deserialize-full-module-binding
(vector-ref .mpi-vector 10)
'exact-vector2d-sublists.2
'0
(vector-ref .mpi-vector 10)
'0
'exact-vector2d-sublists
'0
'#f
'#f
'()))))
(deserialize-scope-fill!
scope:16
(hasheq
'exact-polygon2d
(hash
(seteq scope:0 mutable:14 scope:16)
(deserialize-full-module-binding
(vector-ref .mpi-vector 10)
'exact-polygon2d.2
'0
(vector-ref .mpi-vector 10)
'0
'exact-polygon2d
'0
'#f
'#f
'()))))
(deserialize-scope-fill!
scope:17
(hasheq
'blame1
(hash
(seteq mutable:14 scope:10 scope:17)
(deserialize-full-module-binding
(vector-ref .mpi-vector 10)
'blame1.1
'0
(vector-ref .mpi-vector 10)
'0
'blame1
'0
'#f
'#f
'()))))
(vector
(deserialize-syntax
'exact-polygon2d
(vector (seteq scope:0 scope:1) shared:19 shared:20)
srcloc:22
#f
#f
.inspector)
(deserialize-syntax
'exact-polygon2d
shared:24
srcloc:22
#f
#f
.inspector)
(deserialize-syntax
'exact-polygon2d
shared:25
srcloc:22
#f
#f
.inspector)
(deserialize-syntax
'exact-vector2d
(vector (seteq scope:0 scope:4) shared:19 shared:20)
srcloc:26
#f
#f
.inspector)
(deserialize-syntax
'exact-vector2d
shared:24
srcloc:26
#f
#f
.inspector)
(deserialize-syntax
'exact-vector2d
shared:27
srcloc:26
#f
#f
.inspector)
(deserialize-syntax
'exact-vector2d-sublists
(vector (seteq scope:0 scope:6) shared:19 shared:20)
srcloc:28
#f
#f
.inspector)
(deserialize-syntax
'exact-vector2d-sublists
shared:24
srcloc:28
#f
#f
.inspector)
(deserialize-syntax
'exact-vector2d-sublists
shared:29
srcloc:28
#f
#f
.inspector)
(deserialize-syntax
(vector
(deserialize-syntax
'#f
(vector shared:23 shared:19 '())
'#f
#f
#f
.inspector)
(deserialize-syntax
'#f
(vector shared:30 shared:19 '())
'#f
#f
#f
.inspector)
(deserialize-syntax
'typed/racket/base
(vector
shared:23
shared:19
(cons
(cons (vector-ref .mpi-vector 13) (vector-ref .mpi-vector 10))
'()))
(srcloc shared:21 '1 '6 '7 '17)
#f
#f
.inspector)
(deserialize-syntax '#f shared:31 '#f #f #f .inspector)
(deserialize-syntax
(hasheqv '0 mutable:8 '1 mutable:9)
shared:31
'#f
#f
#f
.inspector)
(deserialize-syntax 'root-frame shared:31 '#f #f #f .inspector)
(deserialize-syntax '129 shared:31 '#f #f #f .inspector))
shared:31
'#f
#f
#f
.inspector))))
.
#1#)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment