dyoo · March 15, 2013 20:35
diff --git a/gistfile1.txt b/gistfile1.txt
 #lang racket

 (define (my-expand-path-with-env a-path-string)
  (define (lookup var)
    (getenv (substring var 1)))
  
  (regexp-replace* #px"\\$\\w+" a-path-string  lookup))

 (my-expand-path-with-env "$HOME/foo/bar")
	#lang racket

	(define (my-expand-path-with-env a-path-string)
	(define (lookup var)
	(getenv (substring var 1)))

	(regexp-replace* #px"\\$\\w+" a-path-string lookup))

	(my-expand-path-with-env "$HOME/foo/bar")