Changeset 12342 in project for chicken/trunk


Ignore:
Timestamp:
11/03/08 03:56:09 (12 years ago)
Author:
felix winkelmann
Message:

removed some dead code

Location:
chicken/trunk
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/TODO

    r12340 r12342  
    1111    it seems that we have to add unexported syntax to the import lib, in case it is referenced
    1212    from exported syntax. ugh.
     13*** alternative ellipsis (SRFI-46) broken
     14    using alternative ellipsis in syntax-rules results in nested '... to be treated
     15    as ordinary (temporary) identifier
    1316*** expansion of r5rs_pitfall 4.2 incorrect
    1417    possibly due to a non-aliased implicit "begin" somewhere
  • chicken/trunk/expand.scm

    r12340 r12342  
    740740             (mod (##sys#find-module mname #f)))
    741741        (unless mod
    742           (let ((il (##sys#find-extension 
     742          (let ((il (##sys#find-extension
    743743                     (string-append (symbol->string mname) ".import")
    744744                     #t)))
  • chicken/trunk/posixwin.scm

    r11989 r12342  
    6969  (disable-interrupts)
    7070  (usual-integrations)
    71   (hide ##sys#stat close-handle posix-error
     71  (hide ##sys#stat posix-error
    7272        $quote-args-list $exec-setup $exec-teardown)
    7373  (foreign-declare #<<EOF
     
    19031903(define-foreign-variable _rd1 int "C_rd1_")
    19041904
    1905 (define close-handle
    1906   (foreign-lambda int "close_handle" bool))
    1907 
    19081905; from original by Mejedi
    19091906;; ##sys#process
  • chicken/trunk/setup-api.scm

    r12301 r12342  
    124124(define *target-libs* (foreign-value "C_TARGET_MORE_LIBS" c-string))
    125125(define *target-lib-home* (foreign-value "C_TARGET_LIB_HOME" c-string))
    126 
    127 (define *major-version* (##sys#fudge 41))
    128126
    129127(define *sudo* #f)
     
    478476  (make-parameter (or (getenv "CHICKEN_INSTALL_PREFIX") #f)))
    479477
    480 (define (with-ext filename ext)
    481   (if (and (equal? (pathname-extension filename) ext)
    482            (file-exists? filename) )
    483       filename
    484       (let ((f2 (pathname-replace-extension filename ext)))
    485         (and (file-exists? f2) f2) ) ) )
    486 
    487478(define (write-info id files info)
    488479  (let ((info `((files ,@files)
  • chicken/trunk/srfi-13.scm

    r11092 r12342  
    14341434;;; lengths of the pattern and string respectively
    14351435
    1436 ;;; KMP search source[start,end) for PATTERN. Return starting index of
    1437 ;;; leftmost match or #f.
    1438 
    1439 (define (%kmp-search pattern text c= p-start p-end t-start t-end)
    1440   (let ((plen (- p-end p-start))
    1441         (rv (make-kmp-restart-vector pattern c= p-start p-end)))
    1442 
    1443     ;; The search loop. TJ & PJ are redundant state.
    1444     (let lp ((ti t-start) (pi 0)
    1445              (tj (- t-end t-start))     ; (- tlen ti) -- how many chars left.
    1446              (pj plen))                 ; (- plen pi) -- how many chars left.
    1447 
    1448       (if (= pi plen) (- ti plen)                       ; Win.
    1449          
    1450           (and (<= pj tj)                               ; Lose.
    1451                  
    1452                (if (c= (string-ref text ti)             ; Search.
    1453                        (string-ref pattern (+ p-start pi)))
    1454                    (lp (+ 1 ti) (+ 1 pi) (- tj 1) (- pj 1))     ; Advance.
    1455                    
    1456                    (let ((pi (vector-ref rv pi)))               ; Retreat.
    1457                      (if (= pi -1)
    1458                          (lp (+ ti 1)  0   (- tj 1)  plen)      ; Punt.
    1459                          (lp ti        pi  tj        (- plen pi))))))))))
    14601436
    14611437;;; (make-kmp-restart-vector pattern [c= start end]) -> integer-vector
Note: See TracChangeset for help on using the changeset viewer.