Changeset 14617 for lang/gauche

Show
Ignore:
Timestamp:
06/26/08 00:19:42 (5 months ago)
Author:
kiyoka
Message:
 
Location:
lang/gauche/oldtype/trunk
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/oldtype.kahua

    r14612 r14617  
    344344    (lambda (x) 
    345345      (not (or 
     346            (#/^----*$/ x) 
    346347            (#/^[ ]*$/ x) 
    347348            (#/^[ ]*##/ x)))) 

  • lang/gauche/oldtype/trunk/command/blog

    r14609 r14617  
    3232               (begin 
    3333                 (display "----") (newline) 
     34                 (newline) 
     35                 (newline) 
    3436                 (display  
    35                   (string-append "* [[" (oldtype:otpath->wikiname filename) "]]")) 
    36                  (newline) 
    37                  (newline))) 
     37                  (string-append "* [[" (oldtype:otpath->wikiname filename) "]]")))) 
    3838             (for-each print (port->string-list (current-input-port)))))) 
    3939       entrylist))))