Changeset 16054 for lang/gauche

Show
Ignore:
Timestamp:
07/21/08 09:59:32 (4 months ago)
Author:
kiyoka
Message:

Added 'clean' method to <svn-work> class.

Location:
lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/svn.scm

    r16053 r16054  
    3939  (export init 
    4040          commit 
    41           remove 
     41          clean 
    4242          status 
    4343          get-fullpath 
    … …  
    123123 
    124124 
    125 (define-method remove ((self <svn-work>)) 
     125(define-method clean ((self <svn-work>)) 
    126126  ;; mkdir  
    127127  (remove-directory* (get-fullpath self)) 

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

    r15944 r16054  
    387387                                        (begin 
    388388                                          (commit work) 
     389                                          (clean work) 
    389390                                          (set! nodes 
    390391                                                (p/