17 lines
405 B
Racket
17 lines
405 B
Racket
#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))
|