diff options
| author | Andy Wingo <wingo@pobox.com> | 2009-03-17 23:16:35 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2009-03-17 23:16:35 +0100 |
| commit | 4f96d42b2d7a3d135f061c7096a8d6ff49881b62 (patch) | |
| tree | 9e5ff234cececd15b2091a65f2f90127cb0a1630 | |
| parent | e04894e1ac6c631d8fd1b92de4189f7b260f9509 (diff) | |
| download | guile-4f96d42b2d7a3d135f061c7096a8d6ff49881b62.tar.gz | |
add xref stub for interpreted procedures
* 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.
| -rw-r--r-- | module/system/xref.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/module/system/xref.scm b/module/system/xref.scm index 8d1cb54cf..aa920d645 100644 --- a/module/system/xref.scm +++ b/module/system/xref.scm @@ -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 '())))
\ No newline at end of file + (else '()))) |