Changeset 7185 in project


Ignore:
Timestamp:
12/22/07 23:26:57 (12 years ago)
Author:
felix winkelmann
Message:

renamed update to revert

Location:
sbky
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • sbky/bky.scm

    r7127 r7185  
    55
    66
    7 (define bky-update #f)
     7(define bky-revert #f)
    88(define bky-diff #f)
    99(define bky-commit #f)
     
    128128               (reset) ) ) ) ) )
    129129
    130 (set! bky-update
     130(set! bky-revert
    131131  (lambda (id)                          ; pass #f for HEAD
    132132    (let ((tag (or id (read1 (conc *repo* "/HEAD")))))
  • sbky/sbky.scm

    r7127 r7185  
    3232  sbky init [ -b NAME | -m MSG ] ...
    3333  sbky commit [ -b NAME | -m MSG | -n | FILE1 ... ]
    34   sbky update -A | ID
     34  sbky revert -A | ID
    3535  sbky diff [ -l | -s ] [ ID | -p ID | ID ID ]
    3636  sbky status
     
    7272      (help) )
    7373
    74     (defcmd update
    75       (match-lambda*
    76         (("-A") (bky-update #f))
    77         ((id) (bky-update id))
    78         (_ (usage "update -A | ID")) ) )
     74    (defcmd revert
     75      (match-lambda*
     76        (("-A") (bky-revert #f))
     77        ((id) (bky-revert id))
     78        (_ (usage "revert -A | ID")) ) )
    7979
    8080    (defcmd (diff . args)
     
    198198
    199199    (defcmd (restore src)
    200       (bky-restore src))
     200      (bky-restore src)
     201      (bky-revert #f) )
    201202
    202203    (let loop ((args (command-line-arguments)))
Note: See TracChangeset for help on using the changeset viewer.