Fix missing ELSE (error).

diff --git a/src/compiler/machines/aarch64/rulflo.scm b/src/compiler/machines/aarch64/rulflo.scm
index 6924bd56d093afb81ab84ce457a9ba5ff740a352..cc565fbf3b7549a31993e97d2be1bc61a6c35c8e 100644 (file)
--- a/src/compiler/machines/aarch64/rulflo.scm
+++ b/src/compiler/machines/aarch64/rulflo.scm
@@ -404,4 +404,6 @@ USA.
       FLONUM-IS-LESS-OR-GREATER?
       FLONUM-IS-UNORDERED?)
      ;; floating-point quiet compare
-     (LAP (FCMP D ,source1 ,source2)))))
+     (LAP (FCMP D ,source1 ,source2)))
+    (else
+     (error "Invalid float comparison:" predicate source1 source2))))