mirror of
https://github.com/luau-lang/luau.git
synced 2025-05-04 10:33:46 +01:00
16 lines
394 B
Agda
16 lines
394 B
Agda
module Luau.Value where
|
|
|
|
open import Luau.Addr using (Addr)
|
|
open import Luau.Syntax using (Block; Expr; nil; addr; function⟨_⟩_end)
|
|
open import Luau.Var using (Var)
|
|
|
|
data Value : Set where
|
|
nil : Value
|
|
addr : Addr → Value
|
|
function⟨_⟩_end : Var → Block → Value
|
|
|
|
val : Value → Expr
|
|
val nil = nil
|
|
val (addr a) = addr a
|
|
val (function⟨ x ⟩ B end) = function⟨ x ⟩ B end
|
|
|