Changeset 340 for trunk/thune/eval.c

Timestamp:

01/06/07 06:00:47 (2 years ago)

Author:

krobillard

Message:

Rune - ur_eval() no longer grows stack for final result.

Files:

• trunk/thune/eval.c (modified) (5 diffs)

trunk/thune/eval.c

@@ -757 +757 @@
 
 
+#ifdef LANG_THUNE
 // (val -- )
 UR_CALL( uc_showTOS )
@@ -763 +764 @@
     UR_S_SAFE_DROP;
 }
+#endif
 
 
@@ -782 +784 @@
         --it;
     }
+
+#ifdef LANG_RUNE
+    UR_S_GROW;
+#endif
 }
 
@@ -1507 +1513 @@
     { uc_to_text,      "to-text" },
     { uc_console_out,  "console.out" },
-    { uc_showTOS,      "." },
     { uc_showStack,    ".s" },
     { uc_parse,        "parse" },
@@ -1523 +1528 @@
     { uc_thread,       "thread" },
 #endif
+    { uc_showTOS,      "." },
     { uc_lift_local,   "lift-local" },
     { uc_enclose,      "enclose" },