gs)
  "option [NAME] [EXP]
List/show/set options."
  (pmatch args
    (()
     (for-each (lambda (spec)
		 (format #t "  ~A~24t~A\n" (car spec) (cadr spec)))
	       (repl-options repl)))
    ((,name)
     (display (repl-option-ref repl name))
     (newline))
    ((,name ,exp)
     ;; Would be nice to evaluate in the current language, but the REPL
     ;; option parser doesn't permit that, currently.
     (repl-option-set! repl name (eval exp (current-module))))))

(define-meta-command (quit repl)
  "quit
Quit this session."
  (throw 'quit))

