Use arrow -> for return types

1 files changed, 3 insertions, 3 deletions

diff --git a/source/common.elna b/source/common.elna
index c5b67f8..0a50fe1 100644
--- a/source/common.elna
+++ b/source/common.elna
@@ -14,7 +14,7 @@ type
 		end_location: ElnaLocation
 	end
 
-proc write*(fd: Int; buf: Pointer; Word: Int): Int
+proc write*(fd: Int; buf: Pointer; Word: Int) -> Int
 extern
 
 proc write_s*(value: []const Word8)
@@ -72,13 +72,13 @@ begin
   write_i(cast(value: Int))
 return
 
-proc free_and_nil*(pointer: Pointer): Pointer
+proc free_and_nil*(pointer: Pointer) -> Pointer
 begin
 	free(pointer)
 return nil
 
 (* Returns true or false depending whether two strings  are equal. *)
-proc string_compare*(lhs_pointer: ^Word8; lhs_length: Word; rhs_pointer: []const Word8): Bool
+proc string_compare*(lhs_pointer: ^Word8; lhs_length: Word; rhs_pointer: []const Word8) -> Bool
 var
 	result: Bool
 begin