Changeset 13389 in project


Ignore:
Timestamp:
02/23/09 00:23:48 (11 years ago)
Author:
felix winkelmann
Message:

added testcase

Location:
chicken/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/TODO

    r13351 r13389  
    1 TODO                                                    -*- Outline -*-
    2 ====
     1TODO for chicken                                                        -*- Outline -*-
     2================
    33
    44
     
    4141    reported by Jim Ursetto
    4242    reverted original patch, see patches/finalizer-closures.diff
     43*** Use record-descriptors instead of symbols as 1st slot in structure objects?
    4344
    4445
  • chicken/trunk/setup-download.scm

    r13138 r13389  
    4747
    4848  (define (d fstr . args)
    49     (apply     
    50      fprintf (if *quiet* (current-error-port) (current-output-port))
    51      fstr args))
     49    (let ((port (if *quiet* (current-error-port) (current-output-port))))
     50      (apply fprintf port fstr args)
     51      (flush-output port)))
    5252     
    5353  (define temporary-directory (make-parameter #f))
  • chicken/trunk/tests/syntax-tests.scm

    r12359 r13389  
    270270        (set! i (add1 i))))
    271271(newline)
     272
     273
     274;;;; exported macro would override original name (fixed in rev. 13351)
     275
     276(module xfoo (xbaz xbar)
     277  (import scheme)
     278  (define-syntax xbar
     279    (syntax-rules ()
     280      ((_ 1) (xbaz))
     281      ((_) 'xbar)))
     282  (define-syntax xbaz
     283    (syntax-rules ()
     284      ((_ 1) (xbar))
     285      ((_) 'xbazz))))
     286
     287(import xfoo)
     288(assert (eq? 'xbar (xbaz 1)))
     289(assert (eq? 'xbazz (xbar 1)))
     290(assert (eq? 'xbar (xbar)))
Note: See TracChangeset for help on using the changeset viewer.