Remove commented out code, stale comments

coke · coke · commit 99407a4c9443 · 2017-10-25T12:31:53.000-04:00
diff --git a/htmlify.p6 b/htmlify.p6
@@ -64,7 +64,6 @@ monitor UrlLog {
 my $url-log = UrlLog.new;
 &rewrite-url.wrap(sub (|c){
     $url-log.log(my \r = callsame);
-#    die c if r eq '$SOLIDUSsyntax$SOLIDUS#class_Slip';
     r
 });
 
@@ -83,8 +82,6 @@ my @menu =
     ('programs', ''         ) => (),
     ('examples', 'Examples' ) => (),
     ('webchat', 'Chat with us') => (),
-#    ('module', 'Modules'   ) => (),
-#    ('formalities',''      ) => ();
 ;
 
 my $head = slurp 'template/head.html';
@@ -328,7 +325,6 @@ sub process-pod-source(:$kind, :$pod, :$filename, :$pod-is-complete) {
     }
 }
 
-# XXX: Generalize
 multi write-type-source($doc) {
     sub href_escape($ref) {
         # only valid for things preceded by a protocol, slash, or hash

Original file line number	Diff line number	Diff line change
`@@ -64,7 +64,6 @@ monitor UrlLog {`
`64`	`64`	`my $url-log = UrlLog.new;`
`65`	`65`	`&rewrite-url.wrap(sub (\|c){`
`66`	`66`	`$url-log.log(my \r = callsame);`
`67`		`-# die c if r eq '$SOLIDUSsyntax$SOLIDUS#class_Slip';`
`68`	`67`	`r`
`69`	`68`	`});`
`70`	`69`
`@@ -83,8 +82,6 @@ my @menu =`
`83`	`82`	`('programs', '' ) => (),`
`84`	`83`	`('examples', 'Examples' ) => (),`
`85`	`84`	`('webchat', 'Chat with us') => (),`
`86`		`-# ('module', 'Modules' ) => (),`
`87`		`-# ('formalities','' ) => ();`
`88`	`85`	`;`
`89`	`86`
`90`	`87`	`my $head = slurp 'template/head.html';`
`@@ -328,7 +325,6 @@ sub process-pod-source(:$kind, :$pod, :$filename, :$pod-is-complete) {`
`328`	`325`	`}`
`329`	`326`	`}`
`330`	`327`
`331`		`-# XXX: Generalize`
`332`	`328`	`multi write-type-source($doc) {`
`333`	`329`	`sub href_escape($ref) {`
`334`	`330`	`# only valid for things preceded by a protocol, slash, or hash`