diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-18 20:06:58 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-18 20:06:58 -0400 |
| commit | 273cccb1a687dfe7d74486def016514a7887c1f5 (patch) | |
| tree | 992eddae6cd344a8bd0cab8454212b10f91a13eb | |
| parent | e391a711db7f20e29eb1172bd1db4b94c09ca518 (diff) | |
| download | LR-87-273cccb1a687dfe7d74486def016514a7887c1f5.tar.gz LR-87-273cccb1a687dfe7d74486def016514a7887c1f5.zip | |
Deleted some extraneous debug print statements. Added another image to the readme.
| -rw-r--r-- | README.md | 3 | ||||
| -rw-r--r-- | history.f90 | 2 | ||||
| -rw-r--r-- | protocol.f90 | 3 |
3 files changed, 5 insertions, 3 deletions
@@ -11,6 +11,9 @@ client is implemented entirely in Fortran. <img src="https://gallery.rainbow-100.com/cgi-bin/gk.cgi?id=00fdc8bb-615a-482d-8c7f-f2be01bf0390&gallery=662ce9f6-fb2e-45f2-be0d-d6f6eaacf5c5" alt="LR-87 on Windows" style="width:40%" /> +<img src="https://gallery.rainbow-100.com/cgi-bin/gk.cgi?id=89caf184-6b86-48bf-ab67-6bacf6b9bae4&gallery=662ce9f6-fb2e-45f2-be0d-d6f6eaacf5c5" + alt="LR-87 with the Windows GUI" + style="width:40%" /> </p> LR-87 can be launched with an initial address, or it will default to diff --git a/history.f90 b/history.f90 index e56cc89..7f98e59 100644 --- a/history.f90 +++ b/history.f90 @@ -82,8 +82,6 @@ contains head => first_location - Print *, "=> "//trim(url) - end function add_location subroutine back_location(first_location, url) diff --git a/protocol.f90 b/protocol.f90 index 706f442..78f11c8 100644 --- a/protocol.f90 +++ b/protocol.f90 @@ -205,7 +205,8 @@ contains integer::past_protocol, first_slash, last_slash - Print *, "*** Requested path is '"//trim(path)//"'" + ! For debugging + ! Print *, "*** Requested path is '"//trim(path)//"'" past_protocol = index(current_url, "://") |