diff options
Diffstat (limited to 'module/hnh/util.scm')
| -rw-r--r-- | module/hnh/util.scm | 23 |
1 files changed, 1 insertions, 22 deletions
diff --git a/module/hnh/util.scm b/module/hnh/util.scm index c4282bf6..49fd6ebb 100644 --- a/module/hnh/util.scm +++ b/module/hnh/util.scm @@ -8,7 +8,7 @@ #:export (for sort* sort*! set/r! -> ->> set set-> aif awhen - let-lazy let-env + let-lazy case* and=>> label print-and-return @@ -558,27 +558,6 @@ - -(define-syntax let-env - (syntax-rules () - [(_ ((name value) ...) - body ...) - - (let ((env-pairs #f)) - (dynamic-wind - (lambda () - (set! env-pairs - (map (lambda (n new-value) - (list n new-value (getenv n))) - (list (symbol->string (quote name)) ...) - (list value ...))) - (for-each (lambda (pair) (setenv (car pair) (cadr pair))) - env-pairs)) - (lambda () body ...) - (lambda () - (for-each (lambda (pair) (setenv (car pair) (caddr pair))) - env-pairs))))])) - (define-syntax catch* (syntax-rules () ((_ thunk (key handler)) |