diff options
| author | Joel Martin <github@martintribe.org> | 2015-02-16 01:50:04 -0600 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2015-02-24 09:17:45 -0600 |
| commit | 8cfab77665957e8b26935e2b1690f65585273a09 (patch) | |
| tree | 618f09b70daef9e7f675df27d6daa7d9b75a1c84 /miniMAL/stepA_interop.json | |
| parent | ad28cf3cb19d91399c52149d798f6c6efb780a51 (diff) | |
| download | mal-8cfab77665957e8b26935e2b1690f65585273a09.tar.gz mal-8cfab77665957e8b26935e2b1690f65585273a09.zip | |
miniMAL: self-hosting! Add atoms. Fix malfunc.
- refactor malfunc to use objects like others.
Diffstat (limited to 'miniMAL/stepA_interop.json')
| -rw-r--r-- | miniMAL/stepA_interop.json | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/miniMAL/stepA_interop.json b/miniMAL/stepA_interop.json index 44dc33b..2181d30 100644 --- a/miniMAL/stepA_interop.json +++ b/miniMAL/stepA_interop.json @@ -161,7 +161,7 @@ ["rep", ["`", "(defmacro! or (fn* (& xs) (if (empty? xs) nil (if (= 1 (count xs)) (first xs) `(let* (or_FIXME ~(first xs)) (if or_FIXME or_FIXME (or ~@(rest xs))))))))"]], ["if", ["not", ["empty?", "*ARGV*"]], - ["rep", ["str", ["`", "(load-file \""], ["get", "*ARGV*", 0], ["`", "\")"]]], + ["println", ["rep", ["str", ["`", "(load-file \""], ["get", "*ARGV*", 0], ["`", "\")"]]]], ["do", ["rep", ["`", "(println (str \"Mal [\" *host-language* \"]\"))"]], ["repl", ["`", "user> "], "rep"]]], |