Changeset 38234 in project


Ignore:
Timestamp:
03/09/20 02:32:25 (4 weeks ago)
Author:
Kon Lovett
Message:

remove redundant test caught by else clause

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/moremacros/trunk/moremacros.scm

    r38231 r38234  
    4141;;;
    4242
     43;inspired by Kooda on #chicken irc Mar 7 23:39
     44
    4345(define-syntax __date__
    4446  (er-macro-transformer
     
    5153      (time->string (seconds->local-time) "%T") ) ) )
    5254
    53 ;inspired by Kooda on #chicken irc Mar 7 23:39
    54 
    5555(define-for-syntax (line-info-values e)
    5656  (let ((v (get-line-number e)))
    57     (cond
    58       ((not v)
    59         (values #f #f) )
    60       ((string? v)
    61         (apply values (string-split v ":" #t)) )
    62       (else
    63         (values v #f) ) ) ) )
     57    (if (string? v)
     58      (apply values (string-split v ":" #t))
     59      (values v #f) ) ) )
    6460
    6561(define-syntax __line__
Note: See TracChangeset for help on using the changeset viewer.