File: watch

package info (click to toggle)
sdc 1.0.8beta-8
  • links: PTS
  • area: contrib
  • in suites: slink
  • size: 1,400 kB
  • ctags: 874
  • sloc: lisp: 8,120; ansic: 967; makefile: 671; perl: 136; sh: 50
file content (9 lines) | stat: -rw-r--r-- 262 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
 
;			     -*-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)))))