From aeb32081db89a1f6ec517c8953fd2ea0bf3d85ae Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 6 May 2020 21:08:56 -0600 Subject: [PATCH] cs: repair for `raco decompile` --- pkgs/compiler-lib/compiler/decompile.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/compiler-lib/compiler/decompile.rkt b/pkgs/compiler-lib/compiler/decompile.rkt index 150d3e2339..b8cf022993 100644 --- a/pkgs/compiler-lib/compiler/decompile.rkt +++ b/pkgs/compiler-lib/compiler/decompile.rkt @@ -257,7 +257,7 @@ (case fmt [(compile) (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) (define bytecode (vm-eval `(fasl-read (open-bytevector-input-port ,uncompressed-code)))) (list `(#%interpret ,(unwrap-chez-interpret-jitified bytecode)))]