summaryrefslogtreecommitdiff
path: root/module/system/vm/assembler.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/system/vm/assembler.scm')
-rw-r--r--module/system/vm/assembler.scm16
1 files changed, 6 insertions, 10 deletions
diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm
index 8f67cac51..698d44dac 100644
--- a/module/system/vm/assembler.scm
+++ b/module/system/vm/assembler.scm
@@ -95,14 +95,7 @@
emit-fixnum?
emit-heap-object?
emit-char?
- emit-eq-null?
- emit-eq-nil?
- emit-eq-false?
- emit-eq-true?
- emit-unspecified?
emit-undefined?
- emit-eof-object?
-
emit-null?
emit-false?
emit-nil?
@@ -1390,9 +1383,12 @@ returned instead."
(let ((loc (intern-constant asm (make-static-procedure label))))
(emit-make-non-immediate asm dst loc)))
-(define-syntax-rule (define-immediate-tag=?-macro-assembler name pred mask tag)
- (define-macro-assembler (pred asm slot)
- (emit-immediate-tag=? asm slot mask tag)))
+(define-syntax define-immediate-tag=?-macro-assembler
+ (syntax-rules ()
+ ((_ name #f mask tag) #f)
+ ((_ name pred mask tag)
+ (define-macro-assembler (pred asm slot)
+ (emit-immediate-tag=? asm slot mask tag)))))
(visit-immediate-tags define-immediate-tag=?-macro-assembler)