mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-07-09 05:57:36 +02:00
fixing source line checks in chibi-doc
This commit is contained in:
parent
150cfd0a8b
commit
446f8910f3
1 changed files with 6 additions and 2 deletions
|
@ -639,8 +639,12 @@ div#footer {padding-bottom: 50px}
|
|||
|
||||
(define (object-source x)
|
||||
(cond ((opcode? x) #f)
|
||||
((bytecode? x) (bytecode-source x))
|
||||
((procedure? x) (bytecode-source (procedure-code x)))
|
||||
((bytecode? x)
|
||||
(let ((src (bytecode-source x)))
|
||||
(if (and (vector? src) (positive? (vector-length src)))
|
||||
(vector-ref src 0)
|
||||
src)))
|
||||
((procedure? x) (object-source (procedure-code x)))
|
||||
((macro? x) (macro-source x))
|
||||
(else #f)))
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue