1 files changed, 10 insertions, 12 deletions
diff --git a/source/common.elna b/source/common.elna
index 9e6a314..b6f85f1 100644
--- a/source/common.elna
+++ b/source/common.elna
@@ -21,12 +21,12 @@ proc write_s*(value: String)
 begin
   (* fwrite(cast(value.ptr: Pointer), value.length, 1u, stdout) *)
   write(1, cast(value.ptr: Pointer), cast(value.length: Int))
-end
+return
 
 proc write_z*(value: ^Char)
 begin
   write(1, cast(value: Pointer), cast(strlen(value): Int))
-end
+return
 
 proc write_b*(value: Bool)
 begin
@@ -35,13 +35,13 @@ begin
   else
     write_s("false")
   end
-end
+return
 
 proc write_c*(value: Char)
 begin
   putchar(cast(value: Int));
   fflush(nil)
-end
+return
 
 proc write_i*(value: Int)
 var
@@ -65,18 +65,17 @@ begin
     n := n + 1u;
     write_c(buffer[n])
   end
-end
+return
 
 proc write_u*(value: Word)
 begin
   write_i(cast(value: Int))
-end
+return
 
 proc free_and_nil*(pointer: Pointer): Pointer
 begin
-	free(pointer);
-	return nil
-end
+	free(pointer)
+return nil
 
 (* Returns true or false depending whether two strings  are equal. *)
 proc string_compare*(lhs_pointer: ^Char; lhs_length: Word; rhs_pointer: String): Bool
@@ -87,8 +86,7 @@ begin
 		result := memcmp(lhs_pointer, rhs_pointer.ptr, lhs_length) = 0
 	else
 		result := false
-	end;
-	return result
-end
+	end
+return result
 
 end.