;			     -*-scheme-*-

(let ((arg (string->symbol (string-upcase *-R-option-argument*)))
      (msg (string-append #"\n" *-R-option-argument* " ")))
  (hook arg 'add
      (lambda (s)
	(message 0 #"\nRunning debug on " arg)
	(list
	 (stream-dbg-watch msg s)))))
