vm: only show factorbug help the first time

diff --git a/vm/debug.cpp b/vm/debug.cpp
index 178b9b938196049afc30ea58f49188fdc5c1ca0c..ff22770cedc645daa690ed8246e4af9122206c92 100755 (executable)
--- 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 bdb5158a150f9bf53585d333610f7778accd098f..29161ed7235d04176cfa0f55db9bf559b48e67a5 100755 (executable)
--- 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 68bbeefa10c5e6343df1bf46b2a0140bf8f5af0a..ec8864055577ee75646e265165e1863e9799fe7c 100755 (executable)
--- 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;