Changeset 8613 in project


Ignore:
Timestamp:
02/21/08 20:08:57 (10 years ago)
Author:
kon
Message:

Save.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/source-xref/trunk/source-xref.scm

    r8021 r8613  
    66(use srfi-37 tool)
    77(use sqlite3 sql-null)
    8 (use stack lookup-table miscmacros misc-extn-dsssl)
     8(use misc-extn-directory misc-extn-dsssl)
     9(use  lookup-table miscmacros)
    910(use #;fmt tabular-list)
    1011(use utf8 utf8-srfi-13)
     
    1718    (fixnum)
    1819    (inline) ) )
    19 
    20 ;;; Directory Stack
    21 
    22 (define push-directory)
    23 (define pop-directory)
    24 
    25 (let ([*directory-stack* (make-stack)]
    26       [*currdir-pathname* (make-pathname "." #f)])
    27 
    28   (set! push-directory
    29     (lambda (dir)
    30       (stack-push! *directory-stack* (current-directory))
    31       ; Don't cd unless necessary
    32       (when (and dir
    33                  (not (or (string-null? dir)
    34                           (string=? *currdir-pathname* (make-pathname dir #f)) ) ) )
    35         (current-directory dir) ) ) )
    36 
    37   (set! pop-directory
    38     (lambda ()
    39       (unless (stack-empty? *directory-stack*)
    40         (current-directory (stack-pop! *directory-stack*)) ) ) ) )
    4120
    4221;;; SQLite3 Aux
Note: See TracChangeset for help on using the changeset viewer.