Improve styles, small fixes

1 files changed, 4 insertions, 2 deletions

diff --git a/main.scm b/main.scm
index 08d1377..cedc290 100644
--- a/main.scm
+++ b/main.scm
@@ -68,10 +68,12 @@
     (define alt (submatch m 1))
     (define link (submatch m 2))
 
-    ;; if link is absolute or external, leave as is.
+    ;; if link is absolute, external or in-page, leave as is.
     ;; otherwise, normalize it to the current directory context
     (define ret-link
-      (if (or (substring=? "https://" link) (substring=? "/" link))
+      (if (or (substring=? "https://" link)
+	      (substring=? "/" link)
+	      (substring=? "#" link))
 	  link
 	  ;; else
 	  (normalize-pathname (make-pathname cwd link))))