diff options
Diffstat (limited to 'module/system/vm/disassembler.scm')
-rw-r--r-- | module/system/vm/disassembler.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/system/vm/disassembler.scm b/module/system/vm/disassembler.scm index e6ce864e6..4d539a17d 100644 --- a/module/system/vm/disassembler.scm +++ b/module/system/vm/disassembler.scm @@ -509,7 +509,7 @@ address of that offset." subr-call foreign-call continuation-call j)) (let ((opcode (logand (bytevector-u32-native-ref code pos) #xff))) - (not (bitvector-ref non-fallthrough-set opcode)))) + (bitvector-bit-clear? non-fallthrough-set opcode))) (define-syntax define-jump-parser (lambda (x) |