diff --git a/racket/src/expander/extract/decompile.rkt b/racket/src/expander/extract/decompile.rkt index 4430826663..2e6a64bc36 100644 --- a/racket/src/expander/extract/decompile.rkt +++ b/racket/src/expander/extract/decompile.rkt @@ -6,9 +6,6 @@ (provide compile-and-decompile) (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) (define linklet (compile-linklet linklet-expr)) @@ -28,9 +25,3 @@ [zo ((dynamic-require 'compiler/zo-parse 'zo-parse) i)] [decompiled-expr ((dynamic-require 'compiler/decompile 'decompile) zo)]) (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))