From 708af9f00fdf5ccba19b1ca81c835dba14e1b83d Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Tue, 3 Dec 2013 22:29:35 +0900 Subject: [PATCH] untabify --- piclib/built-in.scm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/piclib/built-in.scm b/piclib/built-in.scm index 6f6ee163..35c0188c 100644 --- a/piclib/built-in.scm +++ b/piclib/built-in.scm @@ -607,16 +607,16 @@ (lambda (expr use-env mac-env) (let ((wrapped '())) (define (inject obj) - (let ((s (make-syntactic-closure use-env '() obj))) - (set! wrapped (acons s obj wrapped)) - s)) + (let ((s (make-syntactic-closure use-env '() obj))) + (set! wrapped (acons s obj wrapped)) + s)) (define (extract obj) - (let ((t (assq obj wrapped))) - (if t (cdr t) obj))) + (let ((t (assq obj wrapped))) + (if t (cdr t) obj))) (define (wrap expr) - (walk inject expr)) + (walk inject expr)) (define (unwrap expr) - (walk extract expr)) + (walk extract expr)) (define (compare x y) - (identifier=? use-env x use-env y)) + (identifier=? use-env x use-env y)) (make-syntactic-closure mac-env '() (unwrap (f (wrap expr) inject compare))))))