From: Taylor R Campbell <campbell@mumble.net>
Date: Mon, 26 Aug 2019 03:20:37 +0000 (+0000)
Subject: Fix missing ELSE (error).
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~56
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6a69bd46c5808e8d995c081ea117ed8150b324fb;p=mit-scheme.git

Fix missing ELSE (error).
---

diff --git a/src/compiler/machines/aarch64/rulflo.scm b/src/compiler/machines/aarch64/rulflo.scm
index 6924bd56d..cc565fbf3 100644
--- 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))))