Langify scribble modules

scribble-lib/scribble/bnf.rkt

@@ -1,4 +1,5 @@
-(module bnf racket
+#lang racket
+
 (require scribble/decode
          (except-in scribble/struct
                     element?)
@@ -118,4 +119,4 @@
   (make-element #f (append (decode-content s)
                            (list (make-element 'roman
                                                (make-element 'superscript
-                                                               (list (format "{~a,~a}" a b)))))))))
+                                                             (list (format "{~a,~a}" a b))))))))

scribble-lib/scribble/comment-reader.rkt

@@ -1,4 +1,5 @@
-(module comment-reader scheme/base
+#lang scheme/base
+
 (require (only-in racket/port peeking-input-port))
 
 (provide (rename-out [*read read]
@@ -80,4 +81,4 @@
         (append (preserve-space (substring s 0 (caar m)))
                 (list `(hspace ,(- (cdar m) (caar m))))
                 (preserve-space (substring s (cdar m))))
-          (list s)))))
+        (list s))))

scribble-lib/scribble/config.rkt

@@ -1,6 +1,5 @@
-
-(module config mzscheme
+#lang mzscheme
 
 (provide value-color)
 
-  (define value-color "schemevalue"))
+(define value-color "schemevalue")

scribble-lib/scribble/racket.rkt

@@ -1,4 +1,5 @@
-(module racket racket/base
+#lang racket/base
+
 (require "core.rkt"
          "basic.rkt"
          "search.rkt"
@@ -1379,4 +1380,4 @@
                               (max 1 (- (syntax-position pairs) undelta))
                               (+ (syntax-span pairs) undelta))))]
     [else
-      (datum->syntax #f v (vector #f line col (+ 1 col) 1))])))
+     (datum->syntax #f v (vector #f line col (+ 1 col) 1))]))

scribble-lib/scribble/search.rkt

@@ -1,4 +1,5 @@
-(module search racket/base
+#lang racket/base
+
 (require "struct.rkt"
          "basic.rkt"
          syntax/modcode)
@@ -184,4 +185,4 @@
                                    ;; Can't get the module source, so continue with queue:
                                    (loop queue rqueue need-result?)))])
                       (or here-result
-                           nest-result))))))])))))))
+                          nest-result))))))]))))))