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

Use linklet functions from '#%linklet instead of from lower level.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2018-11-21 12:37:28 -05:00
parent 7017781681
commit 18afdb54d6
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
racket/src/expander/extract/decompile.rkt
View File

@ -6,9 +6,6 @@
(provide compile-and-decompile) (provide compile-and-decompile)
(define (compile-and-decompile linklet-expr print-extracted-to #:as-bytecode? as-bytecode?) (define (compile-and-decompile linklet-expr print-extracted-to #:as-bytecode? as-bytecode?)
(unless compile-linklet
(error "Host Racket does not support linklet compilation"))
(log-status "Compiling and decompiling linklet to ~a" print-extracted-to) (log-status "Compiling and decompiling linklet to ~a" print-extracted-to)
(define linklet (compile-linklet linklet-expr)) (define linklet (compile-linklet linklet-expr))
@ -28,9 +25,3 @@
[zo ((dynamic-require 'compiler/zo-parse 'zo-parse) i)] [zo ((dynamic-require 'compiler/zo-parse 'zo-parse) i)]
[decompiled-expr ((dynamic-require 'compiler/decompile 'decompile) zo)]) [decompiled-expr ((dynamic-require 'compiler/decompile 'decompile) zo)])
(pretty-write decompiled-expr o)))))) (pretty-write decompiled-expr o))))))
(define compile-linklet
(hash-ref (primitive-table '#%linklet) 'compile-linklet #f))
(define hash->linklet-bundle
(hash-ref (primitive-table '#%linklet) 'hash->linklet-bundle #f))