1 files changed, 2 insertions, 5 deletions
diff --git a/04/in04 b/04/in04
index 2b85900..339355e 100644
--- a/04/in04
+++ b/04/in04
@@ -15,8 +15,7 @@ function strlen
 	local p
 	p = s
 	:strlen_loop
-		c = *1p
-		if c == 0 goto strlen_loop_end
+		if *1p == 0 goto strlen_loop_end
 		p += 1
 		goto strlen_loop
 	:strlen_loop_end
@@ -24,9 +23,7 @@ function strlen
 
 function putc
 	argument c
-	local p
-	p = &c
-	syscall(1, 1, p, 1)
+	syscall(1, 1, &c, 1)
 	return
 
 function puts