Changeset 15020 in project for chicken/trunk


Ignore:
Timestamp:
06/18/09 16:08:09 (10 years ago)
Author:
felix winkelmann
Message:

added missing files to distribution/manifest; possibly fixed prefix bug

Location:
chicken/trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/chicken-syntax.scm

    r14705 r15020  
    11;;;; chicken-syntax.scm - non-standard syntax extensions
    22;
     3; Copyright (c) 2008-2009, The Chicken Team
    34; Copyright (c) 2000-2007, Felix L. Winkelmann
    4 ; Copyright (c) 2008-2009, The Chicken Team
    55; All rights reserved.
    66;
     
    3333  (fixnum) )
    3434
    35 (##sys#provide 'chicken-more-macros 'chicken-syntax)
     35(##sys#provide
     36 'chicken-more-macros                   ; historical, remove later
     37 'chicken-syntax)
    3638
    3739
     
    10571059
    10581060
    1059 ;;;
    1060 
    1061 
    10621061;;; Just in case someone forgets
    10631062
  • chicken/trunk/distribution/manifest

    r14940 r15020  
    218218tests/test-finalizers-2.scm
    219219tests/module-tests-compiled.scm
     220tests/scrutiny-tests.scm
     221tests/scrutiny.expected
    220222tests/syntax-tests.scm
    221223tests/syntax-tests-2.scm
  • chicken/trunk/expand.scm

    r14999 r15020  
    17061706
    17071707(define (##sys#macro-subset me0)
    1708   (let loop ((me (##sys#macro-environment)))
    1709     (if (or (null? me) (eq? me me0))
    1710         '()
    1711         (cons (car me) (loop (cdr me))))))
     1708  (let ((se (let loop ((me (##sys#macro-environment)))
     1709              (if (or (null? me) (eq? me me0))
     1710                  '()
     1711                  (cons (car me) (loop (cdr me)))))))
     1712    (for-each                           ; fixup se
     1713     (lambda (sdef)
     1714       (when (pair? (cdr sdef))
     1715         (set-car! (cdr sdef) se)))
     1716     se)
     1717    se))
  • chicken/trunk/tests/syntax-tests.scm

    r14705 r15020  
    341341(assert (= 123 setter))
    342342
     343
     344;;; prefixed import from `chicken' module with indirect reference to imported syntax
     345;;; (reported by Jack Trades)
     346
     347(module prefixed-self-reference (a b c)
     348  (import scheme (prefix chicken c:))
     349  (c:define-values (a b c) (values 1 2 3)) )
Note: See TracChangeset for help on using the changeset viewer.