Author: iratqq Date: Fri Feb 13 00:52:56 2009 New Revision: 5846
Modified: trunk/scm/socket.scm Log: * scm/socket.scm: - Add module-load guard. Modified: trunk/scm/socket.scm ============================================================================== --- trunk/scm/socket.scm (original) +++ trunk/scm/socket.scm Fri Feb 13 00:52:56 2009 @@ -32,7 +32,9 @@ (require-extension (srfi 1 2 9)) (use util) (require "fileio.scm") -(module-load "socket") +(and (not (provided? "socket")) + (module-load "socket") + (provide "socket")) (define addrinfo-ai-flags-alist (addrinfo-ai-flags-alist?)) (define addrinfo-ai-family-alist (addrinfo-ai-family-alist?))
