mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

more aspiration in boot-9

Browse source 
* module/ice-9/boot-9.scm: Spacing fixes for local-ref et al.
This commit is contained in:
Andy Wingo 2010-06-22 21:47:15 +02:00
parent ec0f307ee9
commit 1623ca6849
1 changed files with 17 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

23
module/ice-9/boot-9.scm
View file

@ -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))