Moved hyper-literate/typed to hyper-literate, as it is now parameterizable.

lang.rkt

@@ -1,8 +1,8 @@
 #lang racket/base
 ;; Forked from scribble-lib/scribble/lp/lang/lang2.rkt
-(require "common.rkt")
+(require "private/common.rkt")
 
-(provide (except-out (all-from-out "common.rkt")
+(provide (except-out (all-from-out "private/common.rkt")
                      module-begin/plain
                      module-begin/doc)
          (rename-out [module-begin/doc #%module-begin]))

lang/reader.rkt

@@ -1,7 +1,7 @@
 #lang s-exp syntax/module-reader
 ;; Forked from scribble-lib/scribble/lp/lang/reader.rkt
 
-hyper-literate/typed/lang/lang
+hyper-literate/lang
 
 #:read read-inside
 #:read-syntax read-syntax-inside

private/common.rkt

@@ -126,7 +126,6 @@
 (define-syntax-parameter mbeg #'#%module-begin)
 
 (require (only-in typed/racket)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; WORKAROUND
-;(dynamic-require 'typed/racket 0)
 
 (define-for-syntax ((make-module-begin submod?) stx)
   (syntax-case stx ()
@@ -138,7 +137,7 @@
        (define lang-sym
          (string->symbol (regexp-replace "^ " (syntax-e #'lang) "")))
        (let ([expanded 
-              (expand `(,#'module scribble-lp-tmp-name hyper-literate/typed/private/lp
+              (expand `(,#'module scribble-lp-tmp-name hyper-literate/private/lp
                                   (define-syntax-rule (if-preexpanding a b) a)
                                   (define-syntax-rule (when-preexpanding . b) (begin . b))
                                   (define-syntax-rule (unless-preexpanding . b) (begin))
@@ -162,7 +161,7 @@
                                       (define-syntax-rule (when-preexpanding . b) (begin))
                                       (define-syntax-rule (unless-preexpanding . b) (begin . b))
                                       (require scribble/manual
-                                               (only-in hyper-literate/typed/private/lp chunk CHUNK))
+                                               (only-in hyper-literate/private/lp chunk CHUNK))
                                       (begin body0 . body)))])
                             (syntax-case submod ()
                               [(_ . rest)

test/test.hl.rkt

@@ -1,4 +1,4 @@
-#lang hyper-literate/typed typed/racket/base
+#lang hyper-literate typed/racket/base
 
 @(require (for-label typed/racket/base
                      rackunit))

test/test2.hl.rkt

@@ -1,4 +1,4 @@
-#lang hyper-literate/typed typed/racket/base
+#lang hyper-literate typed/racket/base
 
 @(require (for-label typed/racket/base
                      typed/rackunit))