diff options
author | Eduardo Julian | 2015-09-30 16:44:42 -0400 |
---|---|---|
committer | Eduardo Julian | 2015-09-30 16:44:42 -0400 |
commit | 1ff2c6ced65171a68ef761275a75ba4dc56caf7b (patch) | |
tree | b48cae02fb1276554a619a87484bf161a4ea1498 /source/program.lux | |
parent | 57ed0ef20db8f6ae926c1f7580f5bfa26928612b (diff) |
- Changed the license in the project.clj file (had forgotten until now).
- Some minor updates to the standard library.
- Some minor bug fixes & improvements.
- program.lux has been removed.
Diffstat (limited to 'source/program.lux')
-rw-r--r-- | source/program.lux | 56 |
1 files changed, 0 insertions, 56 deletions
diff --git a/source/program.lux b/source/program.lux deleted file mode 100644 index f013655bc..000000000 --- a/source/program.lux +++ /dev/null @@ -1,56 +0,0 @@ -## Copyright (c) Eduardo Julian. All rights reserved. -## This Source Code Form is subject to the terms of the Mozilla Public License, v. 2.0. -## If a copy of the MPL was not distributed with this file, -## You can obtain one at http://mozilla.org/MPL/2.0/. - -(;import lux - (lux (control (monoid #as m) - functor - monad - comonad - bounded - eq - hash - (ord #as O) - (show #as S) - number - enum) - (data bool - char - (either #as e) - id - list - maybe - (number (int #refer (#only) #open ("i:" Int/Show)) - (real #refer (#only))) - (text #refer (#only <>) #open ("text:" Text/Monoid)) - (writer #refer (#only)) - (tuple #refer (#only)) - ) - (codata (stream #as s) - (lazy #refer (#only)) - (function #refer (#only)) - (reader #as r) - (state #refer (#only)) - io) - (host jvm - io) - (meta ast - lux - syntax - type) - math - )) - -(program args - (case args - (\ (@list name)) - (write-line (<> "Hello, #{name}!")) - - _ - (do IO/Monad - [_ (write "Please, tell me your name: ") - name' read-line - #let [name (? "???" name')]] - (write-line (<> "Hello, #{name}!"))) - )) |