diff options
Diffstat (limited to 'module/system/vm/disassembler.scm')
-rw-r--r-- | module/system/vm/disassembler.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/module/system/vm/disassembler.scm b/module/system/vm/disassembler.scm index 28f4338d6..cc055491d 100644 --- a/module/system/vm/disassembler.scm +++ b/module/system/vm/disassembler.scm @@ -195,7 +195,11 @@ address of that offset." (define immediate-tag-annotations '()) (define-syntax-rule (define-immediate-tag-annotation name pred mask tag) (set! immediate-tag-annotations - (cons `((,mask ,tag) ,(symbol->string 'pred)) immediate-tag-annotations))) + (cons `((,mask ,tag) + ,(cond + ('pred => symbol->string) + (else (string-append "eq-" (symbol->string 'name) "?")))) + immediate-tag-annotations))) (visit-immediate-tags define-immediate-tag-annotation) (define heap-tag-annotations '()) |