This is the mail archive of the guile@cygnus.com mailing list for the guile project.
Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
---|---|---|
Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |
> What happens if... > > (define (go-to-foo-module) > (module "foo")) Yep. Thanks. (define set-current-module! (lambda (str) (let ((hash (module-find str))) (if (not hash) (error "module not defined") (set-current-obarray! hash))))) (define module (lambda (str) (let* ((hash (module-new str))) (set-current-obarray! hash)))) Jost