s/define-module/module/g

lib/chibi/ast.module

@@ -1,5 +1,5 @@
 
-(define-module (chibi ast)
+(module (chibi ast)
   (export
    analyze optimize env-cell ast->sexp macroexpand type-of
    <object> <opcode> <procedure> <bytecode> <macro> <env>

lib/chibi/base64.module

@@ -1,5 +1,5 @@
 
-(define-module (chibi base64)
+(module (chibi base64)
   (export base64-encode base64-encode-string
           base64-decode base64-decode-string
           base64-encode-header)

lib/chibi/disasm.module

@@ -1,5 +1,5 @@
 
-(define-module (chibi disasm)
+(module (chibi disasm)
   (export disasm)
   (import-immutable (scheme))
   (include-shared "disasm"))

lib/chibi/equiv.module

@@ -1,5 +1,5 @@
 
-(define-module (chibi equiv)
+(module (chibi equiv)
   (export equiv?)
   (import-immutable (scheme))
   (import (srfi 69))

lib/chibi/filesystem.module

@@ -1,5 +1,5 @@
 
-(define-module (chibi filesystem)
+(module (chibi filesystem)
   (export open-input-file-descriptor open-output-file-descriptor
           duplicate-file-descriptor duplicate-file-descriptor-to
           close-file-descriptor renumber-file-descriptor

lib/chibi/generic.module

@@ -1,5 +1,5 @@
 
-(define-module (chibi generic)
+(module (chibi generic)
   (export define-generic define-method make-generic generic-add!)
   (import-immutable (scheme))
   (include "generic.scm"))

lib/chibi/heap-stats.module

@@ -1,5 +1,5 @@
 
-(define-module (chibi heap-stats)
+(module (chibi heap-stats)
   (export heap-stats heap-dump)
   (import-immutable (scheme))
   (include-shared "heap-stats"))

lib/chibi/io.module

@@ -1,5 +1,5 @@
 
-(define-module (chibi io)
+(module (chibi io)
   (export read-string read-string! write-string read-line write-line
           port-fold port-fold-right port-map
           port->list port->string-list port->sexp-list port->string

lib/chibi/loop.module

@@ -1,5 +1,5 @@
 
-(define-module (chibi loop)
+(module (chibi loop)
   (export loop in-list in-lists in-port in-file up-from down-from
           listing listing-reverse appending appending-reverse
           summing multiplying in-string in-string-reverse

lib/chibi/match.module

@@ -1,5 +1,5 @@
 
-(define-module (chibi match)
+(module (chibi match)
   (export match match-lambda match-lambda* match-let match-letrec match-let*)
   (import-immutable (scheme))
   (include "match/match.scm"))

lib/chibi/modules.module

@@ -1,5 +1,5 @@
 
-(define-module (chibi modules)
+(module (chibi modules)
   (export analyze-module module-ast module-ast-set!
           module-ref module-contains? containing-module
           procedure-analysis)

lib/chibi/net.module

@@ -1,5 +1,5 @@
 
-(define-module (chibi net)
+(module (chibi net)
   (export sockaddr? address-info? get-address-info
           socket connect bind accept listen
           with-net-io open-net-io

lib/chibi/pathname.module

@@ -1,5 +1,5 @@
 
-(define-module (chibi pathname)
+(module (chibi pathname)
   (export path-strip-directory path-directory path-extension-pos
           path-extension path-strip-extension path-replace-extension
           path-absolute? path-relative? path-normalize make-path)

lib/chibi/process.module

@@ -1,5 +1,5 @@
 
-(define-module (chibi process)
+(module (chibi process)
   (export exit sleep alarm fork kill execute waitpid system
           process-command-line  process-running?
           set-signal-action! make-signal-set signal-set-contains?

lib/chibi/quoted-printable.module

@@ -1,5 +1,5 @@
 
-(define-module (chibi quoted-printable)
+(module (chibi quoted-printable)
   (export quoted-printable-encode quoted-printable-encode-string
           quoted-printable-encode-header
           quoted-printable-decode quoted-printable-decode-string)

lib/chibi/repl.module

@@ -1,5 +1,5 @@
 
-(define-module (chibi repl)
+(module (chibi repl)
   (export repl)
   (import-immutable (scheme))
   (import (chibi ast)

lib/chibi/scribble.module

@@ -1,5 +1,5 @@
 
-(define-module (chibi scribble)
+(module (chibi scribble)
   (export scribble-parse scribble-read)
   (import-immutable (scheme))
   (include "scribble.scm"))

lib/chibi/stty.module

@@ -1,5 +1,5 @@
 
-(define-module (chibi stty)
+(module (chibi stty)
   (export stty with-stty with-raw-io
           get-terminal-width get-terminal-dimensions
           TCSANOW TCSADRAIN TCSAFLUSH)

lib/chibi/system.module

@@ -1,5 +1,5 @@
 
-(define-module (chibi system)
+(module (chibi system)
   (export user-information user? user-name user-password
           user-id user-group-id user-gecos user-home user-shell
           current-user-id current-group-id

lib/chibi/term/edit-line.module

@@ -1,5 +1,5 @@
 
-(define-module (chibi term edit-line)
+(module (chibi term edit-line)
   (export edit-line edit-line-repl make-history history-insert! history-commit!
           buffer->string)
   (import-immutable (scheme) (chibi stty) (srfi 9))

lib/chibi/test.module

@@ -1,5 +1,5 @@
 
-(define-module (chibi test)
+(module (chibi test)
   (export
    test test-error test-assert test-not test-values
    test-group current-test-group

lib/chibi/time.module

@@ -1,5 +1,5 @@
 
-(define-module (chibi time)
+(module (chibi time)
   (export current-seconds get-time-of-day set-time-of-day!
           seconds->time seconds->string time->seconds time->string
           timeval-seconds timeval-microseconds

lib/chibi/uri.module

@@ -1,5 +1,5 @@
 
-(define-module (chibi uri)
+(module (chibi uri)
   (export uri? uri->string make-uri string->uri
           uri-scheme uri-user uri-host uri-port uri-path uri-query uri-fragment
           uri-with-scheme uri-with-user uri-with-host uri-with-path

lib/chibi/weak.module

@@ -1,5 +1,5 @@
 
-(define-module (chibi weak)
+(module (chibi weak)
   (export make-ephemeron ephemeron? ephemeron-broken?
           ephemeron-key ephemeron-value
           make-weak-vector weak-vector? weak-vector-length

lib/srfi/1.module

@@ -1,5 +1,5 @@
 
-(define-module (srfi 1)
+(module (srfi 1)
   (export
    xcons cons* make-list list-tabulate list-copy circular-list iota
    proper-list? circular-list? dotted-list? not-pair? null-list? list=

lib/srfi/11.module

@@ -1,8 +1,8 @@
 
-(define-module (srfi 11)
+(module (srfi 11)
   (export let-values let*-values)
   (import-immutable (scheme))
-  (body
+  (begin
    (define-syntax let*-values
      (syntax-rules ()
        ((let*-values () . body)

lib/srfi/16.module

@@ -1,8 +1,8 @@
 
-(define-module (srfi 16)
+(module (srfi 16)
   (export case-lambda)
   (import-immutable (scheme))
-  (body
+  (begin
    (define-syntax %case
      (syntax-rules ()
        ((%case args len n p ((params ...) . body) . rest)

lib/srfi/18.module

@@ -1,5 +1,5 @@
 
-(define-module (srfi 18)
+(module (srfi 18)
   (export
    current-thread thread? make-thread thread-name
    thread-specific thread-specific-set! thread-start!

lib/srfi/2.module

@@ -1,8 +1,8 @@
 
-(define-module (srfi 2)
+(module (srfi 2)
   (export and-let*)
   (import-immutable (scheme))
-  (body
+  (begin
    (define-syntax and-let*
      (syntax-rules ()
        ((and-let* () . body)

lib/srfi/26.module

@@ -1,8 +1,8 @@
 
-(define-module (srfi 26)
+(module (srfi 26)
   (export cut cute)
   (import-immutable (scheme))
-  (body
+  (begin
    (define-syntax %cut
      (syntax-rules (<> <...>)
        ((%cut e? params args)

lib/srfi/27.module

@@ -1,5 +1,5 @@
 
-(define-module (srfi 27)
+(module (srfi 27)
   (export random-integer random-real default-random-source
           make-random-source random-source?
           random-source-state-ref random-source-state-set!

lib/srfi/33.module

@@ -1,5 +1,5 @@
 
-(define-module (srfi 33)
+(module (srfi 33)
   (export bitwise-not
           bitwise-and   bitwise-ior 
           bitwise-xor   bitwise-eqv

lib/srfi/38.module

@@ -1,5 +1,5 @@
 
-(define-module (srfi 38)
+(module (srfi 38)
   (import-immutable (scheme))
   (export write-with-shared-structure write/ss
           read-with-shared-structure read/ss)

lib/srfi/39.module

@@ -1,5 +1,5 @@
 
-(define-module (srfi 39)
+(module (srfi 39)
   (export make-parameter parameterize)
   (import-immutable (scheme))
   (include-shared "39/param")

lib/srfi/55.module

@@ -1,8 +1,8 @@
 
-(define-module (srfi 55)
+(module (srfi 55)
   (export require-extension)
   (import-immutable (scheme))
-  (body
+  (begin
    (define-syntax require-extension
      (syntax-rules ()
        ((require-extension (prefix mod ...))

lib/srfi/6.module

@@ -1,5 +1,5 @@
 
-(define-module (srfi 6)
+(module (srfi 6)
   (export open-input-string open-output-string get-output-string)
   (import-immutable (scheme)))
 

lib/srfi/69.module

@@ -1,5 +1,5 @@
 
-(define-module (srfi 69)
+(module (srfi 69)
   (export
    make-hash-table hash-table? alist->hash-table
    hash-table-equivalence-function hash-table-hash-function

lib/srfi/8.module

@@ -1,5 +1,5 @@
 
-(define-module (srfi 8)
+(module (srfi 8)
   (export receive)
   (import-immutable (scheme))
   (body

lib/srfi/9.module

@@ -1,5 +1,5 @@
 
-(define-module (srfi 9)
+(module (srfi 9)
   (export define-record-type)
   (import-immutable (scheme))
   (include "9.scm"))

lib/srfi/95.module

@@ -1,5 +1,5 @@
 
-(define-module (srfi 95)
+(module (srfi 95)
   (export sorted? merge merge! sort sort! object-cmp)
   (import-immutable (scheme))
   (include-shared "95/qsort")

lib/srfi/98.module

@@ -1,5 +1,5 @@
 
-(define-module (srfi 98)
+(module (srfi 98)
   (export get-environment-variable get-environment-variables)
   (include-shared "98/env"))
 

lib/srfi/99.module

@@ -1,5 +1,5 @@
 
-(define-module (srfi 99)
+(module (srfi 99)
   (import (srfi 99 records))
   (export make-rtd rtd? rtd-constructor rtd-predicate rtd-accessor rtd-mutator
           record? record-rtd rtd-name rtd-parent