From 8f14fd332804351af4c7c3cf6380c56c658cecbb Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sat, 15 Oct 2016 16:34:13 -0400
Subject: [PATCH] Fix order of operations

---
 runtime.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/runtime.c b/runtime.c
index 097d2476..12b8e9f7 100644
--- a/runtime.c
+++ b/runtime.c
@@ -2436,7 +2436,7 @@ object Cyc_fast_div(void *data, object ptr, object x, object y) {
   if (is_object_type(x) && type_of(x) == double_tag) {
     if (obj_is_int(y)){
       if (obj_obj2int(y) == 0.0) { goto divbyzero; }
-      assign_double(ptr, (double)(obj_obj2int(y)) / double_value(x));
+      assign_double(ptr, double_value(x) / (double)(obj_obj2int(y)));
       return ptr;
     } else if (is_object_type(y) && type_of(y) == double_tag) {
       if (double_value(y) == 0.0) { goto divbyzero; }