Add stdio read command

1 files changed, 4 insertions, 1 deletions

diff --git a/stdio.tcl b/stdio.tcl
index a6e9f97..1a6cc47 100644
--- a/stdio.tcl
+++ b/stdio.tcl
@@ -16,7 +16,6 @@ set stdio::stderr [aio.open standard error]
 set stdio::std_channel_map [list stdin ${stdio::stdin} stdout ${stdio::stdout} stderr ${stdio::stderr}]
 
 proc stdio::std_channel {channel} {
-	global _stdmap
 	return [string map ${::stdio::std_channel_map} $channel]
 }
 
@@ -62,6 +61,10 @@ proc flush {channel} {
 	[stdio::std_channel $channel] flush
 }
 
+proc read {channel args} {
+	[stdio::std_channel $channel] read {expand}$args
+}
+
 proc seek {channel args} {
 	[stdio::std_channel $channel] seek {expand}$args
 }