[ViewVC] Diff of: cvs/microscheme/scheme.c

Comparing microscheme/scheme.c (file contents):
Revision 1.69 by root, Mon Dec 7 22:12:53 2015 UTC vs.
Revision 1.70 by root, Mon Dec 7 22:13:31 2015 UTC

       case OP_REAL_APPLY:
 #endif
         if (is_proc (SCHEME_V->code))
           s_goto (procnum (SCHEME_V->code));  /* PROCEDURE */
-        else if (is_foreign (SCHEME_V->code))
-          {
-            /* Keep nested calls from GC'ing the arglist */
-            push_recent_alloc (SCHEME_A_ args, NIL);
-            x = CELL(SCHEME_V->code)->object.ff (SCHEME_A_ args);
-            s_return (x);
-          }
         else if (is_closure (SCHEME_V->code) || is_macro (SCHEME_V->code) || is_promise (SCHEME_V->code))       /* CLOSURE */
           {
             /* Should not accept promise */
             /* make environment */
             new_frame_in_env (SCHEME_A_ closure_env (SCHEME_V->code));
           }
         else if (is_continuation (SCHEME_V->code))      /* CONTINUATION */
           {
             ss_set_cont (SCHEME_A_ cont_dump (SCHEME_V->code));
             s_return (args != NIL ? car (args) : NIL);
+          }
+        else if (is_foreign (SCHEME_V->code))
+          {
+            /* Keep nested calls from GC'ing the arglist */
+            push_recent_alloc (SCHEME_A_ args, NIL);
+            x = CELL(SCHEME_V->code)->object.ff (SCHEME_A_ args);
+            s_return (x);
           }
         Error_0 ("illegal function");
       case OP_DOMACRO:         /* do macro */

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines