mirror of
https://github.com/luau-lang/luau.git
synced 2025-05-04 10:33:46 +01:00
Apply suggestions from code review
Co-authored-by: Lily Brown <lily@lily.fyi>
This commit is contained in:
parent
70348e728b
commit
4fb0d28e23
2 changed files with 2 additions and 6 deletions
|
@ -23,12 +23,8 @@ evalEqOp (bool false) (bool y) = not y
|
|||
evalEqOp _ _ = false
|
||||
|
||||
evalNeqOp : Value → Value → Bool
|
||||
evalNeqOp Value.nil Value.nil = false
|
||||
evalNeqOp (addr x) (addr y) = not (x ==ᴬ y)
|
||||
evalNeqOp (number x) (number y) = primFloatInequality x y
|
||||
evalNeqOp (bool true) (bool y) = not y
|
||||
evalNeqOp (bool false) (bool y) = y
|
||||
evalNeqOp _ _ = true
|
||||
evalNeqOp x y = not (evalEqOp x y)
|
||||
|
||||
data _⟦_⟧_⟶_ : Value → BinaryOperator → Value → Value → Set where
|
||||
+ : ∀ m n → (number m) ⟦ + ⟧ (number n) ⟶ number (primFloatPlus m n)
|
||||
|
|
|
@ -22,7 +22,7 @@ _⋓_ : VarCtxt → VarCtxt → VarCtxt
|
|||
_⋓_ = unionWith _∪_
|
||||
|
||||
_[_] : VarCtxt → Var → Maybe Type
|
||||
_[_] Γ x = lookup (fromString x) Γ
|
||||
Γ [ x ] = lookup (fromString x) Γ
|
||||
|
||||
_⊝_ : VarCtxt → Var → VarCtxt
|
||||
Γ ⊝ x = delete (fromString x) Γ
|
||||
|
|
Loading…
Add table
Reference in a new issue