Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-09 14:07:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing source line checks in chibi-doc

Browse source
This commit is contained in:
Alex Shinn 2012-07-09 20:23:16 +09:00
parent 150cfd0a8b
commit 446f8910f3
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tools/chibi-doc
View file

@ -639,8 +639,12 @@ div#footer {padding-bottom: 50px}
(define (object-source x) (define (object-source x)
(cond ((opcode? x) #f) (cond ((opcode? x) #f)
((bytecode? x) (bytecode-source x)) ((bytecode? x)
((procedure? x) (bytecode-source (procedure-code 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)) ((macro? x) (macro-source x))
(else #f))) (else #f)))