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

cs: repair for raco decompile

Browse Source
This commit is contained in:
Matthew Flatt 2020-05-06 21:08:56 -06:00
parent bc97c65bb8
commit aeb32081db
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/compiler-lib/compiler/decompile.rkt
View File

@ -257,7 +257,7 @@
(case fmt (case fmt
[(compile) [(compile)
(define proc ((vm-eval `(load-compiled-from-port (open-bytevector-input-port ,uncompressed-code))))) (define proc ((vm-eval `(load-compiled-from-port (open-bytevector-input-port ,uncompressed-code)))))
(decompile-chez-procedure (if (null? args) proc (proc args)))] (decompile-chez-procedure (if (null? args) proc (apply proc args)))]
[(interpret) [(interpret)
(define bytecode (vm-eval `(fasl-read (open-bytevector-input-port ,uncompressed-code)))) (define bytecode (vm-eval `(fasl-read (open-bytevector-input-port ,uncompressed-code))))
(list `(#%interpret ,(unwrap-chez-interpret-jitified bytecode)))] (list `(#%interpret ,(unwrap-chez-interpret-jitified bytecode)))]