Ignore:
Timestamp:
08/29/20 03:33:11 (2 months ago)
Author:
Kon Lovett
Message:

update gloss

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/timed-resource/trunk/tests/test-gloss.incl.scm

    r38579 r38910  
    111111;;
    112112
     113(define-syntax glossln
     114  (syntax-rules ()
     115    ((glossln)
     116      (begin
     117        (newline)
     118        (flush-output) ) ) ) )
     119
    113120(define-syntax glossn
    114121  (syntax-rules ()
    115122    ((glossn)
    116       (begin))
     123      (begin) )
    117124    ((glossn ?obj)
    118125      (begin
    119126        (display-gloss-marker)
    120         (display ?obj)
    121         (flush-output)) )
     127        (display ?obj)) )
    122128    ((glossn ?obj ...)
    123129      (begin
    124130        (display-gloss-marker)
    125         (for-each display (list ?obj ...))
    126         (flush-output)) ) ) )
     131        (for-each display (list ?obj ...))) ) ) )
    127132
    128133(define-syntax gloss
    129134  (syntax-rules ()
    130135    ((gloss)
    131       (newline))
     136      (glossln) )
    132137    ((gloss ?obj ...)
    133138      (begin
    134139        (glossn ?obj ...)
    135         (newline)) ) ) )
     140        (glossln)) ) ) )
    136141
    137142;Needs a format:
     
    149154      (begin
    150155        (glossnf ?fmt ?arg0 ...)
    151         (newline)) ) ) )
     156        (glossln) ) ) ) )
Note: See TracChangeset for help on using the changeset viewer.