Changeset 35753 in project


Ignore:
Timestamp:
07/05/18 04:56:15 (2 weeks ago)
Author:
kon
Message:

give it a name

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/coops-utils/trunk/coops-extras.scm

    r35299 r35753  
    3333;;;
    3434
     35(define symbol-printname-length (o string-length symbol->string))
     36
     37;;;
     38
    3539(define-type coops-class *)
    3640(define-type coops-instance *)
     
    4044;;; Helpers
    4145
     46;
    4247(define-constant *MAXIMUM-SLOTNAME-LENGTH* 32)
    4348
     
    128133      ;else an instance
    129134      (let* (
    130         (slots
    131           (*class-slots class))
    132         (name-maxlen
    133           (apply max (map (o string-length symbol->string) slots))) )
     135        (slots (*class-slots class))
     136        (name-maxlen (apply max (map symbol-printname-length slots))) )
    134137        ;
    135138        (define (slot-per-line slot)
Note: See TracChangeset for help on using the changeset viewer.