Remove Current.gas from LIGO
This commit is contained in:
parent
902e958205
commit
953e91bc54
@ -154,8 +154,6 @@ module Simplify = struct
|
|||||||
| "time" -> ok C_NOW
|
| "time" -> ok C_NOW
|
||||||
| "Current.amount" -> ok C_AMOUNT
|
| "Current.amount" -> ok C_AMOUNT
|
||||||
| "amount" -> ok C_AMOUNT
|
| "amount" -> ok C_AMOUNT
|
||||||
| "Current.gas" -> ok C_STEPS_TO_QUOTA
|
|
||||||
| "gas" -> ok C_STEPS_TO_QUOTA
|
|
||||||
| "Current.sender" -> ok C_SENDER
|
| "Current.sender" -> ok C_SENDER
|
||||||
| "Current.address" -> ok C_ADDRESS
|
| "Current.address" -> ok C_ADDRESS
|
||||||
| "Current.self_address" -> ok C_SELF_ADDRESS
|
| "Current.self_address" -> ok C_SELF_ADDRESS
|
||||||
|
@ -146,7 +146,6 @@ let constant ppf : constant' -> unit = function
|
|||||||
| C_SELF_ADDRESS -> fprintf ppf "SELF_ADDRESS"
|
| C_SELF_ADDRESS -> fprintf ppf "SELF_ADDRESS"
|
||||||
| C_IMPLICIT_ACCOUNT -> fprintf ppf "IMPLICIT_ACCOUNT"
|
| C_IMPLICIT_ACCOUNT -> fprintf ppf "IMPLICIT_ACCOUNT"
|
||||||
| C_SET_DELEGATE -> fprintf ppf "SET_DELEGATE"
|
| C_SET_DELEGATE -> fprintf ppf "SET_DELEGATE"
|
||||||
| C_STEPS_TO_QUOTA -> fprintf ppf "STEPS_TO_QUOTA"
|
|
||||||
|
|
||||||
let literal ppf (l : literal) =
|
let literal ppf (l : literal) =
|
||||||
match l with
|
match l with
|
||||||
|
@ -288,4 +288,3 @@ and constant' =
|
|||||||
| C_SELF_ADDRESS
|
| C_SELF_ADDRESS
|
||||||
| C_IMPLICIT_ACCOUNT
|
| C_IMPLICIT_ACCOUNT
|
||||||
| C_SET_DELEGATE
|
| C_SET_DELEGATE
|
||||||
| C_STEPS_TO_QUOTA
|
|
||||||
|
@ -241,7 +241,6 @@ and constant ppf : constant' -> unit = function
|
|||||||
| C_ADDRESS -> fprintf ppf "ADDRESS"
|
| C_ADDRESS -> fprintf ppf "ADDRESS"
|
||||||
| C_SELF_ADDRESS -> fprintf ppf "SELF_ADDRESS"
|
| C_SELF_ADDRESS -> fprintf ppf "SELF_ADDRESS"
|
||||||
| C_IMPLICIT_ACCOUNT -> fprintf ppf "IMPLICIT_ACCOUNT"
|
| C_IMPLICIT_ACCOUNT -> fprintf ppf "IMPLICIT_ACCOUNT"
|
||||||
| C_STEPS_TO_QUOTA -> fprintf ppf "STEPS_TO_QUOTA"
|
|
||||||
| C_SET_DELEGATE -> fprintf ppf "SET_DELEGATE"
|
| C_SET_DELEGATE -> fprintf ppf "SET_DELEGATE"
|
||||||
|
|
||||||
let%expect_test _ =
|
let%expect_test _ =
|
||||||
|
Loading…
Reference in New Issue
Block a user