X-Git-Url: https://git.harvie.cz/?a=blobdiff_plain;f=demos%2Farguments1.c;h=552e983b69d7f084926917b1afd7f7f9c803392a;hb=6a60bc82e8b8e6cccd0d4c2214a1f291662215f0;hp=f92d90d1f068fd02100550d87cc122eb5c6e3fb6;hpb=96df7894a6fa368e5b333fc72896e30b471f5992;p=svn%2FCll1h%2F.git

diff --git a/demos/arguments1.c b/demos/arguments1.c
index f92d90d..552e983 100644
--- a/demos/arguments1.c
+++ b/demos/arguments1.c
@@ -4,14 +4,11 @@
 
 program
 {
- str ptr;
- 
- if_args then
+ if_args
  {
   for_args
   {
-   ptr=this_arg;
-   if (ptr[0]=='-') then
+   if this_arg[0] == '-')
    {
     printf("Command line switch: -%c ",ptr[1]);
     if (next_arg) then