diff --git a/compile.rkt b/compile.rkt index 685a0ac..a8f074f 100644 --- a/compile.rkt +++ b/compile.rkt @@ -483,8 +483,8 @@ (kernel-primitive-expected-operand-types kernel-op n)] [operand-poss (simple-operands->opargs (map (lambda: ([op : Expression]) - (adjust-expression-depth op n n)) - (App-operands exp)))]) + (adjust-expression-depth op n n)) + (App-operands exp)))]) (end-with-linkage linkage cenv (make-instruction-sequence