Changeset 34860 in project


Ignore:
Timestamp:
11/05/17 11:09:07 (4 years ago)
Author:
juergen
Message:

simple-tests 2.4

Location:
release/4/simple-tests
Files:
4 edited
1 copied

Legend:

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

    r33492 r34860  
    33; ju (at) jugilo (dot) de
    44;
    5 ; Last update: Nov 14, 2013
     5; Last update: Nov 05, 2017
    66;
    7 ; Copyright (c) 2011-2013, Juergen Lorenz
     7; Copyright (c) 2011-2017, Juergen Lorenz
    88; All rights reserved.
    99;
     
    8585     (cond-expand
    8686       ((not compiling)
    87         (begin (pp 'xpr) (display "evaluates to:\n") (pp xpr) (newline))
     87        (begin (pp 'xpr)
     88               (display "evaluates to:\n")
     89               (pp xpr)
     90               (newline))
    8891        ...
    8992        )
     
    115118     (if form
    116119       (begin
    117          (pp 'form)
     120         ;(pp 'form)
     121         (print 'form)
    118122         (display "... passed in")
    119123         (for-each (disp) loc)
     
    121125         #t)
    122126       (begin
    123          (pp 'form)
     127         ;(pp 'form)
     128         (print 'form)
    124129         (display "!!! FAILED IN")
    125130         (for-each (disp) loc)
     
    180185                         (for-each (disp) (cdar x))
    181186                         (newline)
    182                          (for-each pp (map car x))
     187                         (for-each print (map car x))
     188                         ;(for-each pp (map car x))
    183189                         )
    184190                       groups)
  • release/4/simple-tests/tags/2.4/simple-tests.setup

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

    r33492 r34860  
    33; ju (at) jugilo (dot) de
    44;
    5 ; Last update: Nov 14, 2013
     5; Last update: Nov 05, 2017
    66;
    7 ; Copyright (c) 2011-2013, Juergen Lorenz
     7; Copyright (c) 2011-2017, Juergen Lorenz
    88; All rights reserved.
    99;
     
    8585     (cond-expand
    8686       ((not compiling)
    87         (begin (pp 'xpr) (display "evaluates to:\n") (pp xpr) (newline))
     87        (begin (pp 'xpr)
     88               (display "evaluates to:\n")
     89               (pp xpr)
     90               (newline))
    8891        ...
    8992        )
     
    115118     (if form
    116119       (begin
    117          (pp 'form)
     120         ;(pp 'form)
     121         (print 'form)
    118122         (display "... passed in")
    119123         (for-each (disp) loc)
     
    121125         #t)
    122126       (begin
    123          (pp 'form)
     127         ;(pp 'form)
     128         (print 'form)
    124129         (display "!!! FAILED IN")
    125130         (for-each (disp) loc)
     
    180185                         (for-each (disp) (cdar x))
    181186                         (newline)
    182                          (for-each pp (map car x))
     187                         (for-each print (map car x))
     188                         ;(for-each pp (map car x))
    183189                         )
    184190                       groups)
  • release/4/simple-tests/trunk/simple-tests.setup

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