diff --git a/c.ss b/c.ss index 6ea2410..16b57c0 100644 --- a/c.ss +++ b/c.ss @@ -1675,7 +1675,7 @@ ;;; to understand how the nanopass framework can be used. ;;; (define-pass remove-one-armed-if : Lsrc (e) -> L1 () - (trace Expr : Expr (e) -> Expr () + (Expr : Expr (e) -> Expr () [(if ,[e0] ,[e1]) `(if ,e0 ,e1 (void))])) ;;; pass: remove-and-or-not : L1 -> L2