From 43bf70a9da466363708cfdfa404b0aff2a509e9b Mon Sep 17 00:00:00 2001
From: mgcaret <mgcaret@users.noreply.github.com>
Date: Tue, 23 Jul 2019 16:01:10 -0700
Subject: [PATCH] omit unused FCode support routine DEST_ON_TOP

---
 asm/fcode.s | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/asm/fcode.s b/asm/fcode.s
index 6575ffd..3d37f75 100644
--- a/asm/fcode.s
+++ b/asm/fcode.s
@@ -1170,6 +1170,8 @@ xdword    B_FIELD
           jml dFIELD::dofield
 exdword
 
+.if 0
+; Inspired by SLOF, unused for now
 xdword    DEST_ON_TOP
           ENTER
           ;.dword DOTS
@@ -1193,6 +1195,7 @@ e2:       .dword DROP
           ;.dword DOTS
           EXIT
 exdword
+.endif
 
 ; Branch FCode while interpreting
 ; ( fcode-offset -- )