From 91f96ffcca636cfff64783c4ba82e00344981d29 Mon Sep 17 00:00:00 2001
From: Alexander Sulfrian <alexander@sulfrian.net>
Date: Tue, 12 Oct 2010 10:57:16 +0200
Subject: fixed some bugs

---
 remote.erl | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'remote.erl')

diff --git a/remote.erl b/remote.erl
index d3cf88a..793c27c 100644
--- a/remote.erl
+++ b/remote.erl
@@ -2,7 +2,7 @@
 -export([start/0, calculate/1]).
 
 rpc(C) ->
-    rechner!{self, C},
+    rechner ! {self(), C},
     receive
         {rechner,  Reply} ->
             Reply
@@ -11,13 +11,12 @@ rpc(C) ->
 loop() ->
     receive
         {From, {calculate, String}} ->
-            From ! {rechner, {calculate, calculate(String)}},
+            From ! {rechner, calc:eval(String)},
             loop()
     end.
 
-start() -> 
-    register(rechner, spawn(fun () -> loop() end)).
+start() ->
+    register(rechner, spawn(fun() -> loop() end)).
 
 calculate(String) ->
-    calc:eval(String).
-
+    rpc({calculate, String}).
-- 
cgit v1.2.3