Rework generics for parameters to be plain types

1 files changed, 3 insertions, 3 deletions

diff --git a/source/common.elna b/source/common.elna
index 4579a67..428c4ec 100644
--- a/source/common.elna
+++ b/source/common.elna
@@ -14,15 +14,15 @@ type
 		end_location: ElnaLocation
 	end
 
-proc write*(fd: Int; buf: Pointer; Word: Int) -> Int
+proc write*#[T](fd: Int; buf: ^const T; size: Word) -> Int
 extern
 
 proc write_s*(value: []const Word8)
-  write(1, cast(value.ptr: Pointer), cast(value.length: Int))
+  write(1, value.ptr, value.length)
 return
 
 proc write_z*(value: ^Word8)
-  write(1, cast(value: Pointer), cast(strlen(value): Int))
+  write(1, value, strlen(value))
 return
 
 proc write_b*(value: Bool)