diff options
Diffstat (limited to 'module/system/vm/disassembler.scm')
-rw-r--r-- | module/system/vm/disassembler.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/system/vm/disassembler.scm b/module/system/vm/disassembler.scm index 2ab2bf575..f0b1a1076 100644 --- a/module/system/vm/disassembler.scm +++ b/module/system/vm/disassembler.scm @@ -615,9 +615,10 @@ address of that offset." (lambda () (disassemble-one code (/ pos 4))) (lambda (len elt) + (define frame-size 2) (match elt ((_ proc . _) - (let lp ((slot (- proc 2))) + (let lp ((slot (- proc frame-size))) (if (and nslots-in (< slot nslots-in)) (cons slot (lp (1+ slot))) '()))))))))) |