- Timestamp:
- 06/18/09 16:08:09 (10 years ago)
- Location:
- chicken/trunk
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
chicken/trunk/chicken-syntax.scm
r14705 r15020 1 1 ;;;; chicken-syntax.scm - non-standard syntax extensions 2 2 ; 3 ; Copyright (c) 2008-2009, The Chicken Team 3 4 ; Copyright (c) 2000-2007, Felix L. Winkelmann 4 ; Copyright (c) 2008-2009, The Chicken Team5 5 ; All rights reserved. 6 6 ; … … 33 33 (fixnum) ) 34 34 35 (##sys#provide 'chicken-more-macros 'chicken-syntax) 35 (##sys#provide 36 'chicken-more-macros ; historical, remove later 37 'chicken-syntax) 36 38 37 39 … … 1057 1059 1058 1060 1059 ;;;1060 1061 1062 1061 ;;; Just in case someone forgets 1063 1062 -
chicken/trunk/distribution/manifest
r14940 r15020 218 218 tests/test-finalizers-2.scm 219 219 tests/module-tests-compiled.scm 220 tests/scrutiny-tests.scm 221 tests/scrutiny.expected 220 222 tests/syntax-tests.scm 221 223 tests/syntax-tests-2.scm -
chicken/trunk/expand.scm
r14999 r15020 1706 1706 1707 1707 (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 341 341 (assert (= 123 setter)) 342 342 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.