Changeset 13711 in project for chicken


Ignore:
Timestamp:
03/12/09 13:57:02 (11 years ago)
Author:
felix winkelmann
Message:

macro? and undefine-macro! are gone

Location:
chicken/trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/NEWS

    r13452 r13711  
    3737   set-file-position! set-user-id! set-group-id!
    3838   set-process-group-id!
     39   macro? undefine-macro!
    3940- the situation-identifiers "run-time" and "compile-time" have
    4041  been removed
  • chicken/trunk/chicken.import.scm

    r13702 r13711  
    142142   machine-byte-order
    143143   machine-type
    144    macro?
    145144   make-blob
    146145   make-composite-condition
  • chicken/trunk/compiler.scm

    r13138 r13711  
    916916                                      (mark-variable var '##compiler#always-bound-to-procedure)
    917917                                      (mark-variable var '##compiler#always-bound))
    918                                     (when (macro? var)
     918                                    (when (##sys#macro? var)
    919919                                      (compiler-warning
    920920                                       'var "assigned global variable `~S' is a macro ~A"
  • chicken/trunk/expand.scm

    r13677 r13711  
    181181    (apply ##sys#extend-macro-environment new def) ) )
    182182
    183 (define (macro? sym #!optional (senv (##sys#current-environment)))
    184   (##sys#check-symbol sym 'macro?)
    185   (##sys#check-list senv 'macro?)
     183(define (##sys#macro? sym #!optional (senv (##sys#current-environment)))
    186184  (or (let ((l (lookup sym senv)))
    187185        (pair? l))
     
    197195            (else (cons (car me) (loop (cdr me))))))))
    198196
    199 (define (undefine-macro! name)
    200   (##sys#check-symbol name 'undefine-macro!)
     197(define (##sys#undefine-macro! name)
    201198  (##sys#unregister-macro name) )
    202199
Note: See TracChangeset for help on using the changeset viewer.