From 1623ca68496be7ae8d07901e5537ad308595c140 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 22 Jun 2010 21:47:15 +0200 Subject: [PATCH] more aspiration in boot-9 * module/ice-9/boot-9.scm: Spacing fixes for local-ref et al. --- module/ice-9/boot-9.scm | 23 +++++++++++++++++------ 1 file changed, 17 insertions(+), 6 deletions(-) diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index 987a4deb4..f4b1fd672 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -2082,12 +2082,23 @@ If there is no handler at all, Guile prints an error and then exits." (loop cur (car tail) (cdr tail))))))) -(define (local-ref names) (nested-ref (current-module) names)) -(define (local-set! names val) (nested-set! (current-module) names val)) -(define (local-define names val) (nested-define! (current-module) names val)) -(define (local-remove names) (nested-remove! (current-module) names)) -(define (local-ref-module names) (nested-ref-module (current-module) names)) -(define (local-define-module names mod) (nested-define-module! (current-module) names mod)) +(define (local-ref names) + (nested-ref (current-module) names)) + +(define (local-set! names val) + (nested-set! (current-module) names val)) + +(define (local-define names val) + (nested-define! (current-module) names val)) + +(define (local-remove names) + (nested-remove! (current-module) names)) + +(define (local-ref-module names) + (nested-ref-module (current-module) names)) + +(define (local-define-module names mod) + (nested-define-module! (current-module) names mod))