Changeset 34871 in project


Ignore:
Timestamp:
11/06/17 15:47:10 (4 years ago)
Author:
juergen
Message:

simple-tests discriminates pp and print via cond-expand

Location:
release/4/simple-tests
Files:
2 edited
3 copied

Legend:

Unmodified
Added
Removed
  • release/4/simple-tests/tags/2.5/simple-tests.scm

    r34860 r34871  
    118118     (if form
    119119       (begin
     120         (cond-expand
     121           (compiling (print 'form))
     122           (else (pp 'form)))
    120123         ;(pp 'form)
    121          (print 'form)
     124         ;(print 'form)
    122125         (display "... passed in")
    123126         (for-each (disp) loc)
     
    126129       (begin
    127130         ;(pp 'form)
    128          (print 'form)
     131         ;(print 'form)
     132         (cond-expand
     133           (compiling (print 'form))
     134           (else (pp 'form)))
    129135         (display "!!! FAILED IN")
    130136         (for-each (disp) loc)
     
    185191                         (for-each (disp) (cdar x))
    186192                         (newline)
    187                          (for-each print (map car x))
     193                         (cond-expand
     194                           (compiling
     195                             (for-each print (map car x)))
     196                           (else
     197                             (for-each pp (map car x))))
     198                         ;(for-each print (map car x))
    188199                         ;(for-each pp (map car x))
    189200                         )
  • release/4/simple-tests/tags/2.5/simple-tests.setup

    r34860 r34871  
    77 'simple-tests
    88 '("simple-tests.so" "simple-tests.import.so")
    9  '((version "2.4")))
     9 '((version "2.5")))
  • release/4/simple-tests/trunk/simple-tests.scm

    r34860 r34871  
    118118     (if form
    119119       (begin
     120         (cond-expand
     121           (compiling (print 'form))
     122           (else (pp 'form)))
    120123         ;(pp 'form)
    121          (print 'form)
     124         ;(print 'form)
    122125         (display "... passed in")
    123126         (for-each (disp) loc)
     
    126129       (begin
    127130         ;(pp 'form)
    128          (print 'form)
     131         ;(print 'form)
     132         (cond-expand
     133           (compiling (print 'form))
     134           (else (pp 'form)))
    129135         (display "!!! FAILED IN")
    130136         (for-each (disp) loc)
     
    185191                         (for-each (disp) (cdar x))
    186192                         (newline)
    187                          (for-each print (map car x))
     193                         (cond-expand
     194                           (compiling
     195                             (for-each print (map car x)))
     196                           (else
     197                             (for-each pp (map car x))))
     198                         ;(for-each print (map car x))
    188199                         ;(for-each pp (map car x))
    189200                         )
  • release/4/simple-tests/trunk/simple-tests.setup

    r34860 r34871  
    77 'simple-tests
    88 '("simple-tests.so" "simple-tests.import.so")
    9  '((version "2.4")))
     9 '((version "2.5")))
Note: See TracChangeset for help on using the changeset viewer.