Add "if" as alias for "branch"

scmvm/assembler.scm

@@ -7,8 +7,14 @@
                 #:select (write-u8 write-bytevector))
   #:export (assemble))
 
+(define *aliases*
+  '((if . branch)))
+
+(define (or-alias inst)
+  (or (assq-ref *aliases* inst) inst))
+
 (define (lookup-instruction inst)
-  (define inst-obj (assq inst *instruction-set*))
+  (define inst-obj (assq (or-alias inst) *instruction-set*))
   (if inst-obj
       inst-obj
       (error (format #f "could not find instruction ~a" inst))))

tests.scm

@@ -32,7 +32,7 @@
       (=)
       (or)
       (push recur)
-      (branch)
+      (if)
       (return)
     recur
       (dup)