Changeset 38259 in project


Ignore:
Timestamp:
03/14/20 20:34:30 (2 weeks ago)
Author:
Kon Lovett
Message:

fix stack type (now w/ module qualification)

Location:
release/5/directory-utils/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/5/directory-utils/trunk/directory-utils.egg

    r36025 r38259  
    33
    44((synopsis "directory-utils")
    5  (version "2.0.2")
     5 (version "2.1.0")
    66 (category io)
    77 (author "[[kon lovett]]")
     
    1111  (srfi-13 "0.1")
    1212        (miscmacros "1.0")
     13        (moremacros "2.2.0")
    1314        (list-utils "2.0.0")
    1415        (stack "3.0.0")
  • release/5/directory-utils/trunk/directory-utils.scm

    r36025 r38259  
    3333  remove-dotfiles)
    3434
    35 (import scheme
    36   (chicken process-context)
    37   (chicken base)
    38   (chicken type)
    39   (only (chicken keyword) get-keyword)
    40   (only (chicken process-context) current-directory change-directory)
    41   (only (chicken string) string-split)
    42   (only (chicken pathname)
    43     make-pathname
    44     pathname-directory pathname-extension pathname-file
    45     decompose-pathname decompose-directory)
    46   (only (chicken file)
    47     file-exists?
    48     directory create-directory)
    49   (only (chicken file posix)
    50     directory?)
    51   (only (srfi 1)
    52     first fold append! filter-map remove any)
    53   (only (srfi 13)
    54     string-null? string-prefix?)
    55   (only miscmacros
    56     define-parameter until)
    57   (only list-utils
    58     not-null? ensure-list)
    59   (only stack
    60     make-stack stack?
    61     stack-empty?
    62     stack-push! stack-pop!)
    63   (only type-checks
    64     define-check+error-type
    65     check-procedure))
     35(import scheme)
     36(import (chicken process-context))
     37(import (chicken base))
     38(import (chicken type))
     39(import (only (chicken keyword) get-keyword))
     40(import (only (chicken process-context) current-directory change-directory))
     41(import (only (chicken string) string-split))
     42(import (only (chicken pathname)
     43  make-pathname
     44  pathname-directory pathname-extension pathname-file
     45  decompose-pathname decompose-directory))
     46(import (only (chicken file) file-exists? directory create-directory))
     47(import (only (chicken file posix) directory?))
     48(import (only (srfi 1) first fold append! filter-map remove any))
     49(import (only (srfi 13) string-null? string-prefix?))
     50(import (only miscmacros until))
     51(import (only moremacros define-warning-parameter))
     52(import (only type-errors warning-argument-type)) ;BUG for define-warning-parameter
     53(import (only list-utils not-null? ensure-list))
     54(import (only stack make-stack stack? stack-empty? stack-push! stack-pop!))
     55(import (only type-checks define-check+error-type check-procedure))
    6656
    6757;;; Helpers
     
    6959;;
    7060
    71 (define-type stack (struct stack))
     61(define-type stack (struct stack#stack))
    7262
    7363(define-type optional-list (or boolean list))
     
    187177(: directory-utility-stack (#!optional stack -> stack))
    188178;
    189 (define-parameter directory-utility-stack (make-stack)
    190   (lambda (x)
    191     (if (stack? x)
    192       x
    193       (begin
    194         (warning '+directory-stack+ "not a stack")
    195         (directory-utility-stack)))))
     179(define-warning-parameter directory-utility-stack (make-stack) stack)
    196180
    197181;;
Note: See TracChangeset for help on using the changeset viewer.