--- cvsroot/microscheme/scheme.c	2015/12/01 03:03:11	1.55
+++ cvsroot/microscheme/scheme.c	2015/12/01 03:44:32	1.56
@@ -4013,6 +4013,12 @@
 
         s_return (x);
 
+      case OP_FLOOR:    s_return (mk_real (SCHEME_A_ floor     (rvalue (x))));
+      case OP_CEILING:  s_return (mk_real (SCHEME_A_ ceil      (rvalue (x))));
+      case OP_TRUNCATE: s_return (mk_real (SCHEME_A_ trunc     (rvalue (x))));
+      case OP_ROUND:    s_return (mk_real (SCHEME_A_ nearbyint (rvalue (x))));
+
+      case OP_SQRT: s_return (mk_real (SCHEME_A_ sqrt (rvalue (x))));
       case OP_EXP:  s_return (mk_real (SCHEME_A_ exp  (rvalue (x))));
       case OP_LOG:  s_return (mk_real (SCHEME_A_ log  (rvalue (x))
                                                  / (cadr (args) == NIL ? 1 : log (rvalue (cadr (args))))));
@@ -4028,9 +4034,6 @@
              ? atan (rvalue (x))
              : atan2 (rvalue (x), rvalue (cadr (args)))));
 
-      case OP_SQRT:
-        s_return (mk_real (SCHEME_A_ sqrt (rvalue (x))));
-
       case OP_EXPT:
         {
           RVALUE result;
@@ -4062,11 +4065,6 @@
           else
             s_return (mk_integer (SCHEME_A_ result));
         }
-
-      case OP_FLOOR:    s_return (mk_real (SCHEME_A_ floor     (rvalue (x))));
-      case OP_CEILING:  s_return (mk_real (SCHEME_A_ ceil      (rvalue (x))));
-      case OP_TRUNCATE: s_return (mk_real (SCHEME_A_ trunc     (rvalue (x))));
-      case OP_ROUND:    s_return (mk_real (SCHEME_A_ nearbyint (rvalue (x))));
 #endif
 
       case OP_ADD:             /* + */