mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 20:30:28 +02:00
Code Activity

untabify process-define-module

Browse source 
* ice-9/boot-9.scm (process-define-module): Untabify.
This commit is contained in:
Andy Wingo 2008-09-12 17:59:59 +02:00
parent 709f95afcd
commit 1b92d94c88
1 changed files with 76 additions and 76 deletions
Download patch file Download diff file Expand all files Collapse all files

152
ice-9/boot-9.scm
View file

@ -1984,98 +1984,98 @@
(error "unrecognized define-module argument" arg)))) (error "unrecognized define-module argument" arg))))
(beautify-user-module! module) (beautify-user-module! module)
(let loop ((kws kws) (let loop ((kws kws)
(reversed-interfaces '()) (reversed-interfaces '())
(exports '()) (exports '())
(re-exports '()) (re-exports '())
(replacements '()) (replacements '())
(autoloads '())) (autoloads '()))
(if (null? kws) (if (null? kws)
(call-with-deferred-observers (call-with-deferred-observers
(lambda () (lambda ()
(module-use-interfaces! module (reverse reversed-interfaces)) (module-use-interfaces! module (reverse reversed-interfaces))
(module-export! module exports) (module-export! module exports)
(module-replace! module replacements) (module-replace! module replacements)
(module-re-export! module re-exports) (module-re-export! module re-exports)
(if (not (null? autoloads)) (if (not (null? autoloads))
(apply module-autoload! module autoloads)))) (apply module-autoload! module autoloads))))
(case (car kws) (case (car kws)
((#:use-module #:use-syntax) ((#:use-module #:use-syntax)
(or (pair? (cdr kws)) (or (pair? (cdr kws))
(unrecognized kws)) (unrecognized kws))
(let* ((interface-args (cadr kws)) (let* ((interface-args (cadr kws))
(interface (apply resolve-interface interface-args))) (interface (apply resolve-interface interface-args)))
(and (eq? (car kws) #:use-syntax) (and (eq? (car kws) #:use-syntax)
(or (symbol? (caar interface-args)) (or (symbol? (caar interface-args))
(error "invalid module name for use-syntax" (error "invalid module name for use-syntax"
(car interface-args))) (car interface-args)))
(set-module-transformer! (set-module-transformer!
module module
(module-ref interface (module-ref interface
(car (last-pair (car interface-args))) (car (last-pair (car interface-args)))
#f))) #f)))
(loop (cddr kws) (loop (cddr kws)
(cons interface reversed-interfaces) (cons interface reversed-interfaces)
exports exports
re-exports re-exports
replacements replacements
autoloads))) autoloads)))
((#:autoload) ((#:autoload)
(or (and (pair? (cdr kws)) (pair? (cddr kws))) (or (and (pair? (cdr kws)) (pair? (cddr kws)))
(unrecognized kws)) (unrecognized kws))
(loop (cdddr kws) (loop (cdddr kws)
reversed-interfaces reversed-interfaces
exports exports
re-exports re-exports
replacements replacements
(let ((name (cadr kws)) (let ((name (cadr kws))
(bindings (caddr kws))) (bindings (caddr kws)))
(cons* name bindings autoloads)))) (cons* name bindings autoloads))))
((#:no-backtrace) ((#:no-backtrace)
(set-system-module! module #t) (set-system-module! module #t)
(loop (cdr kws) reversed-interfaces exports re-exports (loop (cdr kws) reversed-interfaces exports re-exports
replacements autoloads)) replacements autoloads))
((#:pure) ((#:pure)
(purify-module! module) (purify-module! module)
(loop (cdr kws) reversed-interfaces exports re-exports (loop (cdr kws) reversed-interfaces exports re-exports
replacements autoloads)) replacements autoloads))
((#:duplicates) ((#:duplicates)
(if (not (pair? (cdr kws))) (if (not (pair? (cdr kws)))
(unrecognized kws)) (unrecognized kws))
(set-module-duplicates-handlers! (set-module-duplicates-handlers!
module module
(lookup-duplicates-handlers (cadr kws))) (lookup-duplicates-handlers (cadr kws)))
(loop (cddr kws) reversed-interfaces exports re-exports (loop (cddr kws) reversed-interfaces exports re-exports
replacements autoloads)) replacements autoloads))
((#:export #:export-syntax) ((#:export #:export-syntax)
(or (pair? (cdr kws)) (or (pair? (cdr kws))
(unrecognized kws)) (unrecognized kws))
(loop (cddr kws) (loop (cddr kws)
reversed-interfaces reversed-interfaces
(append (cadr kws) exports) (append (cadr kws) exports)
re-exports re-exports
replacements replacements
autoloads)) autoloads))
((#:re-export #:re-export-syntax) ((#:re-export #:re-export-syntax)
(or (pair? (cdr kws)) (or (pair? (cdr kws))
(unrecognized kws)) (unrecognized kws))
(loop (cddr kws) (loop (cddr kws)
reversed-interfaces reversed-interfaces
exports exports
(append (cadr kws) re-exports) (append (cadr kws) re-exports)
replacements replacements
autoloads)) autoloads))
((#:replace #:replace-syntax) ((#:replace #:replace-syntax)
(or (pair? (cdr kws)) (or (pair? (cdr kws))
(unrecognized kws)) (unrecognized kws))
(loop (cddr kws) (loop (cddr kws)
reversed-interfaces reversed-interfaces
exports exports
re-exports re-exports
(append (cadr kws) replacements) (append (cadr kws) replacements)
autoloads)) autoloads))
(else (else
(unrecognized kws))))) (unrecognized kws)))))
(run-hook module-defined-hook module) (run-hook module-defined-hook module)
module)) module))