summaryrefslogtreecommitdiff
path: root/module/system/vm/trace.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/system/vm/trace.scm')
-rw-r--r--module/system/vm/trace.scm6
1 files changed, 2 insertions, 4 deletions
diff --git a/module/system/vm/trace.scm b/module/system/vm/trace.scm
index d7b074cdc..364069156 100644
--- a/module/system/vm/trace.scm
+++ b/module/system/vm/trace.scm
@@ -22,15 +22,13 @@
(define-module (system vm trace)
:use-syntax (system base syntax)
:use-module (system vm core)
- :use-module (system vm frame)
:use-module (ice-9 format)
- :use-module (ice-9 and-let-star)
:export (vm-trace vm-trace-on vm-trace-off))
-(define (vm-trace vm bytes . opts)
+(define (vm-trace vm objcode . opts)
(dynamic-wind
(lambda () (apply vm-trace-on vm opts))
- (lambda () (vm-load vm bytes))
+ (lambda () (vm (objcode->program objcode)))
(lambda () (apply vm-trace-off vm opts))))
(define (vm-trace-on vm . opts)