From 34ea20beca2e90e4b1dcd7f8504d45c2dc51ea33 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Mon, 31 Oct 2011 17:38:42 -0700
Subject: [PATCH] vm: only show factorbug help the first time

---
 vm/debug.cpp | 5 ++++-
 vm/vm.cpp    | 1 +
 vm/vm.hpp    | 1 +
 3 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/vm/debug.cpp b/vm/debug.cpp
index 178b9b9381..ff22770ced 100755
--- a/vm/debug.cpp
+++ b/vm/debug.cpp
@@ -396,7 +396,10 @@ void factor_vm::factorbug()
 	fep_p = true;
 
 	std::cout << "Starting low level debugger..." << std::endl;
-	factorbug_usage(false);
+	if (!fep_help_was_shown) {
+		factorbug_usage(false);
+		fep_help_was_shown = true;
+	}
 	bool seen_command = false;
 
 	for(;;)
diff --git a/vm/vm.cpp b/vm/vm.cpp
index bdb5158a15..29161ed723 100755
--- a/vm/vm.cpp
+++ b/vm/vm.cpp
@@ -18,6 +18,7 @@ factor_vm::factor_vm() :
 	current_gc(NULL),
 	gc_events(NULL),
 	fep_p(false),
+	fep_help_was_shown(false),
 	fep_disabled(false),
 	full_output(false),
 	last_nano_count(0),
diff --git a/vm/vm.hpp b/vm/vm.hpp
index 68bbeefa10..ec88640555 100755
--- a/vm/vm.hpp
+++ b/vm/vm.hpp
@@ -111,6 +111,7 @@ struct factor_vm
 
 	/* Debugger */
 	bool fep_p;
+	bool fep_help_was_shown;
 	bool fep_disabled;
 	bool full_output;