cyclone/srfi/test-2.scm
2016-08-20 03:16:10 -04:00

11 lines
205 B
Scheme

(import (scheme base)
(scheme write)
(scheme cyclone pretty-print)
(2))
(pretty-print `(
,(and-let* ((x 1) (y 2))
(+ x y))
,(and-let* ((x 1) (y 2) (#f))
(+ x y))
))