suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

scribble: fix a rendering and cross-reference problem

Browse Source 
The problem is related to the recently introduced style split between
definitions and references to definitions.

original commit: 44f810aa72468961f73aad3161ea345cd1e3ed30
This commit is contained in:
Matthew Flatt 2013-11-14 11:10:45 -07:00
parent cc37b26e35
commit 5bbd6e2712
3 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/scribble-pkgs/scribble-lib/scribble/private/manual-bind.rkt
View File

@ -93,7 +93,7 @@
(define (gen defn?)
(if sig
(*sig-elem #:defn? defn? (sig-id sig) name)
(annote-exporting-library
((if defn? annote-exporting-library values)
(to-element #:defn? defn? (make-just-context name stx-id)))))
(values (gen #t) (gen #f))))

3
pkgs/scribble-pkgs/scribble-lib/scribble/private/manual-class.rkt
View File

@ -197,8 +197,7 @@
(list (let ([target-maker (id-to-target-maker stx-id #t)]
[content (annote-exporting-library
(to-element #:defn? #t stx-id))]
[ref-content (annote-exporting-library
(to-element stx-id))])
[ref-content (to-element stx-id)])
(if target-maker
(target-maker
content

2
pkgs/scribble-pkgs/scribble-lib/scribble/private/manual-proc.rkt
View File

@ -708,7 +708,7 @@
(if link?
(let ()
(define (gen defn?)
(annote-exporting-library
((if defn? annote-exporting-library values)
(to-element #:defn? defn? name-id)))
(define content (gen #t))
(define ref-content (gen #f))