diff options
| author | Andy Wingo <wingo@pobox.com> | 2013-11-19 19:11:40 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2013-11-19 19:11:40 +0100 |
| commit | 0bd1e9c6a0420816111e4dc109d6dd30f9f8cd73 (patch) | |
| tree | d60e9e19e8825cd85b0b2c765289fed45902e5d9 /module/system/repl/debug.scm | |
| parent | edba822553cfa95c907bf3ecb4c4879723ef92ee (diff) | |
| download | guile-0bd1e9c6a0420816111e4dc109d6dd30f9f8cd73.tar.gz | |
rtl-program? -> program?
* libguile/programs.c (scm_program_p): Rename from scm_rtl_program_p.
Changes name also from rtl-program? to program?.
* libguile/programs.h:
* module/ice-9/session.scm:
* module/language/tree-il/analyze.scm:
* module/statprof.scm:
* module/system/repl/command.scm:
* module/system/repl/debug.scm:
* module/system/vm/coverage.scm:
* module/system/vm/disassembler.scm:
* module/system/vm/frame.scm:
* module/system/vm/program.scm:
* module/system/vm/traps.scm:
* module/system/xref.scm: Adapt.
Diffstat (limited to 'module/system/repl/debug.scm')
| -rw-r--r-- | module/system/repl/debug.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/system/repl/debug.scm b/module/system/repl/debug.scm index 2ca73648d..77228b469 100644 --- a/module/system/repl/debug.scm +++ b/module/system/repl/debug.scm @@ -95,7 +95,7 @@ (format port "~aRegisters:~%" per-line-prefix) (print "ip = #x~x" (frame-instruction-pointer frame)) - (when (rtl-program? (frame-procedure frame)) + (when (program? (frame-procedure frame)) (let ((code (rtl-program-code (frame-procedure frame)))) (format port " (#x~x~@d)" code (- (frame-instruction-pointer frame) code)))) |