all-tests now pass without out of memory errors

[factor.git] / native / run.h

diff --git a/native/run.h b/native/run.h
index 7ee81f22b966d4bbe2376cd063cb8fbd0362a8da..1f4bec23194e0aa39d9156e0dd0dd0a797f44e31 100644 (file)
--- a/native/run.h
+++ b/native/run.h
@@ -58,6 +58,11 @@ INLINE CELL dpeek(void)
        return get(ds);
 }
 
+INLINE CELL dpeek2(void)
+{
+       return get(ds - CELLS);
+}
+
 INLINE CELL cpop(void)
 {
        CELL value = get(cs);