#lang scheme/base

(require (planet chongkai/sml/ml-package))

(provide CommandLine-struct)

(define-package CommandLine-struct (name arguments)
  
  (define (name _)
    (path->string
     (find-system-path 'run-file)))
  
  (define (arguments _)
    (vector->list (current-command-line-arguments))))