some work, unfinished

git-svn-id: https://dev.arachne.cz/repos/cll1h/trunk@86 4bb87942-c103-4e5a-b51c-0ebff58f8515

diff --git a/demos/arguments1.c b/demos/arguments1.c
index f92d90d1f068fd02100550d87cc122eb5c6e3fb6..552e983b69d7f084926917b1afd7f7f9c803392a 100644 (file)
--- 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