From 6a69bd46c5808e8d995c081ea117ed8150b324fb Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Mon, 26 Aug 2019 03:20:37 +0000 Subject: [PATCH] Fix missing ELSE (error). --- src/compiler/machines/aarch64/rulflo.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)))) -- 2.25.1