#lang racket/base

(require "../main.rkt")

;; js-maker 3 does not have a separate optimizer pass.  The notable direct
;; lowering is named let to a while(true) loop with parallel updates.
(define optimized-example
  (js
   (define (sumTo n)
     (let loop ([i 0] [acc 0])
       (if (> i n)
           (return acc)
           (loop (+ i 1) (+ acc i)))))))

(module+ main
  (displayln optimized-example))