Permalink
Browse files

Towards interpreting client commands

  • Loading branch information...
1 parent e4c4284 commit 915266ae5f35bf26d435a212653a20e579920cb5 @apauley committed Dec 17, 2009
@@ -0,0 +1 @@
+mire.el
@@ -16,7 +16,7 @@
*out* (writer out)]
(print-prompt)
(loop [input (read-line)]
- (println input)
+ (println (execute input))
(print-prompt)
(recur (read-line)))))
@@ -0,0 +1,4 @@
+(ns mire.commands)
+
+(defn execute [input]
+ (str "The input: " input " :"))

0 comments on commit 915266a

Please sign in to comment.