wiki-patch-spaces-in-links-safe


diff -urN wiliki.scm wiliki.scm.csw
--- wiliki.scm  2004-09-13 09:26:34.000000000 +0200
+++ wiliki.scm.csw      2004-09-13 09:27:24.000000000 +0200
@@ -403,7 +403,7 @@
   (define (reader-macro-wikiname? name)
     (cond ((string-prefix? "$$" name)
            (handle-reader-macro name))
-          ((or (string-index name #[\s])
+          ((or (string-prefix? " " name)
                (string-prefix? "$" name))
            ;;invalid wiki name
            (list "[[" name "]]"))