Changeset 38454 in project for release/5


Ignore:
Timestamp:
04/01/20 03:10:11 (16 months ago)
Author:
Kon Lovett
Message:

style, update comment

Location:
release/5/srfi-29/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/5/srfi-29/trunk/srfi-29.scm

    r38183 r38454  
    5151  package-name? check-package-name error-package-name)
    5252
    53 (import scheme
    54   (chicken base)
    55   (chicken module)
    56   utf8
    57   (only utf8-srfi-13 string-downcase)
    58   (only (srfi 1)
    59     first second third
    60     reverse! every drop-right!
    61     remove remove! list-copy)
    62   srfi-69
    63   (only (srfi 69)
    64     make-hash-table
    65     hash-table-ref/default
    66     hash-table-set! hash-table-delete!
    67     hash-table->alist alist->hash-table
    68     hash-table-keys)
    69   (only (chicken condition) abort make-property-condition)
    70   (only (chicken string) conc ->string)
    71   (only (chicken platform) register-feature!)
    72   (only (chicken format) format)
    73   (only (chicken pathname) make-pathname pathname-directory decompose-pathname)
    74   (only (chicken file) delete-file* create-directory delete-directory directory file-exists?)
    75   (only (chicken file posix) directory?)
    76   (only miscmacros define-parameter select)
    77   (only moremacros define-warning-parameter warning-guard)
    78   (only locale current-locale-components locale-component-ref)
    79   (only posix-utils environment-variable-true?)
    80   (only condition-utils make-condition-predicate)
    81   (only exn-condition make-exn-condition+)
    82   (only type-errors error-argument-type warning-argument-type)
    83   (only type-checks
    84     check-procedure check-symbol check-string check-list
    85     define-check+error-type))
     53(import scheme)
     54(import (chicken base))
     55(import (chicken module))
     56(import utf8)
     57(import (only utf8-srfi-13 string-downcase))
     58(import (only (srfi 1)
     59  first second third
     60  reverse! every drop-right!
     61  remove remove! list-copy))
     62(import srfi-69)
     63(import (only (srfi 69)
     64  make-hash-table
     65  hash-table-ref/default
     66  hash-table-set! hash-table-delete!
     67  hash-table->alist alist->hash-table
     68  hash-table-keys))
     69(import (only (chicken condition) abort make-property-condition))
     70(import (only (chicken string) conc ->string))
     71(import (only (chicken platform) register-feature!))
     72(import (only (chicken format) format))
     73(import (only (chicken pathname) make-pathname pathname-directory decompose-pathname))
     74(import (only (chicken file) delete-file* create-directory delete-directory directory file-exists?))
     75(import (only (chicken file posix) directory?))
     76(import (only miscmacros define-parameter select))
     77(import (only moremacros define-warning-parameter warning-guard))
     78(import (only locale current-locale-components locale-component-ref))
     79(import (only posix-utils environment-variable-true?))
     80(import (only condition-utils make-condition-predicate))
     81(import (only exn-condition make-exn-condition+))
     82(import (only type-errors error-argument-type warning-argument-type))
     83(import (only type-checks
     84  check-procedure check-symbol check-string check-list
     85  define-check+error-type))
    8686
    8787(import srfi-29-install)
  • release/5/srfi-29/trunk/tests/run.scm

    r38077 r38454  
     1;;;; run.scm -*- Scheme -*-
     2
     3(import scheme)
    14;;;; run.scm -*- Scheme -*-
    25
    36(import scheme)
    47
    5 ;;; Create Time Const
     8;;; Create Egg Const
    69
    710(define EGG-NAME "srfi-29")
     
    912;chicken-install invokes as "<csi> -s run.scm <eggnam> <eggdir>"
    1013
    11 (import
    12   (only (chicken pathname) make-pathname)
    13   (only (chicken process) system)
    14   (only (chicken process-context) argv)
    15   (only (chicken format) format))
     14(import (only (chicken pathname) make-pathname))
     15(import (only (chicken process) system))
     16(import (only (chicken process-context) argv))
     17(import (only (chicken format) format))
    1618
    1719(define (test-filename test-name)
Note: See TracChangeset for help on using the changeset viewer.