diff options
| author | Eduardo Julian | 2022-07-10 18:00:23 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-07-10 18:00:23 -0400 |
| commit | 1bbc4251230cee13d46df7b706859e834778aee0 (patch) | |
| tree | 6e9aa1b7e079ffd01041c510ac201f16a57842e9 /lux-bootstrapper/src/lux/analyser/proc/common.clj | |
| parent | 7db42ab1b9d3c764772ca63c74bf44bb2b8b8325 (diff) | |
Removed the need for ,! unquoting.
Diffstat (limited to '')
| -rw-r--r-- | lux-bootstrapper/src/lux/analyser/proc/common.clj | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/lux-bootstrapper/src/lux/analyser/proc/common.clj b/lux-bootstrapper/src/lux/analyser/proc/common.clj index 6b96be2ce..0bc113110 100644 --- a/lux-bootstrapper/src/lux/analyser/proc/common.clj +++ b/lux-bootstrapper/src/lux/analyser/proc/common.clj @@ -211,13 +211,6 @@ analyse-io-error &type/Text &type/Nothing ["io" "error"] ) -(defn- analyse-io-current-time [analyse exo-type ?values] - (|do [:let [(&/$End) ?values] - _ (&type/check exo-type &type/Int) - _location &/location] - (return (&/|list (&&/|meta exo-type _location - (&&/$proc (&/T ["io" "current-time"]) (&/|list) (&/|list))))))) - (defn- analyse-syntax-char-case! [analyse exo-type ?values] (|do [:let [(&/$Item ?input (&/$Item [_ (&/$Tuple ?pairs)] (&/$Item ?else (&/$End)))) ?values] _location &/location @@ -246,7 +239,6 @@ "lux io log" (analyse-io-log analyse exo-type ?values) "lux io error" (analyse-io-error analyse exo-type ?values) - "lux io current-time" (analyse-io-current-time analyse exo-type ?values) "lux text =" (analyse-text-eq analyse exo-type ?values) "lux text <" (analyse-text-lt analyse exo-type ?values) |