Changeset 36147 in project


Ignore:
Timestamp:
08/11/18 16:53:43 (12 months ago)
Author:
Kon Lovett
Message:

use read-list, synop

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

Legend:

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

    r35824 r36147  
    2424  (only string-utils string-fixed-length)
    2525  (only type-checks check-char check-string check-fixnum))
    26 
    27 ;;; File Utilities
    28 
    29 (define (read-file #!optional (port ##sys#standard-input) (reader read) max)
    30   ;
    31   (define (slurp port)
    32     (do ((x (reader port) (reader port))
    33          (i 0 (fx+ i 1))
    34          (xs '() (cons x xs)) )
    35       ((or (eof-object? x) (and max (fx>= i max))) (##sys#fast-reverse xs)) ) )
    36   ;
    37   (if (port? port)
    38     (slurp port)
    39           (call-with-input-file port slurp) ) )
    4026
    4127;;
     
    8672  (let* (
    8773    (cmdlin (read-line))
    88     (args (with-input-from-string cmdlin read-file))
     74    (args (with-input-from-string cmdlin read-list))
    8975    (arg (and (not (null? args)) (car args)))
    9076    (srfis
  • release/5/apropos-srfi/trunk/apropos-srfi.egg

    r35944 r36147  
    1 ;;;; apropos.egg  -*- Scheme -*-
     1;;;; apropos-srfi.egg  -*- Scheme -*-
    22;;;; Kon Lovett, Jul '18
    33
    4 ((synopsis "Chicken apropos")
    5  (version "2.8.0")
     4((synopsis "Chicken SRFI apropos")
     5 (version "1.0.0")
    66 (category misc)
    77 (author "[[kon lovett]]")
Note: See TracChangeset for help on using the changeset viewer.