Moved hyper-literate/typed to hyper-literate, as it is now parameterizable.
This commit is contained in:
parent
32c6abb01e
commit
dbebe7b60a
|
@ -1,8 +1,8 @@
|
||||||
#lang racket/base
|
#lang racket/base
|
||||||
;; Forked from scribble-lib/scribble/lp/lang/lang2.rkt
|
;; 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/plain
|
||||||
module-begin/doc)
|
module-begin/doc)
|
||||||
(rename-out [module-begin/doc #%module-begin]))
|
(rename-out [module-begin/doc #%module-begin]))
|
|
@ -1,7 +1,7 @@
|
||||||
#lang s-exp syntax/module-reader
|
#lang s-exp syntax/module-reader
|
||||||
;; Forked from scribble-lib/scribble/lp/lang/reader.rkt
|
;; Forked from scribble-lib/scribble/lp/lang/reader.rkt
|
||||||
|
|
||||||
hyper-literate/typed/lang/lang
|
hyper-literate/lang
|
||||||
|
|
||||||
#:read read-inside
|
#:read read-inside
|
||||||
#:read-syntax read-syntax-inside
|
#:read-syntax read-syntax-inside
|
|
@ -126,7 +126,6 @@
|
||||||
(define-syntax-parameter mbeg #'#%module-begin)
|
(define-syntax-parameter mbeg #'#%module-begin)
|
||||||
|
|
||||||
(require (only-in typed/racket)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; WORKAROUND
|
(require (only-in typed/racket)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; WORKAROUND
|
||||||
;(dynamic-require 'typed/racket 0)
|
|
||||||
|
|
||||||
(define-for-syntax ((make-module-begin submod?) stx)
|
(define-for-syntax ((make-module-begin submod?) stx)
|
||||||
(syntax-case stx ()
|
(syntax-case stx ()
|
||||||
|
@ -138,7 +137,7 @@
|
||||||
(define lang-sym
|
(define lang-sym
|
||||||
(string->symbol (regexp-replace "^ " (syntax-e #'lang) "")))
|
(string->symbol (regexp-replace "^ " (syntax-e #'lang) "")))
|
||||||
(let ([expanded
|
(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 (if-preexpanding a b) a)
|
||||||
(define-syntax-rule (when-preexpanding . b) (begin . b))
|
(define-syntax-rule (when-preexpanding . b) (begin . b))
|
||||||
(define-syntax-rule (unless-preexpanding . b) (begin))
|
(define-syntax-rule (unless-preexpanding . b) (begin))
|
||||||
|
@ -162,7 +161,7 @@
|
||||||
(define-syntax-rule (when-preexpanding . b) (begin))
|
(define-syntax-rule (when-preexpanding . b) (begin))
|
||||||
(define-syntax-rule (unless-preexpanding . b) (begin . b))
|
(define-syntax-rule (unless-preexpanding . b) (begin . b))
|
||||||
(require scribble/manual
|
(require scribble/manual
|
||||||
(only-in hyper-literate/typed/private/lp chunk CHUNK))
|
(only-in hyper-literate/private/lp chunk CHUNK))
|
||||||
(begin body0 . body)))])
|
(begin body0 . body)))])
|
||||||
(syntax-case submod ()
|
(syntax-case submod ()
|
||||||
[(_ . rest)
|
[(_ . rest)
|
|
@ -1,4 +1,4 @@
|
||||||
#lang hyper-literate/typed typed/racket/base
|
#lang hyper-literate typed/racket/base
|
||||||
|
|
||||||
@(require (for-label typed/racket/base
|
@(require (for-label typed/racket/base
|
||||||
rackunit))
|
rackunit))
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
#lang hyper-literate/typed typed/racket/base
|
#lang hyper-literate typed/racket/base
|
||||||
|
|
||||||
@(require (for-label typed/racket/base
|
@(require (for-label typed/racket/base
|
||||||
typed/rackunit))
|
typed/rackunit))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user