;;; (define d (expand-file-name "~/.tmp"))
;;; 
;;; (makefile
;;;  (makefile-rule (expand-file-name "skills.tex" d)
;;; 		()
;;; 		(lambda ()
;;; 		  (with-cwd d (display "Top: skills.tex"))))
;;;  (makefile-rule (expand-file-name "skills.dvi" d)
;;; 		(expand-file-name "skills.tex" d)
;;; 		(lambda ()
;;; 		  (with-cwd d
;;; 			    (run (latex ,(expand-file-name "skills.tex" d))))))
;;;  (makefile-rule (expand-file-name "skills.pdf" d)
;;; 		(expand-file-name "skills.dvi" d)
;;; 		(lambda ()
;;; 		  (with-cwd d (run 
;;; 			       (dvipdfm -o 
;;; 					,(expand-file-name "skills.pdf" d)
;;; 					,(expand-file-name "skills.dvi" d)))))))
;;; 
;;; (make (expand-file-name "skills.pdf" d) "this is an empty init-state")

(makefile
 (makefile-rule "/home/bruegman/.tmp/skills.tex"
		()
		(lambda ()
		  (with-cwd "/home/bruegman/.tmp"
			    (display "Top: /home/bruegman/.tmp/skills.tex"))))
 (makefile-rule "/home/bruegman/.tmp/skills.dvi"
		("/home/bruegman/.tmp/skills.tex")
		(lambda ()
		  (with-cwd "/home/bruegman/.tmp"
			    (run (latex   ,"/home/bruegman/.tmp/skills.tex")))))
 (makefile-rule "/home/bruegman/.tmp/skills.pdf"
		("/home/bruegman/.tmp/skills.dvi")
		(lambda ()
		  (with-cwd "/home/bruegman/.tmp"
			    (run (dvipdfm -o ,"/home/bruegman/.tmp/skills.pdf"
					  ,"/home/bruegman/.tmp/skills.dvi"))))))

(make "/home/bruegman/.tmp/skills.pdf" "this is an empty init-state...")