Back functionality now works

1 files changed, 6 insertions, 1 deletions

diff --git a/main.F90 b/main.F90
index f31a3ca..66e6d57 100644
--- a/main.F90
+++ b/main.F90
@@ -116,7 +116,12 @@ implicit none
             select case(r%request_action(input))
                 case (render_action_quit)
                     running = .false.
-                    
+                
+                case (render_action_back)
+                    call back_location(locations_visited, current_url)
+                    call free_lines(first_line)
+                    loaded = .false.
+                
                 case (render_action_layout)
                     call r%report_status("Performing Layout")
                     call layout_lines(first_line, r)