mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

add xref stub for interpreted procedures

Browse source 
* module/system/xref.scm (hacky-procedure-callees): Add a
  procedure-callees implementation for procedures with source, that
  currently does nothing. Not sure what to do, going into the future.
This commit is contained in:
Andy Wingo 2009-03-17 23:16:35 +01:00
parent e04894e1ac
commit 4f96d42b2d
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/system/xref.scm
View file

@ -66,8 +66,12 @@
(else (lp (1+ i) out)))))))
(else '())))
(define (hacky-procedure-callees proc)
;; we could analyze the memoized source or something
'())
(define (procedure-callees proc)
(cond
((program? proc) (program-callees proc))
((procedure-source proc) (hacky-procedure-callees proc))
(else '())))
(else '())))