Changeset 13351 in project for chicken


Ignore:
Timestamp:
02/19/09 09:12:27 (11 years ago)
Author:
felix winkelmann
Message:

aliases remembers original name (otherwise stripping will not recover orig. name)

Location:
chicken/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/TODO

    r13339 r13351  
    1818
    1919** expander
    20 *** unstripped quoted constants                                   
    21     if macro expands into the name of an exported macro, ##sys#strip-syntax will
    22     not strip the symbol (the se contains a macro-def). Possibly just use the
    23     macro name, then.
    2420*** expansion of r5rs_pitfall 4.2 incorrect
    2521    possibly due to a non-aliased implicit "begin" somewhere
     
    4238*** library/runtime: cyclic list checks for assq/assv/assoc/memq/memv/member
    4339    and C_i_list_tail
    44 *** finalizers on lexically ref'd data not working in interpreter (reported
    45     by Jim Ursetto)
     40*** finalizers on lexically ref'd data not working in interpreter
     41    reported by Jim Ursetto
     42    reverted original patch, see patches/finalizer-closures.diff
    4643
    4744
  • chicken/trunk/expand.scm

    r13138 r13351  
    8585             (ua (or (lookup var se) var)))
    8686        (##sys#put! alias '##core#macro-alias ua)
    87         (dd "aliasing " alias " to "
     87        (##sys#put! alias '##core#real-name var)
     88        (dd "aliasing " alias " (real: " var ") to "
    8889            (if (pair? ua)
    8990                '<macro>
     
    103104                         (lookup x se)
    104105                         (get x '##core#macro-alias) ) ) )
    105              (cond ((and alias (not (assq x se)))
     106             (cond ((get x '##core#real-name))
     107                   ((and alias (not (assq x se)))
    106108                    (##sys#alias-global-hook x #f))
    107109                   ((not x2) x)
  • chicken/trunk/tests/runtests.sh

    r13339 r13351  
    111111if test "$MSYSTEM" == "MINGW32"; then
    112112    # the windows runtime library prints flonums differently
    113     cat r4rstest.log
     113    tail r4rstest.log
    114114else
    115115    diff -bu r4rstest.out r4rstest.log || true
Note: See TracChangeset for help on using the changeset viewer.