Changeset 12952 in project for chicken


Ignore:
Timestamp:
01/07/09 15:44:49 (11 years ago)
Author:
felix winkelmann
Message:

removed redundant module check

Location:
chicken/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/TODO

    r12940 r12952  
    2323*** extended lambda-lists refer to `optional' and `let-optionals[*]'
    2424    this will break, when these macros are renamed on import
     25*** define-for-syntax: eval body in what env?
    2526
    2627** modules
  • chicken/trunk/chicken-syntax.scm

    r12937 r12952  
    10511051                       (car body))))
    10521052        (if (symbol? name)
    1053             (##sys#setslot name 0 (eval body))
     1053            (##sys#setslot name 0 (eval body)) ;*** this is likely to be incorrect
    10541054            (syntax-error 'define-for-syntax "invalid identifier" name) )
    10551055        (##sys#register-meta-expression `(define ,name ,body))
  • chicken/trunk/expand.scm

    r12937 r12952  
    12061206  (lambda (x r c)
    12071207    (##sys#check-syntax 'begin-for-syntax x '(_ . #(_ 0)))
    1208     (and-let* ((mod (##sys#current-module)))
    1209       (##sys#register-meta-expression `(begin ,@(cdr x))) )
     1208    (##sys#register-meta-expression `(begin ,@(cdr x)))
    12101209    `(##core#elaborationtimeonly (,(r 'begin) ,@(cdr x))))))
    12111210
Note: See TracChangeset for help on using the changeset viewer.