Strip outmost constness on infered arguments

1 files changed, 0 insertions, 11 deletions

diff --git a/source/common.elna b/source/common.elna
index e31def8..4579a67 100644
--- a/source/common.elna
+++ b/source/common.elna
@@ -18,18 +18,14 @@ proc write*(fd: Int; buf: Pointer; Word: Int) -> Int
 extern
 
 proc write_s*(value: []const Word8)
-begin
-  (* fwrite(cast(value.ptr: Pointer), value.length, 1u, stdout) *)
   write(1, cast(value.ptr: Pointer), cast(value.length: Int))
 return
 
 proc write_z*(value: ^Word8)
-begin
   write(1, cast(value: Pointer), cast(strlen(value): Int))
 return
 
 proc write_b*(value: Bool)
-begin
   if value then
     write_s("true")
   else
@@ -38,7 +34,6 @@ begin
 return
 
 proc write_c*(value: Word8)
-begin
   putchar(cast(value: Int));
   fflush(nil)
 return
@@ -68,15 +63,9 @@ begin
 return
 
 proc write_u*(value: Word)
-begin
   write_i(cast(value: Int))
 return
 
-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
 var