@@ -17,14 +17,23 @@
 
 
 (declare (unit margs))
 ;; (declare (uses common))
 
-(import chicken.process-context
-	srfi-1
-	srfi-69
-	)
+(module margs
+	*
+	
+(import
+ scheme
+ chicken.base
+ chicken.process-context
+ srfi-1
+ srfi-69
+ 
+ )
+
+(define help #f)
 
 (define args:arg-hash (make-hash-table))
 
 (define (args:get-arg arg . default)
   (if (null? default)
@@ -94,5 +103,6 @@
 (define (args:print-args remargs arg-hash)
   (print "ARGS: " remargs)
   (for-each (lambda (arg)
 	      (print "   " arg "   " (hash-table-ref/default arg-hash arg #f)))
 	    (hash-table-keys arg-hash)))
+)