From 43cd435bad3b01231d6829898ca7efda0df99ecd Mon Sep 17 00:00:00 2001 From: mainzelm Date: Mon, 29 Apr 2002 11:25:17 +0000 Subject: [PATCH] Fixed cut and paste error in with-umask-aligned. --- scsh/scsh.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scsh/scsh.scm b/scsh/scsh.scm index 3b34e77..589be74 100644 --- a/scsh/scsh.scm +++ b/scsh/scsh.scm @@ -430,7 +430,7 @@ (with-cwd-aligned* (lambda () body ...))) (define-simple-syntax (with-umask-aligned body ...) - (with-cwd-aligned* (lambda () body ...))) + (with-umask-aligned* (lambda () body ...))) (define-simple-syntax (with-umask mask . body) (with-umask* mask (lambda () . body)))