#!/bin/bash

source ${BASH_SOURCE%/*}/test.sh

# ------------------------------------------------------------
setglobal value = $[../lishp.sh << """
(let* ((x 2))
      x)
"""
]
assert::equals "Integer :: 2" $(value) "Basic let*"

# ------------------------------------------------------------
setglobal value = $[../lishp.sh << """
(let* ((x 2)
       (y x))
      y)
"""
]
assert::equals "Integer :: 2" $(value) "let* reading previous values"

# ------------------------------------------------------------
setglobal value = $[../lishp.sh << """
(let* ((x 2))
      x
      (* 5 x))
"""
]
assert::equals "Integer :: 10" $(value) "let returning last value"

# ------------------------------------------------------------


assert::report